Keskustelu: Ohjelmointikysymykset: VBA: Makro käynnistyy kun avaa sheetin

Hoi siellä,

Olen aivan rikki netistä löytyvistä automaattiajo-ohjeista joista en saa toimimaan yhtäkään. Voisiko joku vähän jeesata kun itsellä ei tunnu äly riittävän.

Macron pitäisi toimia aina kun välilehti/Sheet "PROFITABILITY" aktivoidaan/klikataan hiirellä.

Toiminto:

-Tarkkaile aktivoidun sheetin rivejä 16-123
-Jos alueella on piilotettuja rivejä, paljasta ne. (ts. kaikki rivit auki)
-Jos sarakkeessa 13 on luku 0, piilota koko rivi.

Ei siis kovinkaan monimutkaista mutta en vaan tajua näitä juttuja. Kun copy pastetan muualta netistä löytyviä valmiita macroja niin ruutuun ilmestyy kaikenlaista virheilmoitusta... Kuvitelkaa siis että selitätte asiaa vaikka mummollenne tms.

kirjoita seuraava koodi sheetille

Private Sub Worksheet_Activate()
    teejotain
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    teejotain
End Sub
Sub teejotain()

    Dim r As Range
    'paljastetaan piilotetut rivit
    Rows("16:123").EntireRow.Hidden = False
    'jos M-sarakkeessa 0 niin piilotetaan rivi
    For Each r In Range("M16:M123").Cells
        If r.Value = "0" Then r.EntireRow.Hidden = True
    Next

End Sub

Moikka ak77116!

lisäisin vielä tohon Hycke'n koodiin pari riviä...

Sub teejotain()
   ScreenUpdating = False
   '...
   '...
   ScreenUpdating = True
End Sub

No nyt toimii!

Kiitoksia kovasti ohjeista Hycke ja Nea!
JA TAAS ELÄMÄ HYMYILEE:)