Hi
try these macro codes (since the button to attach files does not show up, I could not attach file. even wrap/tag is not working)
Sub auto_open()
Dim d As Long, x As Long, b As Long
d = 2
Application.ScreenUpdating = False
x = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
For b = 2 To x
If Worksheets("Sheet1").Cells(b, 5) > 0 Then
Worksheets("Sheet1").Range("A" & b & ":Q" & b).Copy
Worksheets("Sheet3").Range("A" & d + 1).PasteSpecial
d = d + 1
End If
Next b
Application.ScreenUpdating = True
MsgBox " All rows with col E > 0 are now listed in sheet3"
End Sub
Ravi
Bookmarks