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

• #12348 m.zmrzlina senior tag jani-wan #12346

  Új Válasz 2011-12-13 18:13:43 #12348

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

  Ez egy elég buta kód, de kiindulásnak jó lesz.

  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(i, 1).Value <> "igen" Then Sheets("Munka1").Rows(i).EntireRow.Hidden = True Else Sheets("Munka1").Rows(i).EntireRow.Hidden = False
  Next
  
  End Sub

  Ezt a kódot viszont a másik munkalaphoz kell rendelni (amelyiken beállítod hogy mely oszlopok érdekelnek az elsőn) úgy ahogy az előbb nem jött össze duplakattal, vagy lent a munkalap fülön jobkatt majd kód megjelenítése.

  Azt feltételezi, hogy az első oszlopban és az első sorban (A1, A2, A3..... illetve A1, B1, C1...)cellákba írt "igen" szóval állítod be, hogy melyik oszlopra és melyik sorra van szükséged a másik munkalapon (az én esetemben a neve Munka1).
  Ha bármelyik cellát átírod az első sorban vagy oszlopban "igen"-re (vagy kitörlöd a benne lévő "igen"-t) akkor lefut a kód és a másik munkalapon csak az "igen"-es sorok és oszlopok megfelelői fognak látszani. Ha nem "igen"-re írod át akkor is lefut csak nem észlelsz semmi változást.

  Na ez most jó bonyolult de kérdezz bátran ha valami nem világos!

  Mostani formájában 20 oszlopot és 20 sort tud kezelni de ez ezerféle módon variálható.

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