OptionButton ile secip ComboBox Listeleme

[mbasaranyt]

UserForm üstündeki optButton secimine gore ComboBox da Listelenmesi

 

[hamitcan]

Kodları aşağıdaki şekilde değiştirin.

Private Sub OptionButton1_Click()
    If OptionButton1 Then
        For Each hcr In [b2:b10]
            If hcr.Offset(0, 1) = "Memur" Then ComboBox1.AddItem hcr
        Next
    End If
End Sub

Private Sub OptionButton2_Click()
    If OptionButton2 Then
        For Each hcr In [b2:b10]
            If hcr.Offset(0, 1) = "İşçi" Then ComboBox1.AddItem hcr
        Next
    End If
End Sub

Private Sub UserForm_Initialize()
OptionButton1.Value = True
End Sub

 

[İsmail Küçükşengün]

Sayın Hamitcan;

Memurlar seçildiğinde memurlar geliyor. Fakat İşçiler tıklandığında, memur ve işçiler hepsi listeleniyor.

 

[hamitcan]

Kodun başına "ComboBox1.Clear" ekleyin.

 

[İsmail Küçükşengün]

Kodun başına "ComboBox1.Clear" ekleyin.

Sayın Hamitcan;

Çok teşekkürler.

 

[mbasaranyt]

hamitcan kardeş ellerine sağlik,ilginize teşekkürler
İyi Çalışmalar.