Soru sayfayı listboxta gösterme

[sirkülasyon]

Private Sub CommandButton1_Click()
    If TextBox1.Text <> "" Then
        Son_Dolu_Satir = MySh.Range("b65536").End(xlUp).Row
        Bos_Satir = Son_Dolu_Satir + 1
        MySh.Range("B" & Bos_Satir).Value = Application.WorksheetFunction.Max(MySh.Range("b:b")) + 1
        MySh.Range("c" & Bos_Satir).Value = TextBox1.Text
        MySh.Range("f" & Bos_Satir).Value = TextBox2.Text
        MySh.Range("g" & Bos_Satir).Value = TextBox3.Text
    End If
End Sub

Comboboxtan seçtiğim sayfaya kayıt yapıyorum.
Comboboxtan seçip de kayıt yaptığım sayfayı Listbox1 de nasıl gösterebilirim? Yani Comboboxtan seçtiğim sayfaya ait B3:N aralığını listboxta gösterebilmem için yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Deneyiniz.

Kendinize uyarlarsınız.

Private Sub CommandButton1_Click()
    If TextBox1.Text <> "" Then
        Son_Dolu_Satir = MySh.Range("b65536").End(xlUp).Row
        Bos_Satir = Son_Dolu_Satir + 1
        MySh.Range("B" & Bos_Satir).Value = Application.WorksheetFunction.Max(MySh.Range("b:b")) + 1
        MySh.Range("c" & Bos_Satir).Value = TextBox1.Text
        MySh.Range("f" & Bos_Satir).Value = TextBox2.Text
        MySh.Range("g" & Bos_Satir).Value = TextBox3.Text

        On Error Resume Next
        ListBox1.Clear
        ListBox1.RowSource = ""
        Son = MySh.Cells(MySh.Rows.Count, 2).End(3).Row
        ListBox1.RowSource = "'" & MySh.Name & "'!B3:N" & Son
        On Error Goto 0
    End If
End Sub

 

[sirkülasyon]

Korhan abi ellerine sağlık.Teşekkür ederim

 

[sirkülasyon]

Ustam listboxta sayfa listelenmedi. Veya ben yapamadım

 

[Korhan Ayhan]

Nesne ile ilgili hiç bir ayar yapmamışsınız.

Mesajımda belirtmiştim. Kendinize uyarlarsınız diye.

Aşağıdaki gibi deneyiniz.

Private Sub CommandButton1_Click()
    If TextBox1.Text <> "" Then
        Son_Dolu_Satir = MySh.Range("b65536").End(xlUp).Row
        Bos_Satir = Son_Dolu_Satir + 1
        MySh.Range("B" & Bos_Satir).Value = Application.WorksheetFunction.Max(MySh.Range("b:b")) + 1
        MySh.Range("c" & Bos_Satir).Value = TextBox1.Text
        MySh.Range("f" & Bos_Satir).Value = TextBox2.Text
        MySh.Range("g" & Bos_Satir).Value = TextBox3.Text

        On Error Resume Next
        ListBox1.Clear
        ListBox1.RowSource = ""
        ListBox1.ColumnCount = 13
        ListBox1.ColumnHeads = True
        son = MySh.Cells(MySh.Rows.Count, 2).End(3).Row
        ListBox1.RowSource = "'" & MySh.Name & "'!B3:N" & son
        On Error GoTo 0
    End If
End Sub

 

[sirkülasyon]

Tekrar aynı konuyu gündeme getirdiğim için, düzenleme kısmını ihmal ettiğim için özür dilerim.
Sorunumu çözdüğünüz için de teşekkür eder, saygılarımı sunarım.