Belge sayma - lütfen acil yardım

[serserss]

H3 hücresine, (e) sütunundaki stok kodu 1 ile başlıyorsa
(d) sütunundaki depo kodu çarşı ise (b) sütunundaki belge adedini saymasını istiyorum
fakat aynı numaraları bir defa sayması gerekmektedir.


Lütfen acil yardım

 

[Mustafa MUTLU]

Sub Mustafa()
[H3] = 0
Application.ScreenUpdating = False
For MSTF = 2 To Cells(65536, "e").End(xlUp).Row
If Cells(MSTF, "e") = 1 Then
If Cells(MSTF, "d") = "çarşı" Then
[H3] = [H3] + Cells(MSTF, "B")
End If
End If
Next
Application.ScreenUpdating = True
MsgBox " İşlem Tamamlanmıştır.", vbInformation, "Bitti"
End Sub

Bu Kodu bir modüle yapıştır.
Sayfana Bir düğme koy.
Düğmeyede bu makroyu ata
(Macro güvenliğinden seviyeyi düşürmen gerekebilir..)

 

[serserss]

ilginiz için çok teşekkür ederim, fakat benim makrolar hakkında pek bilgim yok, eğer bir örnek yapıp gönderirseniz çok sevinirim.

 

[mgurten]

Alternatif olarak makrosuz şöylede yapabilirsiniz.

Formüller 1000.satıra kadardır.

 

[serserss]

çok teşekkürler