Satırı ComboBox'a başlamak

[yavuz829]

Merhaba arkadaşlar ekli dosyama ComboBox1 ekledim B sütunundaki verileri ComboBox1 bağlıyamadım. Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Merhaba,

Formunuzun açılış olayına aşağıdaki kodu ekleyip deneyin.

Sheets("Veri").Columns("B:B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Veri").Range("AA1"), Unique:=True
Set Liste = Sheets("Veri").Range("AA2:AA" & Sheets("Veri").Cells(Rows.Count, "AA").End(3).Row)
ComboBox1.List = Application.Transpose(Liste)
Sheets("Veri").Columns("AA:AA").Delete

 

[yavuz829]

Çok, çok teşekkürler hocam ellerinize sağlık.