ComboBox (UserFormsuz uygulama)

[hmustafay]

slm arkadaşlar
ekteki combobox asayfa 2 deki verileri almaya çalışyorum. Forumdaki öreneklerin çoğu Userforma göre yapılmış örnek almaya çalıştım ama herseferinde sorun yaşadım
sorunlarım
1 YA her seferinde veriyi silmeden çoğaltarak geliyor.
2 YADA excel ilk çalıştığında kodlar çalışmıyor.
Yardımcı olabilirmisiniz

 

[meslan]

Merhaba ekteki dosyada combo nun özelliklerini inceleyiniz.

 

[hmustafay]

Merhaba ekteki dosyada combo nun özelliklerini inceleyiniz.

Cevabınız için teşekkür ederim . Arkadaşım.

 

[hmustafay]

Kodla yazarsak nasıl olur
Bu yöntem sayfadaki boş hücrelerinde gözükmesine neden oluyor

 

[meslan]

Merhaba

Private Sub Workbook_Open()
Sheets("GİRİŞ").ComboBox1.Clear
For i = 1 To Sheets("Kont").[a65536].End(3).Row
If Sheets("Kont").Cells(i, 1).Value <> Empty Then
Sheets("GİRİŞ").ComboBox1.AddItem Sheets("Kont").Cells(i, 1).Value
End If
Next
End Sub

Aynı kodu
Worksheet in Activate olyına da uygula

 

[hmustafay]

Teşekkür ederim