Sutundaki büyük harfli kelimelerin adetini bulma

[NEMAKSAN]

saygılarla;
mesela A sutunuda
tamamı büyük harfle yazılı kelimelerle büyük küçük karışık kelimeler var
ben A sutununda sadece tamamı büyük harfle yazılmış olan kelime yada cümlelerin adetini B1 hücresinde görmek istiyorum
Bu işlemi formüller vasıtasıyla yapmak mümkünmüdür.
misal
A1 fabrika
A2 harita
A3 KİBAR
A4 SANDALYE
A5 Oyuncak Güzelmiş
A6 SINIF ARKADAŞI
VB.
Burada B1 hücresine 3 yazması gerekir

yardımlarınızı bekliyorum .
teşekkürler

 

[veyselemre]

=TOPLA.ÇARPIM((ÖZDEŞ(A1:A6;BÜYÜKHARF(A1:A6)))*1)

 

[İdris SERDAR]

Ekteki örneğe bakın.

 

[NEMAKSAN]

Sayın veyselemre,
teşekkür ederim ilginizden dolayı
yapmış olduğunuz formülde tamamı büyük harfli olan kelimelerin adetini vermiyor
ben tamamı büyük olan kelime veya cümlelerin adetini görmek istiyorum
teşekkürler

 

[mesudiye_052]

Dizi formül:
=TOPLA(EĞER(A1:A10<>"";EĞER(EHATALIYSA(BUL(BÜYÜKHARF(A1:A10);A1:A10;1));0;1))) formülünü yazdıktan sonra ctrl+shift+enter tuşlarına sırayla basınız aşağıdaki şekli alacaktır

{=TOPLA(EĞER(A1:A10<>"";EĞER(EHATALIYSA(BUL(BÜYÜKHARF(A1:A10);A1:A10;1));0;1)))}
kolay gelsin

 

[Recep İpek]

Aşağıdaki fonksiyonu deneyebilirmisiniz.

Eğer kelimenin hepsi büyük harf ise hücreye 1, değil ise 0 yazıyor.

Sonra 1'lerin toplamını alabilirsiniz.


[vb:1:558f7fcae0]
Function KONTROL01(hücre As Range)
Dim i, u, k, s, y As Long
On Error Resume Next
u = Len(hücre)
s = 0
For i = 1 To u
k = Asc(Mid(hücre, i, 1))
If k >= 65 And k <= 90 Then
s = s + 1
End If
If k >= 192 And k <= 222 Then
s = s + 1
End If
If s = u Then
y = y + 1
Else
y = 0
End If
Next i
KONTROL01 = y
End Function
[/vb:1:558f7fcae0]

 

[NEMAKSAN]

Arkadaşlar cevaplarınızdan dolayı teşekkür ederim

 

[Korhan Ayhan]

Selamlar,

Sn. veyselemre beyin ve Sn. yurttas beyin önerdiği formülü aşağıdaki gibi uygularsanız verdiğiniz aralıktaki boş hücreleri hesaba katmaz ek bir bilgi olarak vermek istedim.

=TOPLA.ÇARPIM((A1:A100<>"")*(ÖZDEŞ(A1:A100;BÜYÜKHARF(A1:A100))))