Listboxdan seçtiğim verileri combobox ta göstermiyor

[vol1237]

Üsdatlar merhabalar. Benim bir veri kaydetme güncelleme vs fonksiyonları olan userformum var. verileri kaydetmede hiç sorun yok. ancak listboxtan işaretlediğim verileri comboboxta göstermiyor. bu sorunu nasıl halledebilirim acaba. görüntü ektedir.

Dosya linkinide paylaşıyorum. yardımcı olan olursa çok mutlu olurum

1deneme_daha.xls dosyasını indir - download

1deneme_daha.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[vol1237]

Hocalarımızdan biri bir el atmaz mı acaba?

 

[vol1237]

Sorun şuradan kaynaklı sanırım ama nasıl aşacağımı bulmadım. Yani tlistboxda tıkladığım yerdeki verileri textboxlara getiriyor ama o verilerden iki tabesini işaretledğim combobox2 ve combobox3 e de getirmesini istiyorum ki gerekirse güncelleme yapabileyim

Private Sub ListBox1_Click()
Dim say, a As Integer

For a = 0 To 11 'If listbox click ,fill the textboxes
Controls("textbox" & a + 1) = ListBox1.column(a)
Next
say = ListBox1.ListIndex + 1
Sheets("Data").Range("A" & say & ":L" & say).Select

TextBox15 = ListBox1.ListIndex + 1
End Sub

 

[Muzaffer Ali]

Merhaba.
Private Sub ListBox1_Click() kodlarını aşağıdaki ile değiştirin.

Private Sub ListBox1_Click()
    Dim say, a As Integer
    For a = 0 To 11 'If listbox click ,fill the textboxes
        Controls("textbox" & a + 1) = ListBox1.column(a)
    Next
    ComboBox3.Value = ListBox1.column(2)
    ComboBox4.Value = ListBox1.column(3)
    say = ListBox1.ListIndex + 1
    Sheets("Data").Range("A" & say & ":L" & say).Select
    TextBox15 = ListBox1.ListIndex + 1
End Sub

 

[vol1237]

Ya üsdat çok teşekkür ederim. elinize sağlık.

 

[Muzaffer Ali]

Private Sub CommandButton10_Click()
    ThisWorkbook.Save
    ThisWorkbook.Close
End Sub