Sayfa adının combobox'göre değişmesi

[cetvel]

Merhaba arkadaşlar,



Aşağıdaki kod'da ÇEK olan sayfa adının Combobox1'deki sayfa adına göre değişken olmasının nasıl sağlayabilirim.

Yardımlarınız için şimdiden teşekkür ederim.





Private Sub CommandButton2_Click()


x = WorksheetFunction.CountA(Sheets("ÇEK").Range("A2:A65536")) + 1
ListBox1.RowSource = "ÇEK!A3:F" & x

ListBox1.ColumnCount = 6

ListBox1.ColumnWidths = "2;75;60;75;85;85"

With Sheets("ÇEK")
TextBox1.Text = .Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row)
End With

ListBox1.ListIndex = ListBox1.ListCount - 1

End Sub

 

[Emir Hüseyin Çoban]

. . .

Private Sub CommandButton2_Click()
    Dim sayfa  As String
    sayfa = ComboBox1.Text

    If sayfa <> "" Then
        x = WorksheetFunction.CountA(Sheets(sayfa).Range("A2:A65536")) + 1
        ListBox1.RowSource = sayfa & "!A3:F" & x

        ListBox1.ColumnCount = 6

        ListBox1.ColumnWidths = "2;75;60;75;85;85"

        With Sheets(sayfa)
            TextBox1.Text = .Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row)
        End With

        ListBox1.ListIndex = ListBox1.ListCount - 1
    End If
End Sub

Düzeltme:

 tagları girildi, sizde code taglarını kullanmaya özen gösterin.

. . .

 

[cetvel]

Çok teşekkür ederim Sayın Çoban,
Emeğinize sağlık.