ComboBox a veri alma

[acebeci]

Aşağıdaki gibi bir formülle LİSTE sayfasındaki verileri comboBox 1 e alıyorum yanlız burdaki sorunum şu combobox'a bir harf (yada birkaç harf)yazıp sildikden sonra veriler sıralanıyor yani birşey yazıp silmezsem combobox boş gözüküyor bunu nasıl düzeltebilirim yardımcı olabilirmisiniz çok sevinirim.şimdiden hepinize teşekkür ederim.

Private Sub ComboBox1_Change()
ComboBox1.RowSource = "LİSTE!a1:a5000"
End Sub

 

[acebeci]

Arkadaşlar teşekkür ederim sorunu çözdüm şu kodu kullandım umarım doğrudur
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "'LİSTE'!A2:A1000"
ComboBox1.ListIndex = 0
End Sub

 

[SCOCUK]

Öncelikle merhaba formuma eklemiş olduğum ComboBox1 e

ComboBox1.List = Application.Transpose(Range("C1:F1"))

Bu kod ile belirtilen hücre aralığında değerler combobox1 e geliyor sorum şurada başlıyor

Ben ComboBox1 = "C1" hücresi ise

ComboBox2 de C2 ile C10 hücre aralığında olan verilerin gelmesini,

Ben ComboBox1 = "D1" hücresi ise

ComboBox2 de D2 ile D10 hücre aralığında olan verilerin gelmesini,

gibi devam etmesini istiyorum ama bir türlü bir çok kod denememe rağmen olmuyor bu konuda bana yardımcı olabilir misiniz acaba

 

[Korhan Ayhan]

Deneyiniz.

Private Sub ComboBox1_Change()
    Select Case Left(ComboBox1, 1)
        Case "C": Adres = "C2:C10"
        Case "D": Adres = "D2:D10"
        Case "E": Adres = "E2:E10"
        Case "F": Adres = "F2:F10"
    End Select
    ComboBox2.List = Application.Transpose(Range(Adres))
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.List = Application.Transpose(Range("C1:F1"))
End Sub

 

[SCOCUK]

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa2!B1:B6"
' B SATIRINDA BİLGİSAYAR, YAZICI, GİBİ VERİLER VAR


If ComboBox1.Text = "[A1]" Then
ComboBox2.Items.Add = "Sayfa1!A2:10"
ElseIf ComboBox1.Text = "[A2]" Then
ComboBox2.Items.Add = "Sayfa1!A2:A10"
End If
End Sub

Bu kod neden çalışmıyor acaba
Combobox1 = A1 hücresi ise Combobox2 de A2:A10 açılsın
Combobox1 = B1 hücresi ise Combobox2 de B2:B10 açılsın
Combobox1 = C1 hücresi ise Combobox2 de C2:C10 açılsın
.
.
gibi açılsın istiyorum ama bir türlü olmuyor

 

[SCOCUK]

Deneyiniz.

Private Sub ComboBox1_Change()
    Select Case Left(ComboBox1, 1)
        Case "C": Adres = "C2:C10"
        Case "D": Adres = "D2:D10"
        Case "E": Adres = "E2:E10"
        Case "F": Adres = "F2:F10"
    End Select
    ComboBox2.List = Application.Transpose(Range(Adres))
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.List = Application.Transpose(Range("C1:F1"))
End Sub

üstadım malesef bu kod çalışma ne demek veya ne yapmak istediğimi tekrar yazdım bu kod çok acil olarak lazım projemin temelinde bu kodlar lazım olacak

 

[Mahmut Bayram]

http://www.dosya.tc/server10/a0qz76/combobx-sartli_listeleme.zip.html

 

[SCOCUK]

http://www.dosya.tc/server10/a0qz76/combobx-sartli_listeleme.zip.html

Mahmut bey merhaba vermiş olduğunuz linkteki dosyayı indirdim ancak "F" sutununa gelince hata veriyor kodu uzattığımı zaman ancak 4 sütun uzunluğunda çalışıyor mantıksız geldi ama bir türlü çözemedim.

Bu konuda yardımcı olursanız çok sevinirim. Çünkü bütün projemin temeli bu kod olacak. İlginiz için şimdiden çok teşekkür ederim.

 

[Mahmut Bayram]

http://s5.dosya.tc/server5/v86sbm/combobx-sartli_listeleme.zip.html