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

• #12372 Delila_1 veterán jani-wan #12369

  Új Válasz 2011-12-14 09:04:45 #12372

  Ú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

  

  Delila_1

  veterán

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

  Sub elrejt()
  Dim sor As Integer, oszlop As Integer
  Sheets("Munka1").Select 'ezt írd át arra a lapnévre,
  'ahol rejteni akarod a sorokat és oszlopokat
  
  'Sorok rejtése
  For sor = 2 To 20 '2-től 20. sorig ellenőriz, írd át a tartományt
  If Cells(sor, 2) = "" Then
  Rows(sor).Hidden = True
  Else
  Rows(sor).Hidden = False
  End If
  Next
  
  'Oszlopok rejtése
  For oszlop = 2 To 60 'B-től BH oszlopig ellenőriz, írd át a tartományt
  If Cells(2, oszlop) = "" Then
  Columns(oszlop).Hidden = True
  Else
  Columns(oszlop).Hidden = False
  End If
  Next
  End Sub

  Ha a képletet tartalmazó cellák soronként nem a B oszlopban vannak, a Sorok rejtése részben az If Cells(sor, 2) = "" Then sorban a 2-t írd át az oszlop számára.

  Kitehetsz egy gombot a lapodra az Űrlapok eszköztárból, majd a jobb klikkre előjövő menüben hozzárendeled az "elrejt" makrót. Utána már gombnyomásra elvégzi a műveletsort.

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