Farkli Worksheetlerdekİ Ayni Hatalarin Toplanmasi Hakkinda

[cenkk]

ACİL ACİL ACİL Farkli Worksheetlerdekİ Ayni Hatalarin Toplanmasi Hakkinda

ARKADAŞLAR KONU ACİLİYETLİ HELP HELP
ArkadaŞlar Merhaba. Ekte GÖnderdİĞİm Örnek Excel Dosyasinda Da BelİrttİĞİm Gİbİ Farkli Work Sheetlerde Bulunan Ayni Hatalarin Toplam Adedİnİ Verecek Bİr FormÜle İhtİyacim Var. Yardimlariniz İÇİn Şİmdİden TeŞekkÜr Ederİm. :yardim:

 

[hamitcan]

Sub say()
For i = 1 To Sheets.Count
s = WorksheetFunction.CountIf(Sheets(i).[b:b], "101")
topla = s + topla
Next
MsgBox topla
End Sub

 

[cenkk]

Hamİtcan ArkadaŞim TeŞekkÜr Ederİm Ama YazdiĞini Uyarlayamadim. Daha AÇiklayici Yazarsan(neyse Yİne De TeŞekkÜr.

 

[Ali]

101 Nolu hatanın 3 sayfaya ait hata adetlerinin toplamı için;


=TOPLA.ÇARPIM(('1'!B3:B27=101)*('1'!D327))+TOPLA.ÇARPIM(('2'!B3:B37=101)*('2'!D337))+TOPLA.ÇARPIM(('3'!B3:B31=101)*('3'!D331))

formülünü kullanabilirsiniz.

 

[hamitcan]

Araçlar>>Makrolar>>Visual Basic Düzenleyicisi
İnsert>>Module içine verdiğim kodları ekleyin.
Araç çubuğu üzerindeki yeşil düğmeye basın.

 

[Merhum İdris SERDAR]

ARKADAŞLAR KONU ACİLİYETLİ HELP HELP
ArkadaŞlar Merhaba. Ekte GÖnderdİĞİm Örnek Excel Dosyasinda Da BelİrttİĞİm Gİbİ Farkli Work Sheetlerde Bulunan Ayni Hatalarin Toplam Adedİnİ Verecek Bİr FormÜle İhtİyacim Var. Yardimlariniz İÇİn Şİmdİden TeŞekkÜr Ederİm. :yardim:

Dosyanız ekte.


Not: Pivot Table - Özet Tablo ile yapılmış şeklini de ekledim.


..