fatura adedinin toplamı (aynı fatura numaralarını dahil etmesin)

[elice]

üstadlarıma şimdiden teşekkür ediyorum,

istediğimiz şey fatura adedinin b1 hücresine vba kodla yazdırılması,
aynı fatura numaralarını dikkate almadan, örnek ekte, fatura adedi= 29

kolaygelsin.

 

[hamitcan]

Kodu sayfanın kod bölümüne ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
son = [c65536].End(3).Row
For i = 3 To son
    If WorksheetFunction.CountIf(Range("c" & i + 1 & ":" & "c" & son), Cells(i, 3)) = 0 Then
       s = s + 1
    End If
Next
[b1] = s
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak makrosuz olarak aşağıdaki şekilde çözüme ulaşabilirsiniz.

=TOPLA.&#199;ARPIM((C4:C500<>"")/E&#286;ERSAY(C4:C500;C4:C500&""))

 

[elice]

heriki çözüm içinde teşekkürler, elleriniz dert görmesin, bu formül ve kodların süzme işleminde de çalışabilmesi için ne yapmamız gerekiyor, özellikle formül şeklinde olan çözüm için.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[elice]

korhan bey çok çok teşekkür, elleriniz dert görmesin.