aynı sütundaki aynı değerleri vba ile başka sayfaya yazdırma

[a_self_lion]

Merhaba arkadaşlar,

1260 satırlık bir excel tablom var. M sütunundaki verilerimin aynı olanlarını A sütunundaki değeri ile birlikte vba ile alt alta yazdırmak istiyorum. Yapmak istediğimi örnek bir tabloda göstermek için ekliyorum.

Teşekkür ederim yardımlarınız için şimdiden.

ornek_dhcpserverleases.xlsx dosyasını indir - download

ornek_dhcpserverleases.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

ornek_dhcpserverleases.rar dosyasını indir - download

ornek_dhcpserverleases.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

Ekran_Alintisi2.JPG dosyasını indir - download

Ekran_Alintisi2.JPG dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[Haluk]

Dosyanız;

ornek_dhcpserverleases_HD.xlsm dosyasını indir - download

ornek_dhcpserverleases_HD.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

.

 

[a_self_lion]

osyanız;

ornek_dhcpserverleases_HD.xlsm dosyasını indir - download

ornek_dhcpserverleases_HD.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

Evet Haluk bey elinize sağlık aradığım böyle bir şeydi
bütün bilgiler gelmez mi hepsi birden benim örnekte gösterdiğim gibi.

 

[Haluk]

strSQL değişkeninin atandığı satırı aşağıdaki ile değiştirin;

    strSQL = "Select * From [DhcpServerLeases$] Where [active-mac-aEEress] In " & _
              "( " & _
              " Select [active-mac-aEEress] From [DhcpServerLeases$] Group By [active-mac-aEEress] " & _
              " Having Count([active-mac-aEEress]) >1 " & _
              " ) " & _
              " Order By [active-mac-aEEress]"

Dosya:

SQL_Where_In_3_Repeating_Items.xlsm

drive.google.com

.

 

[Haluk]

Muhterem; sorun çözüldü mü?

.