hücreleri birleştir

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; ekli dosyamda birleştirme işlemini makro ile nasıl yaparım. Hepinize selamlar.

 

[mustafaine1]

Bence ktf kullansaniz daha cozumcul olabilir olmadi, ktfyi dongu icinde uygulatabilirsiniz..

Public Function birlestirara(ALAN As Range, Optional sALAN As String = [COLOR="Red"]""[/COLOR]) As String
Dim sonuc As String, c As Range
Application.Volatile
On Error GoTo hata
For Each c In ALAN
    If c <> Empty Then sonuc = sonuc & c.Value & sALAN
Next c
sonuc = Left(sonuc, Len(sonuc) - Len(sALAN))
birlestirara = sonuc
On Error GoTo 0
   Exit Function
hata:
    birlestirara = "#Error#"
End Function

Birlestirilen hucreler arasinda herhangi bir ayrac isterseniz kirmizi bolume yazabilirsiniz..

 

[Hacı Bayram ÖZKAN]

Mustafa bey bu kodu nereye yerleştireceğim,

 

[mustafaine1]

bir modul ekleyip module yerlestirin daha sonra;

=birlestirara(E22)

seklinde fonksiyon olrak kullanabilirsiniz.

 

[Hacı Bayram ÖZKAN]

Mustafa bey yapamadım, fonksiyon olmayacak, fonksiyon olunca siliniyor, herhangi bir bütonla birleştirmesini istiyorum, Commandbutona ekledim olmadı. Bu şekilde bakarmısın

 

[mustafaine1]

sadece ornek icin dongu yazdim;

Private Sub CommandButton1_Click()
Dim alan1, alan2 As String
For i = 2 To 30
alan2 = ""
For j = 5 To 16
alan1 = Cells(i, j).Value
alan2 = alan1 & alan2
Next
Cells(i, "Q").Value = alan2
Next
End Sub

 

[Hacı Bayram ÖZKAN]

eyvallah mustafa bey isteğim buydu, eline sağlık dua ile kal

 

[mustafaine1]

rica ederim, sabah biraz yogundum ilgilenemedim ama isini gormustur umarim, kolay gelsin..