Sözlük yapımında Label Hatası

[ses]

Arkadaşlar kodda göründüğü üzere şu şekilde bir çalışmamız mevcut
click tıkladığımızda Listbox ta isimler var isimlerden birini seçtiğimizde bize o kişinin ne yapması gerektiğini Label de görüntülenmesini istiyoruz fakat öyle bir yerde takıldıkki bir türlü çözemiyoruz. Aşağıda belirttiğim Private Sub Click() bölümünde hata yok orası çalışıyor. Problem yaşadığımız kod hatası Private Sub ListBox1_Click() bölümündedir. Konu ile ilgilenen arkadaşların yardımlarını bekliyoruz şimdiden teşekkürler

Private Sub Click()
ListBox1.Clear
Const TerimSayisi = 9
Dim Terimler(TerimSayisi - 1, 1) As String
Terimler(0, 0) = "AHMET"
Terimler(0, 1) = "AHMET SEN OKULA GİTME"
Terimler(1, 0) = "MEHMET"
Terimler(1, 1) = "MEHMET SEN OKULA GİT"
Terimler(2, 0) = "ALİ"
Terimler(2, 1) = "ALİ SEN OKULA GİT"
Terimler(3, 0) = "HASAN"
Terimler(3, 1) = "HASAN SEN OKULA GİT"
For Sayac = 0 To TerimSayisi - 1
ListBox1.AddItem Terimler(Sayac, 0)
Next
End Sub

Private Sub ListBox1_Click()
For Sayac = 1 To 10
If Cells(Sayac, "Terimler") Like ListBox1 Then
Label1 = Cells(Sayac, "A_Click")
End If: Next
End Sub

 

[Levent Menteşoğlu]

.......
Private Sub ListBox1_Click()
For Sayac = 1 To 10
If Cells(Sayac, "Terimler") Like ListBox1 Then
Label1 = Cells(Sayac, "A_Click")
End If: Next
End Sub

Yukarıdaki kodlarınızda kırmızı ile renklendirdiğim kısımlar bir sütunumu temsil ediyor. Diğer bir deyişle sütunlara bu adlarımı tanımladınız.

 

[ses]

ŞU ŞEKİLDE ASLINDA ListBox1 TAN OKUSUN LABELE KARŞILIĞINI YAZSIN İSTİYORUZ O TANIMLAMADA BİR HATA YAPTIK SANIRIM Private Sub ListBox1_Click() içersinde..... Excel hücrelerinden almasını istemiyoruz bilgiyi listbox tan alsın.

 

[Levent Menteşoğlu]

Amacınız sadece listboxta seçilen veriyi labele yazdırmaksa aşağıdaki gibi yapmanız yeterlidir.

Private Sub ListBox1_Click()
Label1 = ListBox1
End Sub

 

[ses]

çok teşekkürler Levent Menteşoğlu bu kadar kolay olacağını tahmin etmemiştim )

 

[ses]

dediğiniz gibi yaptım ama bu kezde AHMET' i tıkladığımızda AHMET YAZIYOR, OKUL DURUMU bilgisini vermiyor.

 

[Levent Menteşoğlu]

Bu durumda tüm kodlarınızı aşağıdaki gibi değiştirerek deneyin.

Dim Terimler()
 
Private Sub Click()
ListBox1.Clear
Const TerimSayisi = 9
ReDim Preserve Terimler(TerimSayisi - 1, 1)
Terimler(0, 0) = "AHMET"
Terimler(0, 1) = "AHMET SEN OKULA GİTME"
Terimler(1, 0) = "MEHMET"
Terimler(1, 1) = "MEHMET SEN OKULA GİT"
Terimler(2, 0) = "ALİ"
Terimler(2, 1) = "ALİ SEN OKULA GİT"
Terimler(3, 0) = "HASAN"
Terimler(3, 1) = "HASAN SEN OKULA GİT"
For Sayac = 0 To TerimSayisi - 1
ListBox1.AddItem Terimler(Sayac, 0)
Next
End Sub
 
Private Sub ListBox1_Click()
Label1 = Terimler(ListBox1.ListIndex, 1)
End Sub

 

[ses]

Levent bey Dim Terimler() general declarations a yazıyorum ama
Compile error
Member already exists in an object module from which this object module derives

hatası veriyor.

 

[Levent Menteşoğlu]

Öncelikle şunu sormalıyım. Bu buton ve listbox bir userformmu yoksa sayfa üzerindemi?

 

[ses]

buton ve listbox userform

 

[Levent Menteşoğlu]

buton ve listbox userform

O zaman "dim Terimler()" tanımlamasını userformun kod sayfasında en üstte tanımlamalısınız.

 

[ses]

srn

Levent bey yine olmadı ben çalışmamı size gönderdim sanırım en iyi çözüm yolu bu ek dosyada çalışmam şimdiden teşekkürler

 

[Levent Menteşoğlu]

Userform üzerinde Terimler isimli bir label var, bu labelin adını değiştirin.

 

[ses]

levent hocam süpersiniz emeğinize sağlık çok teşekkürler