2 hücreyi birbiriyle yer değiştirme

[ismail-34]

Excel web ailesine selamlar.

2 Hücrenin (K1 ve L1) içeriklerinin bir makro butonuyla birbiriyle yer değiştirmesi ile ilgili.Yani her tıkladığımda K1 in içeriği L1 ile yer değiştirsin istiyorum

Örnek Ektedir.

Herkese İyi Günler Dilerim.

 

[mustafa1205]

Makro kaydet yöntemiyle yapabilirsiniz diye düşünüyorum..

 

[Necdet]

Alternatif

Public Sub Dene()

Dim gec As String

gec = Range("L1")
Range("L1") = Range("K1")
Range("K1") = gec

End Sub

 

[ismail-34]

Alternatif

Public Sub Dene()

Dim gec As String

gec = Range("L1")
Range("L1") = Range("K1")
Range("K1") = gec

End Sub

Teşekkürler Necdet Hocam. İyi Çalışmalar.

 

[ismail-34]

Makro kaydet yöntemiyle yapabilirsiniz diye düşünüyorum..

Teşekkürler buda Necdet hocanınkide güzel çalışıyor

 

[Korhan Ayhan]

Altenatif;

Option Explicit

Sub Test()
    Range("L1").Cut
    Range("K1").Insert Shift:=xlToRight
End Sub

 

[ismail-34]

Altenatif;

Option Explicit

Sub Test()
    Range("L1").Cut
    Range("K1").Insert Shift:=xlToRight
End Sub

Teşekkürler hocam Buda en kısa kod olanı heralde