Seçilen CheckBox'lara göre Combobox'a değer atama hakkında...

[yesimgurol]

Merhabalar,yardımlarınızla oluşturmaya çalıştığım hasta kayıt formunda bir düzenlemeye ihtiyacım oldu şöyle ki;
userform 2 de çalışılacak testler var bu testleri CheckBox'larla seçmekteyim.
Seçtiğim "CheckBox" daki değerler Texbox12'ye aktarılmakta şu kodlar ile;

Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 27
    If Me.Controls("CheckBox" & i).Value = True Then
        deg = deg & "-" & Me.Controls("CheckBox" & i).Caption
    End If
Next i
deg = Right(deg, Len(deg) - 1)
anadn.TextBox12.Text = deg
Unload Me
End Sub

Acaba userform 2 de bulunan
1-18 aralığındaki herhangi bir "CheckBox" seçildiğinde ve ONAY butonuna bastığımda combobox1'e "ICP"
19-26 aralığındaki herhangi bir "CheckBox" seçildiğinde combobox1'e "GC"
yazdırılabilir mi?

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton2_Click()
    For X = 1 To 18
        If Me.Controls("CheckBox" & X).Value = True Then
            anadn.ComboBox1 = "ICP"
            Exit For
        End If
    Next
    
    For X = 19 To 26
        If Me.Controls("CheckBox" & X).Value = True Then
            anadn.ComboBox1 = "GC"
            Exit For
        End If
    Next
    
    Unload TESTLER
End Sub

 

[yesimgurol]

Korhan Bey,çok teşekkürler evet istediğim gibi olmuş.:bravo::mutlu::mutlu: