Soru Excel Ado Listeleme

[hlojan]

Merhabalar;

Excel Ado distrinct özelliğini kullanmak istiyorum

Select [Anasayfa$A110] şeklinde seçmek istiyorum


Combobox1 listelemesini A sütunundan yenilenen kayıtları kaldırarak listelemek

Combobox2 listelemesini combobox1 e göre seçerek B sütunundan yenilenen kayıtları kaldırarak listelemek

Combobox2 listelemesini combobox2 e göre seçerek C sütunundan listelemek

Yardımlarınızı bekliyorum

 

[hlojan]

Konu hakkında hala çözüm bulamadım

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki kodu deneyebilir misiniz.

Private Sub ComboBox1_Click()
ComboBox2.Value = ""
ComboBox3.Value = ""

End Sub

Private Sub ComboBox1_GotFocus()

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

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

sorgu = "select distinct [SEGMENT 1] from [sayfa1$]"
ComboBox1.Column = con.Execute(sorgu).getrows

Set con = Nothing

End Sub

Private Sub ComboBox2_Click()
ComboBox3.Value = ""
End Sub

Private Sub ComboBox2_GotFocus()
Set con = VBA.CreateObject("adodb.Connection")

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

sorgu = "select distinct [SEGMENT 2] from ( select [SEGMENT 2] from [sayfa1$]  WHERE [SEGMENT 1] = '" & ComboBox1.Value & "') "
'Set a = con.Execute(sorgu)
ComboBox2.Column = con.Execute(sorgu).getrows

Set con = Nothing

End Sub

Private Sub ComboBox3_GotFocus()
Set con = VBA.CreateObject("adodb.Connection")

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

sorgu = " select distinct [SEGMENT 3]  from ( select [SEGMENT 3] from [sayfa1$]  WHERE [SEGMENT 1] = '" & ComboBox1.Value & "' and [SEGMENT 2] =  '" & ComboBox2.Value & "' ) "
'Set a = con.Execute(sorgu)
ComboBox3.Column = con.Execute(sorgu).getrows

Set con = Nothing

End Sub

 

[hlojan]

Harika teşekkürler