Dim rng As Excel.Range
Dim rngIsect As Excel.Range
Dim i As Long
Set rng = Range("A1:F32")
rng.AutoFilter Field:=1, Criteria1:="Albert"
Set rngIsect = Intersect(rng.Offset(1, 0), rng, rng.SpecialCells(xlCellTypeVisible))
If Not rngIsect Is Nothing Then
For i = 1 To rngIsect.Areas.Count
rngIsect.Areas(i).Columns(5).Value = rngIsect.Areas(i).Columns(3).Value
Next
End If
|