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

• #12360 jani-wan tag m.zmrzlina #12353

  Új Válasz 2011-12-13 21:07:35 #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