Generating worksheet that omits rows with zero values

[Jim Page]

I am trying to create a new worksheet from data in another. However, this new worksheet contains a lot of blank rows where non pertinent data exists.

The formula is simple i.e. =if(sheet1!A3=1, Sheet1!C3,"")

Column A in Sheet1 contains a series of 0 & 1's dictating wherever data in that row relates to a particular subset of information.

However, in teh new sheet I have created, where it sees a 0 in Column A it leaves me with a blank row. I could obviously hide or delete these rows, but this will cause me problems when I amend Sheet 1. I want to automate this process and probably need to use a Macro, but do not have the know-how.

Can anyone help?

 

[ravishankar]

Hi
Paste the following codes in the macro window ( Alt F11)

Sub sss()
Dim a, b, x As Integer
b = 1
x = Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To x
If Cells(a, 1) <> "0" Then
Worksheets("sheet2").Cells(b, 1) = Cells(a, 3)
b = b + 1
End If
Next a
End Sub

run the macro. It will list all values of col C where values of col A in correspong row is not zero.
Ravi