Combobox'ta Seçilen Sayfayı Listbox'ta Görüntüleme

[BedriA]

Arkadaşlar,

Aşağıdaki kodu revize etmeye ihtiyacım var.
Seçili sayfayı Listbox'ta görüntülemek istiyorum.
Combobox'ta sayfanın tam adı görünüyor.

Örneğin sayfa ismi Bedri ise, Bedri görünüyor.

Private Sub UserForm_Initialize()
    With UserForm2.ListBox1
        .ColumnCount = 2
        .ColumnWidths = "50;50"
        [COLOR="Red"].RowSource = ComboBox4.Text & "!A2: B65536"[/COLOR]
    End With
End Sub

 

[Ömer BARAN]

Merhaba.

Userform açılırken (Initalize)
henüz Combobox'tan seçim yapılmadığına göre,
Combobox değeri üzerinden işlem yaptıramazsınız.
Kod'un başına aşağıdaki satırları (veya benzeri kodlar) ekleyerek deneyin.
.

[B]Private Sub UserForm_Initialize()[/B]
[COLOR="Red"]ComboBox4.AddItem "Bedri"
ComboBox4.ListIndex = 0[/COLOR]
    With UserForm2.ListBox1
        .ColumnCount = 2
        .ColumnWidths = "50;50"
        .RowSource = ComboBox4.Text & "!A2: B65536"
    End With
[B]End Sub[/B]

 

[BedriA]

Peki ya bu şekilde olsa?
Sürekli yeni sayfalar açılıyor
ve bu sayfalar combobox4'e ekleniyor.

Kırmızı kodlarla sürekli kod eklemek zorunda kalacağım sayfa ekledikçe

Private Sub ComboBox4_Change()
   With UserForm2.ListBox1
        .ColumnCount = 2
        .ColumnWidths = "60;50"
      
        
 [COLOR="Red"]       If ComboBox4.Value = "Ömer" Then
        .RowSource = "ömer!A2:B65536"
        End If
        
        If ComboBox4.Value = "Hüseyin" Then
        .RowSource = "Hüseyin!A2:B65536"
        End If[/COLOR]
        
    End With
End Sub

 

[BedriA]

Aşağıdaki şekilde çalıştı Ömer Hocam.

Private Sub ComboBox4_Change()
   With UserForm2.ListBox1
        .ColumnCount = 2
        .ColumnWidths = "60;50"
      .RowSource = ComboBox4.Text & "!A2:B65536"
    End With
End Sub