ComboBox ile ListBox İlişkisi

[ozgretmen]

Merhaba Arkadaşlar ;
Bir uygulamayı kendime uyarlamaya çalışıyorum.Ama bir türlü beceremiyorum.yardımlarınızı bekliyorum.Örnek ektedir.
Teşekkürler , HER ŞEY İÇİN...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları formunuza uygulayıp denermisinz.

Private Sub ComboBox1_Change()
    Dim S1, BUL, ADRES
    Set S1 = Sheets("DATA")
    If ComboBox1 <> "" Then
    lbAvailableItems.Clear
    Set BUL = S1.[A:A].Find(ComboBox1, LookAT:=xlWhole)
    If Not BUL Is Nothing Then
    ADRES = BUL.Address
    Do
    lbAvailableItems.AddItem Cells(BUL.Row, 2)
    Set BUL = S1.[A:A].FindNext(BUL)
    Loop While Not BUL Is Nothing And BUL.Address <> ADRES
    End If
    Else
    lbAvailableItems.Clear
    End If
    Set S1 = Nothing
    Set BUL = Nothing
End Sub

 
Private Sub UserForm_Initialize()
    Dim X
    ComboBox1.Clear
    For X = 4 To [A65536].End(3).Row
    If WorksheetFunction.CountIf(Range("A4:A" & X), Cells(X, 1)) = 1 Then
    ComboBox1.AddItem Cells(X, 1)
    End If
    Next
End Sub

 

[ozgretmen]

Teşekkürler Sayın COST_CONTROL ! Kodlar Çalışıyor.Elinize Sağlık.İyi Geceler...

 

[ozgretmen]

Merhaba Arkadaşlar ;
COST_CONTROL un vermiş olduğu kodları EKLİ dosyaya uyguladığımda ComboBox1 den yaptığım seçime göre alt kategoriler ListBox1 içinde sıralanıyor.Acaba bu alt ketegorilere tıkladığımda ( bir clik ) , bu isimde aynı dizinde yer alan resim dosyalarını İmage1 üzerinde nasıl gösterebiliriz.Aşağıdakine benzer bir kodu uygulamaya çalışıyorum Ama bir türlü YİNE beceremiyorum.Yardımlarınızı bekliyorum.

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
a = ListBox1.ListIndex + 1
Set hucre = Cells(a, 1)
adres = "C:\Documents and Settings\OzG\Desktop\Excel\" & hucre & ".jpg"
Image1.Picture = LoadPicture(adres)
End Sub

 

[ozgretmen]

Yok mu Bana yardım edecek ? Eminim ki var ! Biliyor ve Bekliyorum.Saygılar.

 

[Orion1]

hücre içinde dosya uzantısı ile birlikte listeleniyor olabilir.
Dosya yolu yanlış olabilir.

 

[Orion1]

Kodları listbox1_click olayına yazınız.

 

[ozgretmen]

Kodları ListBox1 in tüm olayları üzerinde denedim ama olmadı.

 

[Orion1]

Aşağıdaki söylediklerimi dikkate aldınızmı?

hücre içinde dosya uzantısı ile birlikte listeleniyor olabilir.
Dosya yolu yanlış olabilir.

 

[ozgretmen]

evet.Örnek dosyayı incelediniz mi ? Orada daha açıkça görülebilir sorun kanımca.Dosyaya bir bakarmısınız.

 

[exam77]

Merhaba Arkadaşlar ;
COST_CONTROL un vermiş olduğu kodları EKLİ dosyaya uyguladığımda ComboBox1 den yaptığım seçime göre alt kategoriler ListBox1 içinde sıralanıyor.Acaba bu alt ketegorilere tıkladığımda ( bir clik ) , bu isimde aynı dizinde yer alan resim dosyalarını İmage1 üzerinde nasıl gösterebiliriz.Aşağıdakine benzer bir kodu uygulamaya çalışıyorum Ama bir türlü YİNE beceremiyorum.Yardımlarınızı bekliyorum.

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
a = ListBox1.ListIndex + 1
Set hucre = Cells(a, 1)
adres = "C:\Documents and Settings\OzG\Desktop\Excel\" & hucre & ".jpg"
Image1.Picture = LoadPicture(adres)
End Sub

Sayın OZGRETMEN;

Formunuzda listbox1 olmadığından dolayı kodlarınız çalışmaz. listbox1 yerine liste kutusuna verdiğiniz ismi kullanın.

Yani lbAvailableItems veya lbSelectedItems olarak değiştirin. Hangisini kullanmak isterseniz onu listbox1 yerine kullanırsanız kodlarınız çalışacaktır...