ListBox'ta Seçimi Yapılanın, TextBox'a farklı Gelmesi

[1Al2Ver]

Merhaba,

ListBox1'den seçtiğim yemek, TextBox1'e farklı bir isimle geliyor,

Bu hatayı düzeltmek için yardımlarınızı rica ediyorum.

Teşekkür ederim.

 

[Korhan Ayhan]

ListBox nesnesinin Click olayını aşağıdaki gibi değiştirip deneyiniz.

Private Sub ListBox1_Click()
    On Error Resume Next
    Dim S1 As Worksheet, S2 As Worksheet, X As Integer, Sutun As String
    Set S1 = Sheets("VERİLER")
    Set S2 = Sheets("AYLIK_YEMEK_LİSTESİ")
    Sutun = S2.Range("A2").Value
    X = S1.Range("ListeY").Cells.Find(What:=ListBox1, LookIn:=xlValues, LookAt:=xlWhole).Row
    TextBox1 = S1.Cells(X, 5) 'E sütunu
    S2.Cells(S2.Rows.Count, Sutun).End(3).Rows.Offset(1, 0) = TextBox1
    ListBox1.Visible = False
    Set S2 = Nothing
    Set S1 = Nothing
End Sub

 

[1Al2Ver]

Sayın Korhan Ayhan merhaba,

İlginiz ve çözümünüz için teşekkür ederim,

Saygılarımla.