Simple copy and Paste in VBA

[StuartWhi]

Hi,

This should be simple but maybe it's just me.

All I want to do is copy from one cell "F1" to the other "D1" if a third cell "F2" is = to "1".

I thought this would work but I'm missing something.

Option Explicit
Sub simple_copy()

If ("F2") = 1 Then
    .Value("D1") = ("F1")
    .Value("F1") = Clear
End If
End Sub

Thanks for your help,

Stuart.

 

[machopicho]

Sub simple_copy()  
If Range("F2") = "1" Then     Range("D1") = Range("F1") 
    Range("F1").ClearContents 
End If 
End Sub

 

[StuartWhi]

Hi Machopicho,

Thanks heaps for your help, had to make a slight change (remove the "End If") and it works great.

Option Explicit
Sub simple_copy()
    If Range("F2") = "1" Then Range("D1") = Range("F1")
    Range("F1").ClearContents
End Sub

Regards,

Stuart.