Hi all,

a have five columns in Excel 2010 sheet, ~ 90.000 rows.
1) Sales manager, 2) customer, 3) artikl number, and two columns for coefficients c1 and c2.
First three columns using for filtering data in macro code by automatic filter.

I need set for column "D" value 1.23 for selected rows.
How?


Public Sub Test()
Dim oRange As Range

Set oRange = ActiveSheet.UsedRange

With oRange
' start autofilter
.AutoFilter

.AutoFilter Field:=3, Criteria1:= _
"=C6000*", Operator:=xlAnd

.AutoFilter Field:=1, Criteria1:="=493" _
, Operator:=xlAnd

'-- here I need set for column "D" value 1.23 for selected rows
'does exists any method, or something - for using oRange for this purpopse?
'or exist different way?


' end autofilter
.AutoFilter

End With
End Sub