Textbox Dolu Sayma

[celikomerh]

Selamlar.
10 adet textbox'ım var ve isimleri Textbox3-5-7-9-11-13-15-17-19-21.
Textbox24'e dolu olanların sayısını yazmak istiyorum, mümkün müdür?

excel'deki bağ_değ_dolu_say gibi

 

[Mdemir63]

Selamlar

Form üzerine bahsettiğiniz textboxları yerleştirdikten sonra
bir buton ekleyip aşağıdaki kodları buton içine ekleyip deneyiniz.

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim say As Double
    say = 0
   
    For i = 3 To 21 Step 2
        If Me.Controls("TextBox" & i).Text <> "" Then
            say = say + 1
        End If
    Next i
    Me.TextBox24.Value = say
End Sub

 

[celikomerh]

Selamlar

Form üzerine bahsettiğiniz textboxları yerleştirdikten sonra
bir buton ekleyip aşağıdaki kodları buton içine ekleyip deneyiniz.

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim say As Double
    say = 0
  
    For i = 3 To 21 Step 2
        If Me.Controls("TextBox" & i).Text <> "" Then
            say = say + 1
        End If
    Next i
    Me.TextBox24.Value = say
End Sub

teşekkürler Mdemir63
peki bunu butonsuz yapamazmıyım ?

 

[Korhan Ayhan]

Konu hangi durumda çalışmasını istiyorsanız o olayın altına tanımlayabilirsiniz.

 

[celikomerh]

Konu hangi durumda çalışmasını istiyorsanız o olayın altına tanımlayabilirsiniz.

10 adet textbox'ım var içlerine veri girildiğinde çalışmasını istiyorum.
Her textbox'ın içine tektek yazmam gerekirmi ?

 

[Korhan Ayhan]

Yazılan kodu fonksiyon olarak derleyip bahsi geçen her TextBox nesnesinin Change olayına bağlayabilirsiniz.

Ya da Class Module kullanabilirsiniz.

 

[Mdemir63]

teşekkürler Mdemir63
peki bunu butonsuz yapamazmıyım ?

TextBox' lara veri girerek deneyiniz

inceleyiniz

 

[celikomerh]

TextBox' lara veri girerek deneyiniz

inceleyiniz

@Mdemir63 Allah razı olsun, üşenmeden dosya hazırlamışsın. İstediğim gibi oldu.

@Korhan Ayhan 'bey size de çok teşekkür ederim

 

[Mdemir63]

@Mdemir63 Allah razı olsun, üşenmeden dosya hazırlamışsın. İstediğim gibi oldu.

@Korhan Ayhan 'bey size de çok teşekkür ederim

Rica ederim.
İyi çalışmalar