ListIndex ile Option butonunu seçmek

[sdegirmenci]

Merhaba;
Ekli dosyamda Form üzerinde ComboBox da ListIndex ile seçilen sırada, Fiş sütunu sırsında "kasa" varsa, optionbutton kasa seçilsin, "mahsup" varsa optionbutton mahsup seçilsin. Çok Uğraştım ama yapamadım bu konuda yardımcı olabilirseniz sevinirim.İlginize şimdiden çok teşekkür ediyorum.

 

[Ömer]

Merhaba;
Ekli dosyamda Form üzerinde ComboBox da ListIndex ile seçilen sırada, Fiş sütunu sırsında "kasa" varsa, optionbutton kasa seçilsin, "mahsup" varsa optionbutton mahsup seçilsin. Çok Uğraştım ama yapamadım bu konuda yardımcı olabilirseniz sevinirim.İlginize şimdiden çok teşekkür ediyorum.

Merhaba,

"Set GR = Nothing" satırından önce aşağıdaki kodları ekleyin.

If GR.Cells(ComboBox1.ListIndex + 3, "B") = "kasa" Then
    kasa.Value = True
Else
    mahsup.Value = True
End If

.

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Click()
On Error Resume Next
Controls(ComboBox1.Column(1)).Value = True
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "GİRİŞ!A3:B" & Sheets("GİRİŞ").Cells(Rows.Count, "B").End(xlUp).Row

End Sub

 

[sdegirmenci]

Merhaba;
Sayın Ömer ve Orion1; İlginize çok teşekkür ederim. İstediğim gibi oldu. İşleriniz kolay gelsin.