Excel lapfülek eltüntetése/felfedése cellaérték alapján

Excel lapfülek eltüntetése/felfedése cellaérték alapján
2020-06-10T17:39:38+02:00
2020-07-09T11:57:13+02:00
2022-10-15T21:21:44+02:00
Leslie2214
Sziasztok!
Az lenne a kérdésem, hogy egy excel füzetben van 13 lapfülem. Viszont nincs mindegyikre mindig szükségem, és a sok lapfül között néha elveszek. ( sok idő míg megtalálom a nekem megfelelőt). Szeretném ha a Munka 1 lapfülön, egy cellában megváltoztatok valamit, csak az adott lapfülek jelenjenek meg.
Pl.: A munka 1 lapfül mindig látszik. Ha a j10 cellában átváltoztatok valamit ahhoz megjelenik a Munka3; 4; 5; lapfül. Ha átváltoztatom a J10 cella értékét, megjelenik a Munka2; 6; 9; lapfül.
Előre is köszönom a segítséget.
Mutasd a teljes hozzászólást!
Létrehoztam 8 munkafüzetet (Munka1..Munka8).
Felraktam egy ComboBox-ot. Abban 3 kiválasztható elem volt 1234, 1256, 1278
A ComboBox Change eseménye:

Private Sub ComboBox1_Change() For I = 3 To 8 Worksheets("Munka" & I).Visible = False Next If ComboBox1.Text = "1234" Then Worksheets("Munka3").Visible = True Worksheets("Munka4").Visible = True ElseIf ComboBox1.Text = "1256" Then Worksheets("Munka5").Visible = True Worksheets("Munka6").Visible = True ElseIf ComboBox1.Text = "1278" Then Worksheets("Munka7").Visible = True Worksheets("Munka8").Visible = True End If End Sub


Az elején a Munka3-tól mindegyik láthatóságát kikapcsolom és csak a kiválasztott elemnek megfelelőket teszem láthatóvá. Biztos van jobb megoldás, de működik...
Mutasd a teljes hozzászólást!

  • Mutasd a teljes hozzászólást!
  • Ez a Munka2-t ki/be kapcsolja, ha a Munka1-es a J10 cella értéke változik.

    Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("J10:J10"), Range(Target.Address)) Is Nothing Then Worksheets("Munka2").Visible = Not Worksheets("Munka2").Visible End If End Sub
    Mutasd a teljes hozzászólást!
  • Köszönöm az ötletet ? holnap kipróbálom??
    Mutasd a teljes hozzászólást!
  • Köszönöm a válaszod. Tökéletesen működik amit küldtél, de sajnos nem ezt szeretném.
    A problémám igazából, hogy több ember használja majd ezt az Excelt. Mindenkinek más az igénye, excel ismerete, illetve mindenki más és más munkát végez vele. Viszont időnként szüksége lehet más lapfülre.
    Adott 17 fapfül, mindegyik más elnevezéssel. Az első, második az fix, nem változik. Viszont a többi 15 fül közül nem kell mindegyik. Csak az adott munkához való, (2-3db fül) amit a első lapfül B10-es cellájában választ ki egy legördülő listából, 5 lehetőség közül választva. Ha az 1-et választja ki, marad a 1,2,3,4,5 lapfül. Ha 2 választ akkor marad az 1,2,6,7,8, lapfül, ha 3 választ akkor az 1,2,4,7,10.  stb. stb. Azért kell leredukálni a lapfüleket, mert a megnevezés miatt így is csak 6 lapfül látszik, a többihez már görgetni kell. És mint írtam nem mindenki egy Excel guru. Illetve el is lehet veszni a 17 lapfül között ha nem figyelsz rendesen. Főleg ha nem is ért hozzá.
    Mutasd a teljes hozzászólást!
  • Létrehoztam 8 munkafüzetet (Munka1..Munka8).
    Felraktam egy ComboBox-ot. Abban 3 kiválasztható elem volt 1234, 1256, 1278
    A ComboBox Change eseménye:

    Private Sub ComboBox1_Change() For I = 3 To 8 Worksheets("Munka" & I).Visible = False Next If ComboBox1.Text = "1234" Then Worksheets("Munka3").Visible = True Worksheets("Munka4").Visible = True ElseIf ComboBox1.Text = "1256" Then Worksheets("Munka5").Visible = True Worksheets("Munka6").Visible = True ElseIf ComboBox1.Text = "1278" Then Worksheets("Munka7").Visible = True Worksheets("Munka8").Visible = True End If End Sub


    Az elején a Munka3-tól mindegyik láthatóságát kikapcsolom és csak a kiválasztott elemnek megfelelőket teszem láthatóvá. Biztos van jobb megoldás, de működik...
    Mutasd a teljes hozzászólást!
  • Most már nincs időm megcsinálni, majd holna. Most vezetek. De ha ez működik, ISTENKIRÁLY vagy
    Mutasd a teljes hozzászólást!
  • Köszönöm. Működik. Bocsánat a késői válaszért, de sok minden közbejött.
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd