Setting Cells Equal only if Destination Cell Does Not Have a Formu

A

adambush4242

Is there a way in VBA to set a cell equal to another cell only if the
destination cell does not contain a formula (has a value)?

Thanks

Adam Bush
 
G

Gary''s Student

Yes. Here we check A2 to make sure it has not formula:

Sub save_formula()
Set a1 = Range("A1")
Set a2 = Range("A2")
If a2.HasFormula Then
Else
a2.Value = a1.Value
End If
End Sub
 
A

adambush4242

Gary,

Thanks you very much. I did not know that hasformula was a property.

Thanks

Adam Bush
 
Top