Mail Merge / Adres Mektup Birlestirme Sorusu

[hakanyalcinkaya]

Merhaba Arkadaslar Mail Merge ile ilgili ilginc bi soru soracaktim;

normalde mail marge satır bazlı calismaktadir ve her satırda yazan bilgiyi mail olarak gonder veya yeni sayfaya birlestir diyebiliyoruz. Bunun disinda ben sole bisey yapmak istiyorum;

Excel'de hazirlanan tablo :
Musteri Bilgi
Musteri111 bilgi111111
Musteri111 bilgi222222
Musteri222 bilgi333333
Musteri111 bilgi444444
Musteri222 bilgi555555

Musteri ismi ayni olan verileri bul ve birlestir, musteri adi ayni olan verilerdeki bilgi basligi altinda bulunan bilgileri alt alta yaz...

eger bununla ilgili bir formul/dongu yazilmazsa her satirdaki veriyi ayri ayri alip birlestirme islemi yapiliyor...

ben bi musteriye tek bi mail gonderip sadece bilgi kisminda kendisine ait verileri gondermek istiyorum.

Bu konuda yardimci olurmusunuz
Tesekkurler,
Iyi calismalar dilerim

 

[mnz]

Aynı müşterilere ail Bilgi sütunundaki verileri string bir değişkende toplayabilirsiniz.
Bir döngü oluşturup Bilgi sütunundaki verisi eklenmiş satırın C sütununa 1 koyun diğer döngüde 1 olmayanları tarayarak sonuca ulaşabilirsiniz.
Deneyin belki işinize yarayabilir.
Set s1 = Sheets("Sayfa1")
dgs = dgs & "," & s1.Cells(2, "B")
For i = 2 To 6
dgs = ""
s1.Cells(2, "C") = 1
If s1.Cells(i, "C") <> 1 Then
For y = 3 To 6
If s1.Cells(i, "A") = s1.Cells(y, "A") Then
dgs = dgs & "," & s1.Cells(y, "B")
s1.Cells(y, "C") = 1
End If
Next
End If
s1.Cells(i, "D") = dgs
Next