sütun birleþtirme... [Archive] - Excel Forum

PDA

Tüm Versiyonu Göster : sütun birleþtirme...


gökhan
03-04-2005, 22:21
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
03-04-2005, 22:28
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
03-04-2005, 22:56
Burdaki eki sildim

abazya
03-04-2005, 23:15
Üþ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
03-04-2005, 23:24
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
03-04-2005, 23:32
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ý


Özel Arama