Kaipailisin apua excelin macron kanssa.
Macron tarkoitus on piilottaa/näyttää taulukon rivejä määritellyn solun arvon mukaisesti (1 tai 0 jonka arvo toisen välilehden kaavasta). Rivejä taulukossa ~1000 joten piilotuksella tarkoitus selkeyttää ja lyhentää skrollailua edes takaisin.
Piilotettavia "osiota" taulukossa arviolta 20-30, kaikkia en ole vielä macroon siirtänyt.
Alla oleva macro toimii ongelmitta, mutta ongelmana on se, että jos lisään rivin johonkin kohtaan taulukkoa, menee macroon määritetyt rivit siitä alaspäin luonnollisesti yhden pykälän pois paikaltaan.
Onko ideoita, kuinka asian voisi korjata? Yritin tutkia jos rivit olisi mahdollista nimetä, mutta yritys ei tuottanut tulosta.
Myös muita parannusehdotuksia otetaan toki vastaan!
Koodi:
Private Sub Worksheet_Change(ByVal Target As Range)
‘Osio 1
If Range("G247").Value = 0 Then
Rows("249:278").EntireRow.Hidden = True
ElseIf Range("G247").Value = 1 Then
Rows("249:278").EntireRow.Hidden = False
End If
‘Osio 2
If Range("G280").Value = 0 Then
Rows("282:309").EntireRow.Hidden = True
ElseIf Range("G280").Value = 1 Then
Rows("282:309").EntireRow.Hidden = False
End If
‘Osio 3
If Range("G311").Value = 0 Then
Rows("313:340").EntireRow.Hidden = True
ElseIf Range("G311").Value = 1 Then
Rows("313:340").EntireRow.Hidden = False
End If
End Sub