sütun birleştirme...

[gökhan]

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]

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]

 

[abazya]

Burdaki eki sildim

 

[abazya]

Üş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]

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]

 

[abazya]

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ı