ads_3131
07-05-2012, 02:03 AM
Hello
i have the vb below... how can i adapt this to look for any cell that contains a 0 in a specific column ? e.g column C?
-----------------------------------------
Sub CopyNonZero()
Dim v
j = 1
For i = 1 To 32
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
any help would be great ! :D
i have the vb below... how can i adapt this to look for any cell that contains a 0 in a specific column ? e.g column C?
-----------------------------------------
Sub CopyNonZero()
Dim v
j = 1
For i = 1 To 32
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
any help would be great ! :D