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

• #20867 Delila_1 veterán gyga #20866

  Új Válasz 2014-03-10 17:39:58 #20867

  Ú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 gyga #20866 üzenetére

  A laphoz rendeld:
  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$E$15" Then Rejt
  End Sub

  Modulba:
  Sub Rejt()
  Sheets("Munka2").Select
  Rows("2:202").Hidden = False
  Rows(Sheets("Munka1").Range("E15") + 2 & ":202").Hidden = True
  End Sub

  Nálam Munka1 a lap, ahol az E15-ben megadod a megjelenítendő adatsorok számát, és Munka2 a másik. Ezeket írd ár a makróban a saját lapjaid nevére.

  Mikor írsz az E15-be, a másik lapon végrehajtódik a rejtés, és az a lap lesz aktív.

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