karma kutu özellikleri

[mpinal]

ekteki dosyamda anlatmaya çalıştım.Karma kutu içinde beliren sıfır değerlerini silebilirmiyim. karma kutu içindeki isimleri alfabetik olarak sıralayabilirmiyim?Yardımcı olursanız sevinirim.Teşekkürler.

 

[hamitcan]

Private Sub ComboBox1_DropButtonClick()
    Sayfa1.ComboBox1.Clear
    [A3:A500].Copy [B3]
    [B3:B500].Sort KEY1:=[B3], ORDER1:=xlAscending
    For i = 3 To 500
    If Cells(i, 2) <> 0 Then Sayfa1.ComboBox1.AddItem Cells(i, 2)
    Next
    Columns(2).Clear
End Sub

 

[mpinal]

teşekkürler

Private Sub ComboBox1_DropButtonClick()
    Sayfa1.ComboBox1.Clear
    [A3:A500].Copy [B3]
    [B3:B500].Sort KEY1:=[B3], ORDER1:=xlAscending
    For i = 3 To 500
    If Cells(i, 2) <> 0 Then Sayfa1.ComboBox1.AddItem Cells(i, 2)
    Next
    Columns(2).Clear
End Sub

sayın Hamitcan, ilginize ve emeğinize teşekkür ederim fakat liste aşağı doğru açıldığında isme tıklayınca kutu içine yazmıyordolayısıyla tıkladığım isim kutu içinde belirmiyor bir kez daha zaman ayırıp bakabilirmisiniz. Mesajımı yazdıktan sonra incelerken(kod yazmayı bilmiyorum yazdığınızı çözmeye çalışıyorum) "Sayfa1.ComboBox1.Clear" metnini kod dan sildim şimdi çalışıyor sizden ricam zaman ayırabilirseniz 1-)silmekle hatamı yaptım? 2-) bunu kendi programıma uyarlayabilmem için kod satırlarına bir iki kelime açıklama yazabilirmisiniz?

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Sayfa1.ComboBox1.Clear
    [A3:A500].Copy [B3]
    [B3:B500].Sort KEY1:=[B3], ORDER1:=xlAscending
    For i = 3 To 500
    If Cells(i, 2) <> 0 Then Sayfa1.ComboBox1.AddItem Cells(i, 2)
    Next
    Columns(2).Clear
Application.EnableEvents = True
End Sub

 

[mpinal]

sayın hamitcan incelermisiniz

Private Sub ComboBox1_DropButtonClick()
    Sayfa1.ComboBox1.Clear
    [A3:A500].Copy [B3]
    [B3:B500].Sort KEY1:=[B3], ORDER1:=xlAscending
    For i = 3 To 500
    If Cells(i, 2) <> 0 Then Sayfa1.ComboBox1.AddItem Cells(i, 2)
    Next
    Columns(2).Clear
End Sub

yukarıda verdiğiniz kodu kendi programıma uygulamaya çalıştım
Private Sub ComboBox1_DropButtonClick()
[A100:A600].Copy [B100]
[B100:B600].Sort KEY1:=[B100], ORDER1:=xlAscending
For i = 100 To 600
If Cells(i, 2) <> 0 Then Sayfa13.ComboBox1.AddItem Cells(i, 2)
Next
Columns(2).Clear
End Sub

burada sürekli
kırmızı renkli satırda hata veriyor birde colums(2).clear anlayabildiğim kadarıyla tüm b sütununu siliyor ben b100 den itibaren silmesini istiyorum nasıl yapmalıyım.teşekkürler Buarada sayfaya benim verdiğim isim ana vba ismi sayfa 13

 

[hamitcan]

ComboBox1_DropButtonClick başlıklı kodu silip 4 nolu mesajda verdiğim kodu ekleyin.