Hücreleri makro ile birleştirme

[Hüseyin61]

Arkadaşlar herkese selam ve sevgiler;
Makro ile iki hücreyi, üç hücreyi, dört hücreyi birleştirmek istiyorum. Veri girdiğimde A2 hücresindeki veri ile B2 hücresindeki veri aralarında boşluk bırakılarak C2 de birleşecek. B2 de veri olmazsa sadece A2 yazılacak. Bu şekilde 3 lü ve 4 lü birleştirme olacak şekilde sayfalarım var. Dosyam ektedir.
Yardımcı olursanız çok sevinirim. Teşekkürler.

 

[Merhum İdris SERDAR]

.

KTF için şöyle bir kod kullanabilirsiniz.

Function Birlestir(aln As Range) As String

Dim x As Range

   Birlestir = ""

   For Each x In aln
      Birlestir = Birlestir & x.Text & " "
   Next x

End Function

Dosyanız ekte.

.

 

[Hüseyin61]

İdris bey ilginiz için teşekkür ederim. Ancak formülleri kullanıyorum. bu tür çalışmaları formüllerle yapıyorum. Aynı işlemi makrolarla yapmak istiyorum.

 

[Merhum İdris SERDAR]

.

Benim verdiğim formül değişik. Makro ile yapılmış, bununla istediğiniz kadar hücreyi birleştirebilirsiniz. Kullandığım dediğiniz formüller ile hücre sayısı arttıkça uzar giderler.

.

.

 

[Hüseyin61]

Bu şekilde formül siliniyor. Aşağıya doğru çekip uzatmak gerekiyor. Benim istediğim A:A ve B:B yi C:C de birleştirmesi gerekiyor. Yoksa ben mi yanlış yapıyorum?

 

[Merhum İdris SERDAR]

Merhaba.

Formül nasıl siliniyor? Anlayamadım. Kaldı ki; nasıl A:A ve B:B yi C:C de birleştirecek? Elle veya yerleşik fonksiyonlarla bir örnek verebilir misiniz?

Yerleşik işlevlerle nasıl yapıyorsunuz? Formülü hücreye yazıp aşağıya doğru kopyalıyorsunuz değil mi?

Verdiğim de makro ile yapılmış KTF (Kullanıcı Tanımlı Fonksiyon) da aynı işi yapıyor,denilebilir. Bir farkla seçtiğiniz alan içerisinde ne kadar hücre varsa birleştirir.

Örneğin =Birlestir(A2: D19) yazarak, bu alan içerisinde ne kadar sözcük varsa hepsini birleştiriyor.

Örneğe bakınız.

.

 

[Hüseyin61]

Lütfen bu örneği inceler misiniz. Belki istediğimi tam ifade edemedim.

 

[cicosz]

Merhaba,

İşinizi görür mü?

 

[Merhum İdris SERDAR]

.

Kusura bakmayın ilk mesajınızdaki soru ve mesajınız ile 7 No'lu mesajınız arasında zerre bir benzerlik ve ilişki göremedim. Bu nedenle, ne istediğinizi anlayamadım. Ben burada bırakıyorum.

.

 

[Hüseyin61]

Merhaba,

İşinizi görür mü?

Çok Teşekkürler Cicosz, Tam da istediğim gibi oldu. Elinize emeğinize sağlık.

 

[Hüseyin61]

.

Kusura bakmayın ilk mesajınızdaki soru ve mesajınız ile 7 No'lu mesajınız arasında zerre bir benzerlik ve ilişki göremedim. Bu nedenle, ne istediğinizi anlayamadım. Ben burada bırakıyorum.

.

Zahmetiniz için teşekkür ederim.

 

[cicosz]

Rica ederim.