macro not to copy zero value

[poitachi]

Hi everybody,
Can anyone help how to copy a data from one cell to another cell in the same sheet.
Example A3 has a value of 100, I want to copy 100 to D15 to replace the original value
at D15. However if A3 has a value of zero, macro will not copy the zero to D15. The
original value (whatever it is) will remain unchanged.
Please help. Thank you

[jeffreybrown]

Hello and Welcome to the Forum...

How about...

Please Login or Register  to view this content.

[poitachi]

Thank you for the reply but I was unable to fix the problem. My old code is something like this:
Sub inv()
Range("M211").Select
Selection.Copy
Range("E5:F5").Select
ActiveSheet.Paste
Application.CutCopyMode=False
End Sub
I change it to:
Sub inv()
If Range("M211").Value=0 Then Exit Sub
Range("M211").Copy Range("E5:F5")
End Sub

The value from M211 come from sum of other cell.
Did I miss out any code?

[MarvinP]

If you are copying the formula from M211 it won't work. If you copy the values only it should.

[jaslake]

Hi poitachi

Please wrap your code in code tags like this

Please Login or Register  to view this content.

You'll get hammered otherwise.

John

[poitachi]

Thanks John
I have tried the code but it didn't work. I
again the code like this:
Sub inv()
If Range("M211").Value=0 Then Exit Sub
Range("M211").Select
Selection.Copy
Range("E5:F5").Select
ActiveSheet.Paste
Application.CutCopyMode=False
End sub

It works but if I have multiple selection of data to be copied, something went wrong again. Example;
Sub inv()
If Range("M211").Value =0 Then Exit Sub
Range("M211").Select
Selection.Copy
Range("E5:F5").Select
ActiveSheet.Paste
Application.CutCopyMode=False

If Range("M311").Value=0 Then Exit Sub
Range("M311").Select
Selection.Copy
Range("E6:F6").Select
ActiveSheet.Paste
Application.CutCopyMode=False
End Sub

The problem now is that I can only get the data M211 copied to E5:F5. If M211 is zero then I can't get value from M311 (let's say value in M311 is 20) to be copied to E6:F6
Please help. Thanks

[jeffreybrown]

Give this a try...

Please Login or Register  to view this content.

[jaslake]

Hi poitachi

Please wrap your code in code tags. Click on Forum Rules to see how. You'll likely get no further responses until you've done so. (Except perhaps from a Forum Moderator).

John

[poitachi]

I have tried the above codes but it show a message box "Block if without end if". May I know what does it mean?

[jeffreybrown]

Try...

Please Login or Register  to view this content.

[poitachi]

Thanks a lot. It works finally. I really appreciate all the efforts in helping me to overcome the trouble. Thanks again to everybody!

[jeffreybrown]

You're welcome,

If you are satisfied with the answer provided, please mark the thread as solved.
How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save