Veri Sütunlarını Birleştirmek

[VahapZTL]

Merhaba arkadaşlar A dan F ye kadar olan sütünları(F dahil) aralarında ; kullanarak A sütununda birleştirmek istiyorum, veri çok olduğu için makro kullanmam gerek yardımcı olabilirmisiniz?

 

[VahapZTL]

Sub edit()

    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "A") = (Cells(i, "A") & ";" & Cells(i, "B") & ";" & Cells(i, "C") & ";" & Cells(i, "D") & ";" & Cells(i, "E") & ";" & Cells(i, "F"))
        Cells(i, "B").EntireColumn.Delete
        Cells(i, "C").EntireColumn.Delete
        Cells(i, "D").EntireColumn.Delete
        Cells(i, "E").EntireColumn.Delete
        Cells(i, "F").EntireColumn.Delete
    Next i
      
End Sub

Böyle bi kod yazdım ama alttaki satırlarında B,C,D,E,F sütunlarını da siliyor, biraz yeniyim kusura bakmayın

 

[Saban Sertkaya]

Yapmak istediğinizi yapamadınız mı ?

 

[Saban Sertkaya]

Bu şekilde deneyiniz...

Sub Düğme1_Tıklat()
For a = 1 To [A1048576].End(xlUp).Row
Cells(a, 1) = Cells(a, 1) & ";" & Cells(a, 2) & ";" & Cells(a, 3) & ";" & Cells(a, 4) & ";" & Cells(a, 5) & ";" & Cells(a, 6)
Range(Cells(a, 2), Cells(a, 6)).ClearContents
Next a
End Sub

 

[VahapZTL]

Hocam çok sağol işimi gördü emeğine sağlık.

 

[Saban Sertkaya]

Rica ederim, kolay gelsin.

 

[Emir Hüseyin Çoban]

. . .

Merhaba Şaban Bey,

son satır bulma işleminde rows.count kullanmanız daha uygun olacaktır.
Yukarıdaki kodlamayı Office 2003 kullanan veya 97-2003 çalışma kitabı olarak kullanan kullanıcılarda hata verecektir. Çünkü en fazla 65536 satır var.

Şu şekilde tüm versiyonlar için daha kullanışlı olur.

son_satır = Cells([COLOR="DarkRed"]Rows.Count[/COLOR], "A").End(3).Row

. . .

 

[Saban Sertkaya]

Uyarı için teşekkür ederim Hüseyin Bey. Kodlamayı Vahap Bey'in excel versiyonu 2010 olduğu için o şekilde vermiştim.