BUTON İLE İLGİLİ SÜTUNU TAŞIMA

[buurakengin]

https://resimyukle.org/i/qVNXi

Merhabalar resimdeki tabloda butona bastığımda "REFERANS_YIL" sütununu bulsun ve "A" sütununa taşısın istiyorum. Teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu deneyin.

Sub Test()
    Dim Bak As Long
    For Bak = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        If Cells(1, Bak) = "REFERANS_YIL" Then
            Columns(Bak).Cut
            Columns(1).Insert
            Exit Sub
        End If
    Next
End Sub

Başka bir başlıkta benzer bir sor sordunuz verdiğim cevap çözüm oldu mu?

 

[buurakengin]

İlginiz için teşekkür ederim, ek olarak butonu ben başka bir sayfada kullanacağım. kodun neresine sayfa ismini yazmam gerekiyor.
Yani butona bastığımda şu sayfada işlemi yapsın diye.

 

[Muzaffer Ali]

"SayfaAdı" kısmına sayfa adını yazın.

Sub Test()
    Dim Bak As Long
    with worksheets("SayfaAdı")
    For Bak = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
        If .Cells(1, Bak) = "REFERANS_YIL" Then
            .Columns(Bak).Cut
            .Columns(1).Insert
            Exit Sub
        End If
    Next
    end with
End Sub

 

[buurakengin]

Kod istediğim gibi çalışıyor. Teşekkür ederim