Textbox verisine göre sayfayı listboxta göster

[işsiz123]

Arkadaşlar merhabalar
Excel çalışma kabında 2 adet userform var
userform1 üzerindeki textbox hangi sayfanın verisini girersek userfrom2 de listboxta o sayfaya ait veriler gelsin
örnek olarak
userform1 textbox1 'e ahmet sayfası yazdığımda ve userform1 üzerindeki butona bastığımda userform2 açılıp listboxa Ahmet sayfasındaki veriler gelsin
Mehmet yazsaydık Mehmet sayfasındakli veriler gelecek önemli olan UserFom1 deki textboxa hangi sayfa ismini yazdığımız dır.

 

[Ziynettin]

Merhaba,

Verileriniz A2 başlayıp F sütununa varsayılarak yazılan kod. Siz kendinize göre düzenlemeyi yapınız.

Set sh = Sheets(TextBox1.Value)
son = sh.Range("A" & Rows.Count).End(xlUp).Row
Load UserForm1
UserForm2.ListBox1.List = sh.Range("A2:F" & son).Value
UserForm2.Show
UserForm2.ListBox1.ColumnCount = 6

 

[işsiz123]

Çok teşekkürler

 

[işsiz123]

Listboxta ilk satırı sabit tutma

Sayın Ziynettin tekrar teşekkürler Şimdide listbox ilk satırını sabit tutmak için nasıl bir kod yazmalıyız.

 

[Ziynettin]

Bu şekilde kullanın.

Set sh = Sheets(TextBox1.Value)
son = sh.Range("A" & Rows.Count).End(xlUp).Row
Load UserForm1
UserForm2.ListBox1.ColumnCount = 6
UserForm2.ListBox1.ColumnHeads = True
UserForm2.ListBox1.RowSource = "" & sh.Name & "!A2:F" & son
UserForm2.Show

 

[işsiz123]

Hocam ellerinize sağlık fakat sayfa ismi boşluk olunca hata veriyor "mehmet emin" gibi ama düz olduğunda çalışıyor "mehmetemin" Benim istediğim "mehmet emin" yazılması Saygılar

 

[Ziynettin]

Sayfa isminde boş karakter olursa Rowsource özelliği hata verir. Kod da ilave satırlar eklendi, deneyiniz.

If TextBox1 = "" Then
    MsgBox "Alan boş", vbCritical
    Exit Sub
End If
Set sh = Sheets(TextBox1.Value)
sayfa_adi = sh.Name
Sheets(sh.Index).Name = Replace(sh.Name, " ", "")
yenilenen_sayfa_adi = Sheets(sh.Index).Name
son = sh.Range("A" & Rows.Count).End(xlUp).Row
If son > 1 Then
    Load UserForm1
    UserForm2.ListBox1.ColumnCount = 6
    UserForm2.ListBox1.ColumnHeads = True
    UserForm2.ListBox1.RowSource = "" & yenilenen_sayfa_adi & "!A2:F" & son
    Sheets(sh.Index).Name = sayfa_adi
    UserForm2.Show
Else
    MsgBox "Listelenecek veri bulunamadı", vbInformation
End If

 

[işsiz123]

Teşekkürler

 

[Ziynettin]

Teşekkürler

Rica ederim.