ayıklama işlemini ypamadım

[wenceremos]

burada bir ilçedeki istenen modeldeki aletlerin envanterini otomatik olarak takip edilebilecek formül burada sadece bir sutunda değil iki stunda birden arama yapacak ve bu iki kosul aynı satırda olduğu zaman sayacak wallahi beceremedim bi yardımcı olursanız sevinirim
yani bir sutunda ilçe adı var diğer sutunda ise malzeme kodu var burada 13 ilçe var ve 5 ayrı malzeme verimiş bu malzemelerin hangi ilde kaç tane olduğunu eğersay komutu gibi bir komutla sürekli olarak takip edilebilir şeklinde yapmayı amaçlamaktayız

 

[zafer]

Merhaba

Ã?rnek dosya ekleyebilirmisiniz.

 

[wenceremos]

dosya bu

 

[zafer]

Merhaba

 

[wenceremos]

teşekkür ederim zafer

 

[zafer]

Merhaba

Aşağıdaki kodları çalıştırırsanız Telsizler sayfasından , Telsizler icmal sayfasına verilerinizi süzülmüş bir biçimde A29 hücresinden itibaren sırayla yazar.

Hücreye yazacağınız telsiz isimlerindeki hataları önlemek için kullanabilirsiniz.

Sub suz()
Sheets("Telsizler").Select
For b = 5 To Sheets("Telsizler").Cells(65536, 8).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("Telsizler").Range("h5:h" & b), Sheets("Telsizler").Cells(b, 8)) = 1 Then
c = c + 1
Sheets("Telsiz İcmali").Cells(c + 28, 1).Value = Cells(b, 8).Value
End If
Next
End Sub