Textbox'lardaki Metinleri eğersay Label'a yaz

[blackmound]

Merhabalar,
birden fazla textboxların içindeki "iyi" içeren metinlerin toplam sayısını label a yazdırmak istiyorum aşağıdaki kodla başaramadım,

for x=5 to 25
Label1.Caption = Application.CountIf(Controls("Textbox" & x), "iyi")

 

[Orion1]

Textbox lar sayfadamı,userformdamı?

 

[blackmound]

Textbox lar sayfadamı,userformdamı?

userformda

 

[Orion1]

Buyurun.

Dim x As Byte
For x = 5 To 25
    If InStr(1, Me.Controls("TextBox" & x), "iyi") > 0 Then
        Label1.Caption = Me.Controls("TextBox" & x)
        MsgBox Me.Controls("TextBox" & x)
        Exit For
    End If
Next

 

[blackmound]

Çok teşekkürler kod çalışıyor fakat toplam almıyor
sadece label'a "iyi" yazıyor 5 il 25 arasındaki textboxlarda kaçtane "iyi" kelimesi geçiyorsa
mesela 12 tanesinde "iyi" kelimesi geçiyor label1 e 12 yazacak.
sorumdada belirttiğim gibi eğersayacak yani "iyi" 8 textboxta var sonuç=8 label1 captionuna 8 yazacak.

 

[Orion1]

Buyurun.

Dim x As Byte, say As Byte
For x = 5 To 25
    If InStr(1, Me.Controls("TextBox" & x), "iyi") > 0 Then
        say = say + 1
    End If
Next
Label1.Caption = say & " adet var."

 

[blackmound]

kusursuz..
teşekkürler kolay gelsin.

 

[blackmound]

konuyla alakalı bir sorum daha olacak aynı yazdığınız kodları kullanarak userformumda çok sayıda textbox var 254 textbox a kadar sıkıntı yok fakat 255 deyince ve yukarısa hata veriyor araştırmama rağmen bir şey bulamadım birde "iyi" kelimesini label1 e yazıyor "kötü" geçerse label2 "orta" geçerse label3 atma şanzımız varmı kodları uzatarak yapıyorum ben kısa bir yolu vardır muhakkak

 

[Orion1]

İlgili yeri aşağıdaki kod ile değiştiriniz.

Dim x As integer, say As İnteger

 

[blackmound]

te

İlgili yeri aşağıdaki kod ile değiştiriniz.

Dim x As integer, say As İnteger

çalıştı teşekkürler mesajın sonunu düzeltterek yazdığımdan görmediniz galiba

"birde "iyi" kelimesini label1 e yazıyor "kötü" geçerse label2 "orta" geçerse label3 atma şanzımız varmı kodları uzatarak yapıyorum ben kısa bir yolu vardır muhakkak "

yazmıştım çok teşekkürler tekrar..

 

[Orion1]

Buyurun.

Dim x As Integer, iyi As Integer, orta As Integer, kotu As Integer
For x = 5 To 25
    If InStr(1, Me.Controls("TextBox" & x), "iyi") > 0 Then
        iyi = iyi + 1
    End If
    If InStr(1, Me.Controls("TextBox" & x), "kötü") > 0 Then
        kotu = kotu + 1
    End If
    If InStr(1, Me.Controls("TextBox" & x), "orta") > 0 Then
        orta = orta + 1
    End If
Next
Label1.Caption = iyi & " adet iyi var."
Label2.Caption = kotu & " adet kötü var."
Label3.Caption = orta & " adet orta var."

 

[blackmound]

elinize sağlık sağolun.

 

[Orion1]

Rica ederim.
İyi çalışmalar.