Arkadaşlar ektr yolladığım dosyamda comboboxa girdiğim veriyi excel e kaydediyor ama benim istediğim sonra tekrar giriş yaptığımda önce girilen veriyi seçmem ama boşluklar olmadan hatta aynı isimleride tekrar tekrar göstermez ise çok makbul olur. Bu isteğimi bir türlü beceremedik tek çarem siz kaldınız yardımlarınızı bekliyorum teşekkürler.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Combobox u kullanamıyorum
- Konbuyu başlatan YASINT
- Başlangıç tarihi
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,057
- Excel Vers. ve Dili
-
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Ã?rneğin userform2 ye aşağıdaki kodu yazarak deneyin.
[vb:1:d0c2d2027c]Private Sub UserForm_Initialize()
Set s1 = Sheets("12.12.2005")
For a = 5 To s1.[a65536].End(3).Row
If WorksheetFunction.CountIf(s1.Range("b5:b" & a), s1.Cells(a, "b")) = 1 Then ComboBox1.AddItem s1.Cells(a, "b")
If WorksheetFunction.CountIf(s1.Range("c5:c" & a), s1.Cells(a, "c")) = 1 Then ComboBox2.AddItem s1.Cells(a, "c")
Next
End Sub
[/vb:1:d0c2d2027c]
[vb:1:d0c2d2027c]Private Sub UserForm_Initialize()
Set s1 = Sheets("12.12.2005")
For a = 5 To s1.[a65536].End(3).Row
If WorksheetFunction.CountIf(s1.Range("b5:b" & a), s1.Cells(a, "b")) = 1 Then ComboBox1.AddItem s1.Cells(a, "b")
If WorksheetFunction.CountIf(s1.Range("c5:c" & a), s1.Cells(a, "c")) = 1 Then ComboBox2.AddItem s1.Cells(a, "c")
Next
End Sub
[/vb:1:d0c2d2027c]
k::