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

353

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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....

      • 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ä.

    Luetuimmat keskustelut

    1. Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?

      Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä
      Arvot ja etiikka
      40
      11724
    2. Sanna Marin vetänyt leukoja 11 kertaa

      Tästähän oli joskus polemiikkia, kun muistaakseni lupasi kymmenen tai jotain vedellä. No nyt niin on, ainakin omien san
      Maailman menoa
      33
      4679
    3. Sosiaalidemokratia romahtanut kautta maailman

      nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie
      Maailman menoa
      251
      2827
    4. Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?

      Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin
      Maailman menoa
      144
      2604
    5. Kuvaile kaivattusi

      ulkonäkö. Asiattomatkin kommentit saa laittaa. -🏚️
      Ikävä
      112
      1692
    6. Farmi Suomi: Kokeeko Frederik, 81, saman kohtalon kuin ikämies Danny?

      Danny, musiikkineuvos Ilkka Lipsanen, nähtiin mukana Farmi Suomi -realityssä v. 2024. Danny teki yllätysratkaisun ja tuo
      Tv-sarjat
      14
      1061
    7. 40 vuotta töitä paiskinut ja 3 vuotta työttömänä mamuna Suomessa, sama eläke

      Jokin mättää. Eläkettä ei pidä maksaa lainkaan mamuille jos työhistoriaa ei ole vähintään 10 vuotta takana.
      Maailman menoa
      209
      852
    8. Et olisi niin epävarma,

      olisit varmempi, ihastuisin suhun enemmän...
      Ikävä
      82
      840
    9. En luota sinuun

      en edelleenkään yhtään tiedä oletko lintu vai kala vai kalavale. Ja ilmeisesti haluat pitää sen niin, syitä voi vain arv
      Ikävä
      62
      766
    10. Puualan yrittäjä

      Kuka mahtaa olla? Eikö tuhkaa saa levittää metsään?
      Kauhava
      10
      738
    Aihe