sütun birleştirme...

Katılım
31 Mart 2005
Mesajlar
5
A sütununda isim yazıyor B sütununda soyisim isim ve soyismi A sütununda nasıl birleştirebilirim.teşekkürler
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu bir module sayfasına kopyalayın. sonrada birleştirmek istediğiniz verilerin bulunduğu sayfaya bir buton ekleyerek,makroyu bu butona bağlayın.
[vb:1:859175be62]Sub birlestir()
say = WorksheetFunction.CountA(Columns(1))
For a = 1 To say
Cells(a, 1) = Cells(a, 1).Value & " " & Cells(a, 2).Value
Next a
End Sub
[/vb:1:859175be62]
 
Katılım
5 Ocak 2005
Mesajlar
890
Üşenirsen diye B sütunun dakilere birde silgi butonu yaptım Yanlız B1 ile B 100 arasını siliyor sen sayıyı istediğin yere kadar yaz
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sn abazya'ya örnekleri için teşekkürler. Ayrıca B sütununun silinmeside gerekiyorsa bu durumda kodu aşağıdaki gibi düzenleyebilirsiniz.
[vb:1:e99f1f740b]Sub birlestir()
say = WorksheetFunction.CountA(Columns(1))
For a = 1 To say
Cells(a, 1) = Cells(a, 1).Value & " " & Cells(a, 2).Value
Cells(a,2).ClearContents
Next a
End Sub
[/vb:1:e99f1f740b]
 
Katılım
5 Ocak 2005
Mesajlar
890
Aceleye geldi Kusura bakmasın bence iki kodu birleştirip tek buton kullansın aklıma sonradan geldi Un Þeker orada bendende kolay gelsin demek kaldı
 
Üst