Copying autofilter data to another column
The below code filtered the data based on column S & T. Then it writes the
"Resub UW" on visible data. Currently I am trying to copy the visible date
data in column K to the visible empty data in column AO. If anyone can
help me with this code.
`Sub ReSubmitted_UW()
Rows("1:1").Select
Selection.AutoFilter
With ActiveSheet
.Range("$A:$AN").AutoFilter Field:=19, Criteria1:="<>"
.Range("$A:$AN").AutoFilter Field:=20, Criteria1:="="
lastRow = .Range("F" & Rows.Count).End(xlUp).Row
If lastRow > 2 Then
.Range(.Range("E2"), .Range("E" & lastRow)). _
SpecialCells(xlCellTypeVisible).Value = "ReSub UW"
End If
.Range("$A:$AN").AutoFilter
End With
End Sub
`
No comments:
Post a Comment