Compare Two column and put the value in 3rd column

[ARUNCHENNAI]

Hi,
I want the desired result in Z column though VBA
[TABLE="width: 254"]
<tbody>[TR]
[TD]X[/TD]
[TD]Y[/TD]
[TD]Z[/TD]
[/TR]
[TR]
[TD]Plan[/TD]
[TD]Actual[/TD]
[TD]Desired Result[/TD]
[/TR]
[TR]
[TD="align: right"]10[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]10[/TD]
[/TR]
[TR]
[TD="align: right"]0[/TD]
[TD="align: right"]20[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: right"]20[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]20[/TD]
[/TR]
[TR]
[TD="align: right"]30[/TD]
[TD="align: right"]40[/TD]
[TD="align: right"]30[/TD]
[/TR]
[TR]
[TD="align: right"]0[/TD]
[TD="align: right"]50[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: right"]40[/TD]
[TD][/TD]
[TD="align: right"]40[/TD]
[/TR]
[TR]
[TD="align: right"]0[/TD]
[TD][/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: right"]50[/TD]
[TD][/TD]
[TD="align: right"]50[/TD]
[/TR]
[TR]
[TD="align: right"]60[/TD]
[TD][/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: right"]0[/TD]
[TD][/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: right"]0[/TD]
[TD][/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: right"]0[/TD]
[TD][/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: right"]70[/TD]
[TD][/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: right"]80[/TD]
[TD][/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: right"]90[/TD]
[TD][/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: right"]0[/TD]
[TD][/TD]
[TD="align: right"]0[/TD]
[/TR]
</tbody>[/TABLE]

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