iki hücredeki verilerin yer değiştirmesi

[Warner]

Arkadaşlar merhabaa,

İki farklı hücrede iki farklı isim yazmakta ve bu isimlerin yer değiştirilmesi gerekmektedir. bunu en kısa sürede nasıl halledebilirim.

Yardımlarınız için şimdiden teşekkürşer

 

[Orion1]

Veriler A1 ve B1 de
Buyurun.

Sub degistir59()
Dim deg As Variant
deg = Range("A1").Value
Range("A1").Value = Range("B1").Value
Range("B1").Value = deg
End Sub

 

[Warner]

Teşekkür ederim kolay gelsin

 

[Orion1]

Teşekkür ederim kolay gelsin

Rica ederim.
İyi çalışmalar.