Kişi ve Gününü Seç Ders Ata

[Feylosof]

İyi akşamlar diliyorum herkese;
Ekli dosyada detaylı açıklama yapmaya çalıştım.
Userform üzerinde öğretmeni ve dersi combobox ile günü optionbutton ile seçtikten sonra düğmeye basılınca dersin atanmasını istiyorum. Yardımını esirgemeyecek olan excel sevenlere şimdiden teşekkür ediyorum.

 

[EmrExcel16]

Deneyiniz.

Private Sub CommandButton1_Click()
Dim i, Optx, gun
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        If Cells(i, 1) = ComboBox1.Value Then
            For Each Optx In Me.Controls
                If TypeName(Optx) = "OptionButton" Then
                    gun = gun + 1
                    If Optx.Value Then
                        Cells(i, gun + 1) = ComboBox2.Value
                    End If
                End If
            Next
        End If
    Next
End Sub

 

[Feylosof]

Üstadım @EmrExcel16 çok teşekkür ederim. Tam istediğim gibi olmuş sağ olun.

 

[EmrExcel16]

Üstadım @EmrExcel16 çok teşekkür ederim. Tam istediğim gibi olmuş sağ olun.

Rica ederim , güle güle kullanın iyi çalışmalar.