COMBOBOX SAYDIRMA

[BYSERTTAS]

selamlar.
userform uzerinde 12 adet ComboBox var. bunlardan ilk 6 tanesinde eger secim yapıldıysa yanı dolu ise (2 tane dolu ise 4 tane bos ise sonucu 2 verecek) dolu olanları sayıp textbox1 e sonucu nasıl yazdırabilirim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub CommandButton1_Click()
    Dim X As Byte, Say As Byte
    
    For X = 1 To 6
        If Me.Controls("ComboBox" & X) <> "" Then
            Say = Say + 1
        End If
    Next
    
    TextBox1 = Say
End Sub

 

[BYSERTTAS]

Deneyiniz.

Option Explicit

Private Sub CommandButton1_Click()
    Dim X As Byte, Say As Byte
   
    For X = 1 To 6
        If Me.Controls("ComboBox" & X) <> "" Then
            Say = Say + 1
        End If
    Next
   
    TextBox1 = Say
End Sub

korhan hocam hızır gibi yetişiyorsunuz.şükranlarımı dunuyorum