Combobox, Aktif hücre problemi (Kod uyumsuzluğu)

[vivident]

Arkadaşlar yardım istiyorum. Kodlarım aşağıdaki gibidir.

1) İki combobox arasındaki ilişkiyi sağlamak için kodum ;

Dim con As Object
Private Sub ComboBox1_Change()
ComboBox2.Clear
ComboBox2.Column = con.Execute("select distinct REFERANS from [sayfa2$] where MAKINA ='" & ComboBox1.Text & "'").getrows
End Sub
Private Sub UserForm_Activate()
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=yes"""
ComboBox1.Column = con.Execute("select distinct MAKINA from [Sayfa2$]").getrows
End Sub
Private Sub UserForm_Terminate()
Set con = Nothing
End Sub

2) Aktif hücrelere combobox verilerini eklemek için kodum

Private Sub CommandButton1_Click()
    Cells(ActiveCell.Row, "D") = ComboBox1.Value
    Cells(ActiveCell.Row, "E") = ComboBox2.Value
    Cells(ActiveCell.Row, "F") = ComboBox3.Value
    Cells(ActiveCell.Row, "I") = ComboBox4.Value
    Unload Me
End Sub

3) Dolu olan hücrelere tıklandığından açılan userform üzerindeki comboboxların içinin dolu gelmesi için kodum

Private Sub UserForm_Initialize()
ComboBox1.Value = Cells(ActiveCell.Row, "D")
ComboBox2.Value = Cells(ActiveCell.Row, "E")
ComboBox3.Value = Cells(ActiveCell.Row, "F")
ComboBox4.Value = Cells(ActiveCell.Row, "I")
End Sub

-----------------------------------------------
1 ile 2 kod çalışıyor
2 ile 3 kod çalışıyor
1-2-3 hepsini kullanınca çalışmıyor
1 ve 3 kodları birlikte çalışıtıramıyorum
Lütfen yardım edin

 

[Muzaffer Ali]

1. kod dediğiniz bölümde tam olarak ne yapmak istiyosunuz? tek sorun burada var çünkü.

 

[vivident]

1.Kod ; Userform üzerinde dört adet combobox var. İki combobox (Makine ve Referans) birbirleriyle ilişkili. Yani "Makine" comboboxsında seçilen değere göre "referans" comboboxsında alt değerler çıkıyor (İl-İlçe mantığı gibi)

2.Kod ; Aktif hücrenin seçilmesi için kullanıyorum

3.Kod ; Dolu hücre seçildiğinde comboboxlarda hücrelerin o anki değerleri otomatik gelmiş oluyor

 

[Muzaffer Ali]

Makine ve Referans nasıl bir ilişkisi var? açıklama yapar mısınız.
örneğin Makine P10 seçiliyse Referans ComboBox una hangi verileri alacağız?
bunun gibi bir iki örnek daha verirseniz sorununuzu çözmeye çalışacağım.

 

[vivident]

Makine ve Referans nasıl bir ilişkisi var? açıklama yapar mısınız.
örneğin Makine P10 seçiliyse Referans ComboBox una hangi verileri alacağız?
bunun gibi bir iki örnek daha verirseniz sorununuzu çözmeye çalışacağım.

Makine P10 ise ; Referans A,B,C olmalı
Sayfa2 kısmında P10 karşılık gelen harfler

Kod3'ü silerek yeni dosya ekledim. Mesela orada herşey çalışıyor. Fakat bu seferde dolu hücreye tıkladığımda ; açılan userform içindeki comboboxlarda hücre değerleri otomatik yazılı değil. Boş

 

[Muzaffer Ali]

Hatayı görmezden gel yapınca sorun kalmıyor

Private Sub ComboBox1_Change()
[COLOR="Red"]On Error Resume Next[/COLOR]
ComboBox2.Clear
ComboBox2.Column = con.Execute("select distinct REFERANS from [sayfa2$] where MAKINA ='" & ComboBox1.Text & "'").getrows
End Sub

 

[vivident]

Yardımlarınızın için teşekkür ediyorum. Herşey çalışıyor