eğersay vba kodu ile ilgili

[wolfstr]

1. satırda belli hücre aralığındaki a ve b harflerini daha önce eğersay vba kodu adlı başlıkta gördüğüm kodu kullanarak a1 hücresine yazdırdım

a = WorksheetFunction.CountIf([b1:f1], "a")
b = WorksheetFunction.CountIf([b1:f1], "b")
[a1] = a + b

a ve b harflerini tek kodda saydıra bilirmiyim
birde
diğer satırlar için kodu tek tek her satır için yazmammı lazım

bu konuda yardım ederseniz çok memnun olurum

 

[Levent Menteşoğlu]

Saydıracağınız sadece a ve b mi? birde hangi satıra kadar saydırmak istiyorsunuz.

 

[wolfstr]

birbirinden farklı 6 harfi saydıracagım hazırlayacağım tabloda
5. satırdan 35. satıra kadar

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:82ff20fd8f]Sub egersay()
deg = Array("a", "b", "c", "d", "e", "f")
For a = 0 To 5
say = WorksheetFunction.CountIf([b5:f35], deg(a)) + say
Next
[a1] = say
End Sub
[/vb:1:82ff20fd8f]

 

[wolfstr]

işime çok yaradı sağolun çok olmazsa bir konuda daha yardım istiyorum aynı makroyu başka bir hücre aralığınıdakileri saydırıp b1 hücresine nasıl yazrırım
makroyu ona göre tekrarmı yazmamlazım

 

[Levent Menteşoğlu]

Bu durumda aşağıda mavi renki satırları ilave edebilirsiniz.

[vb:1:e48189f8fe]Sub egersay()
deg = Array("a", "b", "c", "d", "e", "f")
For a = 0 To 5
say = WorksheetFunction.CountIf([b5:f35], deg(a)) + say
say1 = WorksheetFunction.CountIf([g5:m35], deg(a)) + say1
Next
[a1] = say
[b1] = say1
End Sub
[/vb:1:e48189f8fe]

 

[wolfstr]

yardımınız için çok teşekkür ederim