Compare Two column and put the value in 3rd column

[ARUNCHENNAI]

Hi,
I want the desired result in Z column though VBA

X	Y	Z
Plan	Actual	Desired Result
10	10	10
0	20	0
20	30	20
30	40	30
0	50	0
40		40
0		0
50		50
60		0
0		0
0		0
0		0
70		0
80		0
90		0
0		0

<tbody>
</tbody>

My code is not working. Kindly help.

Sub test()Dim X As Range, Y As Range, Z As Range


For Each X In Range("A5:A20")
    For Each Y In Range("B5:B20")
        For Each Z In Range("C5:C20")
            If X = 0 Then
            Z = 0
            'End If
                    Else
                If X <> 0 Then
                Z = X.Value
            End If
            End If
        Next Z
    Next Y
Next X


End Sub

 

[igold]

Perhaps you could explain what is supposed to happen. From looking at your data, I do not see any kind of consistent relationship between the column values...

 

[ARUNCHENNAI]

igold, thank you for your time.
I'm sorry for not making the request clearly.

What I have is X column the plan data and Y column as actual data.
I need to display in Z column against X and Y row, if plan is 0 then Z column need to be filled with 0, else to fetch actual data in Z column in order.

 

[igold]

if X is not zero and Y is empty, what does Z equal...

 

[ARUNCHENNAI]

Exit Sub.

 

[ARUNCHENNAI]

Hi,
I found a work around with below code.Forking fine.
Any suggestion to do do it better.

Sub test()
Dim x As Range
Dim i As String

For Each x In Range(""A1:A15")
i = x.Address
  If x = 0 Then
   Range(i).Offset(, 1).Insert Shift:=xlDown
  End If
  Next x
  MsgBox "Done"
End Sub