Sütunların kendi aralarında yerlerini değiştirme!

[goqhh]

Sütunlardaki verilerin yerlerini otomatik olarak değiştirebileceğim bir formül ya da kısayol mevcutmudur ? Yardımlarınızı bekliyorum. Şimdiden teşekkürler.

 

[leumruk]

Merhaba,
Aşağıdaki gibi bir makro yardımıyla yapabilirsiniz. Birinci kod Thisworkbook bölümüne, 2. kod Modüle eklenecek. Kısayol tuşu "CTRL Ş"...
makroyu çalıştırmadan önce iki sütun seçmelisiniz. 2'den fazla sütun seçerseniz ilk sütun ile son sütunun yerlerini değiştirecektir.

Private Sub Workbook_Open()
Application.OnKey "^{ş}", "sutun_degistir"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^{ş}"
End Sub

Sub sutun_degistir()
Dim Sut1() As Variant, Sut2() As Variant
Sut = Split(Selection.Address(False, False), ",")
If InStr(1, Selection.Address(False, False), ":") = 0 Then Exit Sub
Sut1 = Range(Sut(LBound(Sut)))
Sut2 = Range(Sut(UBound(Sut)))
Application.ScreenUpdating = False
If Sut(LBound(Sut)) = Sut(UBound(Sut)) Then
Sut1 = Range(Split(Sut(LBound(Sut)), ":")(0) & ":" & Split(Sut(LBound(Sut)), ":")(0))
Sut2 = Range(Split(Sut(UBound(Sut)), ":")(1) & ":" & Split(Sut(UBound(Sut)), ":")(1))
Range(Split(Sut(LBound(Sut)), ":")(0) & ":" & Split(Sut(LBound(Sut)), ":")(0)) = Sut2
Range(Split(Sut(UBound(Sut)), ":")(1) & ":" & Split(Sut(UBound(Sut)), ":")(1)) = Sut1
Else:
Range(Sut(LBound(Sut))) = Sut2
Range(Sut(UBound(Sut))) = Sut1
End If
End Sub

 

[goqhh]

Tesekkur ederim.. Peki soyle bise olabilirmi bunu macro olarak klavyede bi tusa atmayı dusunuyorum ama sabit sütünları değil bnm seçtiklerimi değiştirse ?

 

[Seyit Tiken]

Alternatif

Sub yerdegistir()
[A:A].Cut
[C:C].Insert
End Sub

 

[leumruk]

Merhaba,
Kodları ve dosyayı isteğinize göre güncelledim. Gerekli açıklamayı da bir önceki mesajımda yaptım.