ComboBox Listeleme / Run time error '424'-Object Required

[NullHero]

Selamlar,
Ekteki dosyada, Userform içerisine 2 adet ComboBox ve 3 adet de Textbox ekledim.
Yapmak istediğim,
- İlk ComboBox(cbHammaddeCinsi) : Sayfa1 (Verilerin tutulacağı sayfa) de A sütununda olan, Tekrar eden isimleri, Tekrarsız bir şekilde açılır listede görmek. ( Levent Menteşoğlu üstadın, bir konu da paylaştığı kodlar ile gerçekleştirdim)
- İkinci ComboBox(cbHammaddeKodu : Sayfa1 de B sütununda bulunan Unique değerleri, A sütununda ki Tekrar edenler kadar göstermek. (İlk ComboBox 'da seçilen değere göre seçim yapabilmek)
- Textboxlara ise, ikinci ComboBox değerine göre "C,D ve E" sütunlarındaki değerleri yazdırmak .

İkinci aşamayı (İkinci ComboBox 'a değer atama) yapamadım, "Object Required" hatası alıyorum.

Yardım edebilir misiniz ?

 

[Muzaffer Ali]

Merhaba.

Formun kodlarını silin aşağıdakileri kopyalayın.

Private Sub cbHammaddeCinsi_Change()
    HammaddeKoduAktar
End Sub

Private Sub cbHammaddeKodu_Change()
    Dim Bak As Integer
    For Bak = 2 To Sheets("Sayfa1").Range("A" & Rows.Count).End(xlUp).Row
        If Sheets("Sayfa1").Range("A" & Bak).Text = cbHammaddeCinsi.Text And Sheets("Sayfa1").Range("B" & Bak).Text = cbHammaddeKodu.Text Then
            tbUrunAdi.Text = Sheets("Sayfa1").Range("C" & Bak).Text
            tbUrunAciklama.Text = Sheets("Sayfa1").Range("D" & Bak).Text
            tbEbat.Text = Sheets("Sayfa1").Range("E" & Bak).Text
            Exit Sub
        Else
            tbUrunAdi.Text = ""
            tbUrunAciklama.Text = ""
            tbEbat.Text = ""
        End If
    Next
End Sub

Private Sub UserForm_Initialize()
    Dim a As Integer
    For a = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If WorksheetFunction.CountIf(Range("A1:A" & a), Cells(a, 1).Text) = 1 Then
            UserForm1.cbHammaddeCinsi.AddItem Cells(a, 1).Text
        End If
    Next a
End Sub

Sub HammaddeKoduAktar()
    Dim x As Integer, y As Integer
    cbHammaddeKodu.Clear
    y = Sheets("Sayfa1").Range("A" & Rows.Count).End(xlUp).Row
    For x = 2 To y
        If Sheets("Sayfa1").Range("A" & x).Text = cbHammaddeCinsi.Text Then '.List(cb.HammaddeCinsi.ListIndex, 0) Then
            cbHammaddeKodu.AddItem (Sheets("Sayfa1").Range("B" & x).Text)
        End If
    Next
End Sub

 

[NullHero]

Muzaffer bey,
Çok teşekkür ederim.

 

[NullHero]

Tekrar merhaba,

Bahse konu dosya (ektedir) 'ya alt satırlar eklediğimde, verileri TextBox lara almadığını farkettim.
Nerede bir eksiklik yapmış olabiliriz ?

 

[Muzaffer Ali]

Kodları düzelttim. Şimdi tekrar deneyin.

 

[NullHero]

Teşekkürler Muzaffer bey.