copy row to new sheet where cell value meets criteria

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Please can you help me to define a macro to copy all rows in worksheet1 where
cell Ax does not contain value zero to worksheet2
 
Sub CopyNonZero()
Dim v
j = 1
For i = 1 to 65536
If Sheets("Sheet1").Cells(i,1) <> 0 Then
v = Sheets("Sheet1").Cells(i,1).EntireRow
Sheets("Sheet2").Cells(j,1).EntireRow = v
j = j + 1
End If
Next i
End Sub

HTH
Kostis Vezerides
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

SumIf with multiple Criteria 6
How do I make worksheet2 = to worksheet1? 2
count cells with multiple criteria and two rows 2
got to cell on seperate worksheet 2
HELP, PLEASE - Testing Multiple Values 4
Skipping a cell and moving on to the next, with no blanks in betwe 8
Please Help with Two Table Merging 1
Populating multiple cells from a single pull down 2

Back
Top