Copy value of Cell to other cell if >0

[Nunp]

Hello to all,

I dont now any coding , so your help will be very appreciated...
I need help creating a simple macro code to Copy the value of one Cell to other cell if the first >0.

If A1>0 copy the value to B1 if else do nothing....

Regards to all,

 

[Scott Huish]

Why do you need a macro?

In B1:
=IF(A1>0,A1,"")

Copy down.

 

[Nunp]

Hello,

First thanks for the fast reply.

My ploblem is a circular reference.

I need the value of A1 to calculate other formula... and A1 is calculated from this last formula....

A1 needs the result of C1 and C1 the result of A1

So if i copy only the value of A1 to other cell the problem maybe resolved.

Regards,

 

[Nunp]

I did a little code and i solved my ploblem, but i ask if is there a way to do this more faster.

because i need to run +100 codes like the below, an the excel turns crazy (slower)


the code is:



Private Sub Worksheet_Calculate()
　
If Range("AZ27") <> Range("AZ33") Then
If Range("AZ27") <> 0 Then
Call Macro1
End If
End If
End Sub
　
Sub Macro1()
'
' Macro1 Macro

Range("AZ27").Select
Selection.Copy
Range("AZ33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub


Regards to all