Soru Combobox1 e göre Combobox2 ye veri çekme

[leonadies]

Üstadlar Merhaba;

Combobox1 e G:G sütununu aktarabiliyorum.
Combobox2 de ise Combobox1 teki seçime göre H:H sütunda denk gelen aynı satırları benzersiz ve varsa boşlukları almadan eklemek istiyorum.

Yardımcı olabilir misiniz?

 

[Erdem Akdemir]

Aşağıdaki kod bloğunu kullanabilirsiniz.

Public con

Private Sub ComboBox1_Change()

ComboBox2.Value = ""

sorgu = "select distinct f2 from [Sayfa1$G:H] where f1 = '" & ComboBox1.Value & "' and f2  is not null"
Set rs = con.Execute(sorgu)

ComboBox2.Column = rs.getrows

End Sub

Private Sub ComboBox2_Enter()
If ComboBox1.Value = "" Then MsgBox "Renk seçiniz.": ComboBox1.SetFocus:  Exit Sub
End Sub

Private Sub UserForm_Initialize()

Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""

sorgu = "select distinct f1 from [Sayfa1$G:H]"
Set rs = con.Execute(sorgu)

ComboBox1.Column = rs.getrows

End Sub

 

[leonadies]

@Erdem Akdemir Üstadım elllerine sağlık Çok teşekkür ederim