This macro is working fine, copying Column B if Column A is April and Column B<>0...I need some adjustments change Column B for D..... if column A is April and Column D <>0 then copy D...tried to change offset(,1) to offset(,3) didn't work...any ideas?
Sub btest()
Dim LR As Long, i As Long
With Sheets("W1")
LR = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
With .Range("A" & i)
If Month(.Value) = 4 And .Offset(, 1) <> 0 Then .Resize(, 2).Copy Destination:=Sheets("W2").Cells(3, Columns.Count).End(xlToLeft).Offset(, 1)
End With
Next i
End With
End Sub
Thank you
Bookmarks