Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #12360 jani-wan tag m.zmrzlina #12353
    Új Válasz #12360
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    jani-wan

    tag

    válasz m.zmrzlina #12353 üzenetére

    Nem megy.
    Miután beírom feldobja a kisablakot, hogy adjam meg a makro nevét,
    beírom hogy
    oszlopelrejt
    utána nyomok egy
    create

    és ezt kapom

    Private Sub Worksheet_Change(ByVal Target As Range)

    For i = 1 To 60
    If Cells(2, i).Value <> "igen" Then Sheets("Munka1").Columns(i).EntireColumn.Hidden = True Else Sheets("Munka1").Columns(i).EntireColumn.Hidden = False

    Next
    Sub elrejt()

    End Sub

    de ez így nem tűnik jónak, és nem is csinál semmit.
    viszont ha a
    Sub elrejt()
    áthelyezem az elejére,

    Sub elrejt()
    Private Sub Worksheet_Change(ByVal Target As Range)

    For i = 1 To 60
    If Cells(2, i).Value <> "igen" Then Sheets("Munka1").Columns(i).EntireColumn.Hidden = True Else Sheets("Munka1").Columns(i).EntireColumn.Hidden = False

    Next

    End Sub

    majd F5 és utána futtatom, akkor kiírja hogy
    compile error:
    Expected End Sub

Új hozzászólás Aktív témák