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

• #12351 m.zmrzlina senior tag m.zmrzlina #12348

  Új Válasz 2011-12-13 18:25:41 #12351

  Ú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 m.zmrzlina #12348 üzenetére

  Bocsánat! A kód helyesen, rendberakott ciklusváltozókkal:

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  For i = 1 To 20
  If Cells(1, i).Value <> "igen" Then Sheets("Munka1").Columns(i).EntireColumn.Hidden = True Else Sheets("Munka1").Columns(i).EntireColumn.Hidden = False
  
  Next
  
  For j = 1 To 20
  If Cells(j, 1).Value <> "igen" Then Sheets("Munka1").Rows(j).EntireRow.Hidden = True Else Sheets("Munka1").Rows(j).EntireRow.Hidden = False
  Next
  
  End Sub

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