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

[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

 

[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

 

[adambush4242]

Gary,

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

Thanks

Adam Bush