Macro to swap data around

[tonywatsonhelp]

Hi Everyone,

I have data in cell D5:D6 that needs to go into F5:F6
but need whats in F5:F6 to go into D5:D6

with a macro

please help if you can

thanks

Tony

 

[Joe4]

One simple way:

Sub SwapData()

    Dim data1, data2
    
    data1 = Range("F5")
    data2 = Range("F6")
    Range("D5:D6").Copy Range("F5")
    Range("D5") = data1
    Range("D6") = data2
    
End Sub

 

[tonywatsonhelp]

Briiliant thanks Joe

 

[Joe4]

You are welcome.