Herkese merhaba, Ekteki dosyada Combobox'lar ile ilgili 2 sorum var. Daha önce kendi bilgisayarımda sorun olduğu için dosyanın içindekiler görünmüyordu. Ãimdi başka bilgisayarda yeniden hazırladım.Yardımcı olabilecek arkadaşlara teşekkürler.
Aslında sadece liste görünümü vermek için değil bir çok tuşa farklı komutlar,formüller eklediğim için bunları kullanıyorum.Hem Form lardaki comboyu kullanmış olsam bile aynı ihtiyaçlarım devam ediyor olacaktı. Çünkü sorduğum sorunun çözümü formlarda da yok ya da ben bilmiyorum. O yüzden bu sorum acil cevaplanırsa çok sevinirim. Ya da farklı bir çözümünüz varsa o da olur.
"karakter" değişkenini kendi fontuna göre ayarlıyabirsin
Private Sub Workbook_Open()
karakter = 5.5
bb = 0
For i = 2 To 65000
aa = Len(Sheets("Sayfa1").Range("S" & i))
If bb < aa Then
bb = aa
End If
Next
Sheets("Sayfa1").ComboBox1.Width = bb * karakter
End Sub
[vb:1:61cebe2469]Private Sub ComboBox1_DropButtonClick()
ComboBox1.ListWidth = 200
End Sub
[/vb:1:61cebe2469]
2.sorunuz içinde aşağıdaki kodu deneyin. Kodun hata vermemesi içinde comboboxun listfillrange özelliğine yazdığınız aralığı silin.
[vb:1:61cebe2469]Sub auto_open()
Set s1 = Sheets("sayfa1")
s1.ComboBox1.Clear
adres = s1.[s2:s65536].SpecialCells(xlCellTypeConstants, 2).Address
For Each hucre In s1.Range(adres)
If hucre <> 0 Then s1.ComboBox1.AddItem hucre
Next
End Sub
[/vb:1:61cebe2469]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.