[ÇÖZÜLDÜ] Otomatik Liste

[Testere35]

Ekteki dosyada A ve B sütunlarından manual olarak E ve F sütunlarındaki listeleri oluşturdum. Bunu otomatik yapabilecek bir formül yazabilir miyiz?

 

[uzmanamele]

merhaba
A2 hücreyi seçin
veri / doğrulama / ayarlar / liste / kaynak "=$E$2:$E$46"

B2 hücreyi seçin
veri / doğrulama / ayarlar / liste / kaynak =$F$2:$F$46"

listenizi sadeleştirmeyi unutmayın, mükerrer kayıt olmasına gerek yok

not: sanırım siz birbiriyle çalışan 2 ayrı liste istiyorsunuz. sorunuzu sorarken daha net açıklamaya çalışın!!!

 

[Necdet]

Tek Olanları Süz

Merhaba,

Aşağıdaki kodları kullanabilirsiniz.

Sub Macro1()
Range("E:F").ClearContents
Range("A:B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1"), Unique:=True
End Sub

 

[uzmanamele]

merhaba
ek dosya işinizi görür mü?

 

[Testere35]

merhaba
ek dosya işinizi görür mü?

Hocam yanlış anlattım ben galiba. A ve B sütunları mevcut yani o sütunlara göre E ve F sütunları oluşturulacak.

 

[Testere35]

Biraz daha net anlatmaya çalışayım. A, B, C sütunları başka bir dosyaya otomatik bağlı. Yani bu değerler değişken. Şu an ben bu örnekte bağı çözdüm gönderebilmek için. Bağlı olunan dosyaya bazı yeni malzemeler ilave edildiğinde ben E ve F sütunlarına bu malzeme cinslerini manual ilave ediyorum. Bunu otomatik yapabilmek istiyorum.

 

[Ali]

Buda fonksiyonlu bir örnek olsun.

Siz D ve E 2985 nolu satırdaki verileri aşağı doğru çekerek çoğaltırsınız.

Dosya kotamı doldurmamak için aşağıdaki linke yükledim.

http://www.dosyasitesi.com/upload/455276246http://www.roketupload.com/308Malzeme türü ve isimleri.zip

 

[Testere35]

Buda fonksiyonlu bir örnek olsun.

Siz D ve E 2985 nolu satırdaki verileri aşağı doğru çekerek çoğaltırsınız.

Dosya kotamı doldurmamak için aşağıdaki linke yükledim.

http://www.dosyasitesi.com/upload/455276246http://www.roketupload.com/308Malzeme türü ve isimleri.zip

Ali hocam,
-öncelikle teşekkür ederim yardımınız için.
-fonksiyonlu çözümünüz benim istediğime çok yakın. ancak listeye(A,B,C sütunlarına) malzeme eklediğimde, eklediğim malzemeyi almıyor G,H sütununa.

bi bakabilir misiniz? sorun ne olabilir?

 

[Testere35]

Merhaba,

Aşağıdaki kodları kullanabilirsiniz.

Sub Macro1()
Range("E:F").ClearContents
Range("A:B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1"), Unique:=True
End Sub

Necdet hocam,
makrolu çözümünüz çok hoş. siz oraya bir buton koymuşsunuz, tıklayınca özet alıyor ama benim istediğim dosyayı açarken otomatik yapsın o işi yani butona tıklamak gerekmesin. mümkün müdür? tşk..

 

[Necdet]

Merhaba,

Elbetteki dosya açıldığı an Süz işlemini yaptırmak olası.

Aşağıdaki Kodlar ThisWorkbook'un kod bölümünde olmalı.

Private Sub Workbook_Open()
Sheets("Sayfa1").Select
Suz
End Sub

Aşağıdaki kod ise ayrı bir modül olabilir. Ayrı olmasının nedeni gerektiğinde tekrar süz işlemini yaptırabilmek içindir.

Sub Suz()
Range("E:F").ClearContents
Range("A:B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1"), Unique:=True
End Sub

 

[Ali]

Ali hocam,
-öncelikle teşekkür ederim yardımınız için.
-fonksiyonlu çözümünüz benim istediğime çok yakın. ancak listeye(A,B,C sütunlarına) malzeme eklediğimde, eklediğim malzemeyi almıyor G,H sütununa.

bi bakabilir misiniz? sorun ne olabilir?

D1 hücresine

=MAK(E:E)

yada

=ARA(9,99999999999999E+307;E:E)

yazınız.

 

[Testere35]

Merhaba,

Elbetteki dosya açıldığı an Süz işlemini yaptırmak olası.

Aşağıdaki Kodlar ThisWorkbook'un kod bölümünde olmalı.

Private Sub Workbook_Open()
Sheets("Sayfa1").Select
Suz
End Sub

Aşağıdaki kod ise ayrı bir modül olabilir. Ayrı olmasının nedeni gerektiğinde tekrar süz işlemini yaptırabilmek içindir.

Sub Suz()
Range("E:F").ClearContents
Range("A:B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1"), Unique:=True
End Sub

D1 hücresine

=MAK(E:E)

yada

=ARA(9,99999999999999E+307;E:E)

yazınız.

Her ikinizede teşekkür ederim, her iki çözümde işime yarıyor..

 

[Necdet]

Merhaba,

Konu çözüme kavuştuysa ilk mesajda konu araçlarında ÇÖZÜLDÜ olarak işaretlerseniz sonradan bakan arkadaşlar için yararlı olur.

 

[Testere35]

Merhaba,

Konu çözüme kavuştuysa ilk mesajda konu araçlarında ÇÖZÜLDÜ olarak işaretlerseniz sonradan bakan arkadaşlar için yararlı olur.

Konu çözüme kavuştu ve ÇÖZÜLDÜ olarak işaretledim ancak projeme devam ederken başka bir sorunla karşılaştım. Ekteki dosyada Listelerin altında 0 (sıfır) çıkıyor. Süzülen ana listede 0 (sıfır) değerleri olduğu için, özet listelerdede malzeme türü olarak 0 (sıfır) çıkıyor. Onu nasıl yok edebiliriz?