Çalışma sayfasında Combobox1'e göre Combobox2'ye veri alma

[ockucukay]

Merhaba Arkadaşlar

Forumda birçok konuyu inceledim ve kendi sayfama uyarlamaya çalıştım. Ancak istediğim şeyi yapamadım. Çünkü bir iki örnek dışında hepsi userform üstünde yapılmış. Benim yapmak istediğim şey şu;
Dok Giriş sayfasında doküman tipini seçtiğimde, o tipe ait doküman türleri aşağıdaki combobox2'de listelensin. Listelenen dökümanlardan sadece seçim yapılabilsin, elle yazılamasın. Disket tuşuna basıldığında comboboxtaki ve hücrelerdeki verileri Dok listesi sayfasına kaydetsin. İlgilenecek arkadaşlarıma şimdiden teşekkür ederim.

Not: Doküman türleri ve doküman tipi kaynak sayfası "Dokuman".

 

[Orion1]

Dosyanız eketedir.

Private Sub ComboBox1_Change()
Dim i As Long
Sheets("Dok Giriş").ComboBox2.Clear
For i = 2 To Sheets("Dokuman").Cells(65536, "B").End(xlUp).Row
    If Sheets("Dokuman").Cells(i, "B").Value = Sheets("Dok Giriş"). _
    ComboBox1.Value Then
        Sheets("Dok Giriş").ComboBox2.AddItem Sheets("Dokuman").Cells(i, "C").Value
    End If
Next i
If Sheets("Dok Giriş").ComboBox2.ListCount > 0 Then _
Sheets("Dok Giriş").ComboBox2.ListIndex = 0
End Sub

 

[ockucukay]

Dosyanız eketedir.

Private Sub ComboBox1_Change()
Dim i As Long
Sheets("Dok Giriş").ComboBox2.Clear
For i = 2 To Sheets("Dokuman").Cells(65536, "B").End(xlUp).Row
    If Sheets("Dokuman").Cells(i, "B").Value = Sheets("Dok Giriş"). _
    ComboBox1.Value Then
        Sheets("Dok Giriş").ComboBox2.AddItem Sheets("Dokuman").Cells(i, "C").Value
    End If
Next i
If Sheets("Dok Giriş").ComboBox2.ListCount > 0 Then _
Sheets("Dok Giriş").ComboBox2.ListIndex = 0
End Sub

sayın evren gizlen

hızlı cevabınız için çok teşekkür ederim. bende hemen kayıt kodlarını düzeltmek için çalışmalarıma döneceğim.

 

[Orion1]

sayın evren gizlen

hızlı cevabınız için çok teşekkür ederim. bende hemen kayıt kodlarını düzeltmek için çalışmalarıma döneceğim.

Rica ederim.
İyi çalışmalar.