Düşey Ara ve Filtrele

[cocoa35]

Arkadaşlar çok acil yardımınıza ihtiyacım var;
Ekli dosyada anlatmaya çalıştığım konu şu 2 adet sayfam var , Sayfa 1 ' de D sütununda bulunan D2-D19 arası kablo cinslerini aynı olanlarını toplayarak sadece olan kablo cinslerini sayfa 2'de A2-A15 arasına yazsın .
Bunu bir türlü yapamıyorum yardımlarınızı bekliyorum iyi günler

 

[veyselemre]

Sub dene()
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    s2.[a2:a65536,d2:d65536].ClearContents
    s1.Range([d1], s1.[d1].End(xlDown)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=s2.[A1], Unique:=True
    son1 = s1.[a65536].End(3).Row
    With s2.[d2].Resize(s2.[a65536].End(3).Row - 1)
        .Formula = "=SUMIF(Sheet1!D$2:E$" & son1 & ",A2,Sheet1!E$2:E$" & son1 & ")"
        .Value = .Value
    End With
    Set s1 = Nothing
    Set s2 = Nothing
End Sub

 

[cocoa35]

veyselemre arkadaşım ilgin için çok teşekkür ederim.Kod'ları Sheet1 ve Sheet2 kod bölümüne yapıştırdım ama çalışmadı! acaba yanlışmı yapıyorum?

 

[ferhatgurbuz]

cocoa35 arkadaşım şu dosyayı eğer mümkün se acabileceğim şekilde eklermisin. Benimde böyle bir şeye ihtiyacım var belki banada kaynak olurdu.

 

[cocoa35]

Auto_open koruma kod'unu kaldımamışım özür diliyorum herkesten ama sorunum Ftp tarafından çözüldü Filtreleme kod'u ile yayınlanan bölüme bakınız .

 

[veyselemre]

Kod'ları Sheet1 ve Sheet2 kod bölümüne yapıştırdım ama çalışmadı! acaba yanlışmı yapıyorum?

Module içine ekleyip çalıştıracaksınız.

Auto_open koruma kod'unu kaldımamışım özür diliyorum herkesten ama sorunum Ftp tarafından çözüldü Filtreleme kod'u ile yayınlanan bölüme bakınız .

fpc demek istediniz herhalde.

 

[enginparlar]

E-MAİL ADRESİNİ YOLLARSAN SANA ONA BENZER BİR PROGRAM ATARIM

enginparlar@gmail.com

 

[yiğit anakin]

Slm
Bu Sorununuza ÇÖzÜm Bulursaniz Bana Da İletİr Mİsİnİz.teŞekkÜrler

 

[yiğit anakin]

slm,
coco35 isimli arkadaşınkine benzer bir problemim var. yardımınızı rica edebilir miyim.
yigitanakin@hotmail.com

 

[ayna00]

hem sütunları tarasın hem özelliklerini sütunlasın

ANLATABİLİRSEM EĞER ÇOK ACİL YARDIM İSTEYECEĞİM....
ekteki dosya 1 kendi çalışmam,açıklamalarla isteklerimi anlatmaya çalıştım
dosya 2 ise forumda bulduğum örnek ... ama ben nasıl yapacağımı bilmiyorum...ve sürekli güncellenen veriler bunlar...