tüm satırları bir sütunda toplamak

[dersmx]

merhaba ekteki gibi dosyam var
diyelim ki 3 satırım var
bunu tek satırda toplamak istiyorum
Nasıl yapabilirim?

 

[Ali]

=C6&"."&C7&"."&C8

olarak kullanabilirsiniz.

 

[dersmx]

fakat normalde 1000 i aşkın kayıt var bunu nasıl yapabileceğiz

 

[Ali]

Sadece 3 adet değer yazıp dosya eklemişsiniz. Verilerinizin hangi düzende olduğunu nereden bilebilirim.

 

[dersmx]

haklısınız ben uzatmamak için öyle yazmıştım.
Özür dilerim

 

[Necdet]

1000 küsur veriyi tek bir satırda görmenin pratikte ne gibi yararı var?

Meraktan soruyorum.

 

[dersmx]

bir mail alias oluşturmam gerekiyor bu mail aliası database ekleyebilmem için bütün satırların tek bir sütunda olması gerekiyor.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre aşağıdaki kodu kullanabilirsiniz. Tüm adresler A1 hücresinde birleşir.

Sub BİRLEŞTİR()
    [A1] = ""
    For X = 1 To [C65536].End(3).Row
    If Cells(X, 3) <> "" Then
    If [A1] = "" Then
    [A1] = Cells(X, 3)
    Else
    [A1] = [A1] & "," & Cells(X, 3)
    End If
    End If
    Next
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

 

[dersmx]

çok teşekkür ederim ellerinize sağlık.