Birden fazla sütunu tek hücrede birleştirme

[ercanbayram]

Arkadaşlar birden fazla sütundaki verileri arasına ; işareti gelecek şekilde nasıl birleştirebilirim? Yardımlarınız için çok teşekkür ederim...

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız..

Sub Birlestir()
 
Dim i As Long
 
Range("B1").ClearContents
 
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    Range("B1") = Range("B1") & ";" & Cells(i, "A")
Next i
 
Range("B1") = Application.Substitute(Range("B1"), ";", "", 1)
 
End Sub

.

 

[ercanbayram]

modüle dediğiniz yer nerde üstad? nasıl yapabilirim bunu? çok teşekkürler..

 

[Ömer]

Linkleri inceleyiniz.

Modül Ekleme (Resimli Anlatım)

http://www.excel.web.tr/# Sayfada Buton-Düğme Oluşturmak ve Makro Atamak (Resimli Anlatım

.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki yöntemide kullanabilirsiniz.

B sütununu yardımcı sütun olarak kullanacağız. Aşağıdaki formülü B1 hücresine uygulayın ve alt hücrelere sürükleyin.

=EĞER(A1<>"";EĞER(SATIR()=1;A1;DOLAYLI("B"&SATIR()-1)&";"&A1);"")

Daha sonra C1 hücresinede aşağıdai formülü uygulayın. Bu şekilde birleşmiş verileri alabilirsiniz.

=ARA(2;1/(B1:B1000<>"");B1:B1000)

 

[ercanbayram]

üstad bahsettiğin kodu harfiyen yaptım. Hatta güvenlik düzeyini de orta düzeye getirdim ancak verdiğim örneki dosyada bi değişim olmadı. Sadece excel açılırken makroları etkinleştireyim mi diye uyarı veriyo... hazırladığım örnek dosya ekte...

 

[Ömer]

Buton oluşturup kodu butona bağlamanız gerekir. Linkte detayı vardı.

Deneme yapmak için;

Alt + F8 tuş kombinasyonunu çalıştırıp entera basın.

 

[ercanbayram]

Oldu bu iş üstadım. Çok teşekkür ederim bilginize, emeğinize...

Selam ve dua ile...