Tek sayfa ile çalışma

[businessman123]

Merhaba arkadaşlar
Excel dosyam var 20 sayfa yan yana ben bunu 1 tane ana sayfa yapıp ana sayfada butona tıklandığında ilgili sayfaya gitmesini istiyorum.Diğer sayfalarda görünmeyecek.İlgilenirseniz sevinirim.Kolay gelsin. iyi çalışmalar

 

[murat9463]

Çok basit excel.web.tr araştırırsan bulursan.

 

[N.Ziya Hiçdurmaz]

cevap

Private Sub ComboBox1_Change()
Dim i As Byte
    For i = 2 To Sheets.Count
    Sheets(i).Visible = True
        If Sheets(i).Name <> ComboBox1 Then
            Sheets(i).Visible = False
        End If
    Next
    Sheets(ComboBox1.Value).Activate
    Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim i As Byte
    For i = 2 To Sheets.Count
        ComboBox1.AddItem Sheets(i).Name
        Sheets(i).Visible = False
    Next
End Sub