ETOPLA Hatası ve Alttoplamla Uyuşmazlığı!

[break]

Arkadaşlar Alım koduna göre (R1, R2, R3, R4) Mal adetlerini topluyorum. R1' de hatalı sayı çıkıyor. Alttoplam ile Etopla arasında 691 adet fark var. Sinir oldum çünkü hata sadece R1' de. R2, R3, R4 doğru sonuç veriyor.

Şimdiden teşekkürler...

 

[ÖmerBey]

Merhaba, E sütununda yazan bazı değerlerin sonuna boşluk eklenmiş: Aşağıdaki kod ile hatalı yazılan kayıtları görebilirsiniz.
İyi çalışmalar...

Sub KOD()
   For Each hcr In Sheets("MARMARA MAL").Range("E4:E813").SpecialCells(xlCellTypeVisible)
    If hcr <> Sheets("Özet").Range("C4") Then
        hata = hata & vbLf & hcr.Address
        topla = topla + hcr.Offset(0, -1)
    End If
Next
    MsgBox "Hatalı kayıtlar:" & hata & vbLf & "Toplam Değeri:" & topla
End Sub

 

[break]

Merhaba, E sütununda yazan bazı değerlerin sonuna boşluk eklenmiş: Aşağıdaki kod ile hatalı yazılan kayıtları görebilirsiniz.
İyi çalışmalar...

Sub KOD()
   For Each hcr In Sheets("MARMARA MAL").Range("E4:E813").SpecialCells(xlCellTypeVisible)
    If hcr <> Sheets("Özet").Range("C4") Then
        hata = hata & vbLf & hcr.Address
        topla = topla + hcr.Offset(0, -1)
    End If
Next
    MsgBox "Hatalı kayıtlar:" & hata & vbLf & "Toplam Değeri:" & topla
End Sub

Hocam çok teşekkür ederim. Gerçekten "40 yıl düşüsen aklıma gelmez" derler ya, aynen o durum benimki.

Bir sorum daha olacak süzme yaparken 2 tane R1 çıkması gerekmiyor mu? Bir tanesi boşluksuz R1 diğeri boşluklu R1 şeklinde?

Tekrar sağ olun.

 

[ÖmerBey]

Mantıken öyle olması gerekir, ama filtreleme baştaki ve sondaki boşlukları görmezden geliyor.
Hatta muhtemelen bu şekilde olması birçok kişinin işini de kolaylaştırıyordur.
İyi çalışmalar...

 

[Emir Hüseyin Çoban]

. . .

R1 değerleri için formül:

=TOPLA.ÇARPIM((KIRP('MARMARA MAL'!E4:E999)=Özet!C4)*('MARMARA MAL'!D4:D999))

. . .