Liste saydırma

[xlsx]

Selam
Dosyada bulunan Malzemeler dosyası A sütunununu Kodlar sayfası ile karşılaştırıp Kodlar sayfasındaki malzeme adlarını saydırmak istiyorum.Dosyada sarı işaretli sayıyı bulmak için Kodlar sayfasındaki malzeme adlarının A sütunuyla karşılaştıracak.Kodlar değişebiliyor.Yardımınızı rica ederim
Tşk.

 

[Ömer]

Merhaba,

=TOPLA.ÇARPIM(ESAYIYSA(KAÇINCI(A2:A10000;Kodlar!A2:A6;0))+0)

Bu şekilde deneyiniz.

 

[xlsx]

Çok Tşk, işimi görecek.Bu soruma benzer sorular için de olabilir, kodlarla yapılmış bir örnek elinizde var mı Ömer Bey, ben aynı zamanda VBA öğrenmeye çalıştığım için bilmediğim konularda örnekleri inceleyerek kendimi geliştirmeye çalışıyorum.Tşk

 

[xlsx]

Tşk formül işime yarayacak.Kod yazmayı yeni öğrenmeye çalıştığım için benzer sorular içinde olabilir, inceleyebileceğim örnek elinizde mevcut mu .?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub KODA_GÖRE_SAY()
    Dim X As Long, SAY As Long
    
    For X = 2 To Sheets("Kodlar").Range("A65536").End(3).Row
        SAY = SAY + WorksheetFunction.CountIf(Sheets("Malzemeler").Range("A:A"), Sheets("Kodlar").Cells(X, 1))
    Next
 
    Sheets("Malzemeler").Range("F7") = SAY

    MsgBox SAY
End Sub

 

[xlsx]

Tşk Korhan Bey elinize sağlık.