Vba ongelma!

Loyd

Harjoittelen tässä vba:n käyttöä ihan ominpäin ja ongelma tilanteeni on seuraavan kaltainen. Miten saan vba:n näyttämään excelissä näkyvissä olevat taulukot?

Kiitos ja kumarrus jo etukäteen...

3

342

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Sub Näkyvät()
      For i = 1 To Sheets.Count
      If Sheets(i).Visible = True Then
      MsgBox Sheets(i).Name
      End If
      Next
      End Sub

    • Loyd

      Onko mahdollista siirtää taulukoiden numet vaikkapa johonkin valikkoon....

      • kunde

        tässä nyt esim. hiiren oikeaan valikkoon

        ThisWorkbook moduuliin...

        Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
        Dim Nappi As CommandBarButton
        On Error Resume Next
        Application.CommandBars("Cell").Controls("Taulukot").Delete
        On Error GoTo 0
        Set Nappi = Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton, Temporary:=True)
        With Nappi
        .Caption = "Taulukot"
        .OnAction = "AvaaTaulukko"
        End With
        End Sub


        ja moduuliin...

        Sub AvaaTaulukko()
        Application.CommandBars("workbook Tabs").ShowPopup
        End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mira Luoti ja Julkkisselviytyjät 2017 - Ketä kuumottaa juuri nyt?

      HS: Tässä ohjelmassa Mira Luoti kertoi kokeneensa seksuaalista väkivaltaa "PMMP-yhtyeen Mira Luoti kertoo Ylen uudessa
      Kotimaiset julkkisjuorut
      73
      2015

    2. Mietin että

      Onko tarinallamme vielä luvussa tilaa kohtaamiselle vai jääkö se tähän.
      Ikävä
      102
      1883

    3. Kaipaatko sinä

      Yhtään meidän katseita
      Ikävä
      142
      1773

    4. Oletko samaa mieltä

      Että on parempi olla erillään?
      Ikävä
      97
      1421

    5. Törkeä eläinsuojelurikos Sonkajärvellä

      Pohjois-Savossa Sonkajärvellä noin 40 kissaa ja reilut 10 koiraa on jouduttu lopettamaan kaltoinkohtelun vuoksi, kertoo
      Sonkajärvi
      35
      1389

    6. MESTARI SIVALTAA JÄLLEEN

      https://www.is.fi/politiikka/art-2000011436243.html Suomen ainoa Mestari lausuu tosiasiat Sannasta , Tuomiojasta ja hil
      Kajaani
      317
      1265

    7. Kirjallinen varoitus

      On annettu eräälle henkilölle. hyssytellään kuitenkin asiasta
      Äänekoski
      60
      1229

    8. Jotkut ihmiset pelkäävät syöpää sairastavaa

      On hauskaa, kun kertoo jollekin, että "minulla on syöpä". Jotkut käyttäytyvät kuin se olisi tarttuva tauti. Eivät uskall
      Sinkut
      130
      1112

    9. Julkisuuden henkilön päiväin päätös

      Sitä vaan, että kyllä nyt kaikki tietävät kuka oli Eemeli Peltola (kansanedustaja, joka päätti päivänsä eduskuntatalossa
      Sinkut
      276
      1066

    10. Kuulin juttua että Jeesus on kopioitu krishnasta

      Pitääkö paikkansa että kertomukset ovat samat kummankin uskonnon kirjoissa
      Hindulaisuus
      446
      963
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt