Combox1'de 1 seçtiğimizde Combox2'ye otamatik veri alma, CheckBox'a Onay yaptırma

[gora]

Emeğinizi ve bilginizi paylaşmaktan çekinmediğiniz,
Benim gibilere için çok zor gelen,
Sizin için basit sorulara sabır göstererek yanıtladığınız teşekkür şimdiden teşekkür ederim.

Formu çok gezdim bu konuda, bir çok paylaşılan belge ve belgeyi projemde denedim, koları aldım projeme uydurarak denedim ama, beceremedim,

Yapmak isteyipte yapamadığım
Projemdeki PersonelData sayfasında bulunan;
Ünv.Kodu Comboxsunda 1'i (Parametreler C2:C) seçtiğimde,
Unvan Combokx'a (Parametreler D2) Ünvanlarının Listelenmesi

Birde PersonelData Formunda bulunan, Yol İzni Kullandı mı sorusuna CheckBox'ta onay yaptığımda "EVET", onayı kaldırdığımda "HAYIR" olarak kayıt yapması.

 

[vardar07]

Aşağıdaki kodları userform a ekleyiniz. Checkbox evet/hayır'ı nereye yazacak.

Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then: ComboBox2.RowSource = "Parametreler!d2:d" & [Parametreler!d65536].End(3).Row
End Sub

Private Sub ComboBox6_Change()
If ComboBox6 <> "" Then: ComboBox7.RowSource = "Parametreler!g2:g" & [Parametreler!g65536].End(3).Row
 End Sub

Private Sub UserForm_Initialize()    
    Dim say As Integer
    'Sheets("Sayfa1").Select
    txtsira.Locked = True
    If Range("d2") = "" Then
        say = WorksheetFunction.CountA(Range("d1:d65000"))
        cbAd.RowSource = "B2:B" & say + 1
    Else
        say = WorksheetFunction.CountA(Range("d1:d65000"))
        cbAd.RowSource = "B2:B" & say
    End If
    txtsira.Value = say
    cbAd.SetFocus
 ComboBox1.RowSource = "Parametreler!c2:c" & [Parametreler!c65536].End(3).Row
 ComboBox6.RowSource = "Parametreler!h2:h" & [Parametreler!h65536].End(3).Row 
   End Sub

 

[gora]

Aşağıdaki kodları userform a ekleyiniz. Checkbox evet/hayır'ı nereye yazacak.

Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then: ComboBox2.RowSource = "Parametreler!d2:d" & [Parametreler!d65536].End(3).Row
End Sub

Private Sub ComboBox6_Change()
If ComboBox6 <> "" Then: ComboBox7.RowSource = "Parametreler!g2:g" & [Parametreler!g65536].End(3).Row
 End Sub

Private Sub UserForm_Initialize()    
    Dim say As Integer
    'Sheets("Sayfa1").Select
    txtsira.Locked = True
    If Range("d2") = "" Then
        say = WorksheetFunction.CountA(Range("d1:d65000"))
        cbAd.RowSource = "B2:B" & say + 1
    Else
        say = WorksheetFunction.CountA(Range("d1:d65000"))
        cbAd.RowSource = "B2:B" & say
    End If
    txtsira.Value = say
    cbAd.SetFocus
 ComboBox1.RowSource = "Parametreler!c2:c" & [Parametreler!c65536].End(3).Row
 ComboBox6.RowSource = "Parametreler!h2:h" & [Parametreler!h65536].End(3).Row 
   End Sub

Elinize, Emeğinize sağlık teşekkür ederim, harika olmuş.

Ama ben ilişkilendirmeyi yanlış yapmış yanlış ifade etmişim özür dilerim.
Benim yapmak istediğim, combox1 Ünvanını seçtiğimde,
Combox ya da
TextBoxsa Ünvanına karşılık gelen kodu kendisi otomatik yazabilirmi.
Örneğin Comboxsa (Psikolog)u seçtiğimde,
Combox ya da
TextBoxsa Psikoloğun kodu olan 12'yi otamatik yazabilir mi?

Birde Hocam Checkbox evet/hayır'ı PersonelData Sayfasının DD stünuna yazabilir.