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

• #12353 m.zmrzlina senior tag jani-wan #12352

  Új Válasz 2011-12-13 20:18:52 #12353

  Ú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

  

  m.zmrzlina

  senior tag

  válasz jani-wan #12352 üzenetére

  Próbáld ezt:

  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

  Ha jól emlékszem ötvenvalahány oszlopot írtál ezért átírtam 60-ra a kezelt sorok számát. A Munka1-et javítsd át a te munkalapod nevére!

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