dotNETportal.cz

Zdravím lidičky.

Potřeboval bych jednu záležitost vyřešit.

Mám list , kde mám cca 62 malých tabulek od sebe rozděleny. Každou tabulku jsem si pojmenoval na udaj1, udaj2, udaj3 atd. atd. ...

Potřeboval jestli by nešlo nějakým makrem dokázat to, že si všechny ostatní řádky a sloupce skryjí a zustanou mi odkryty jen ty buňky co jsou v rozsahu pojmenované časti.

Fungovalo by to následově pomocí jedné buňky, třeba na A1 .. když v ní bude 1 tak se mi zobrazí tabulka s názvem udaj1(C3:E5), když v ní bude 2 tak se mi zobrazí tabulka udaj2(F3:H5) atd atd. ...

Moje varianta je na moc dlouhé nastavování a na zatěžování procesoru.

Neporadil by mi někdo něco rychlejšího ?

Předem děkuju

Zkusil bych tohle vložit do modulu

Option Explicit
Sub skryj(udaj)

Const ud As String = "udaj"
Dim jmenoTabulky As String
jmenoTabulky = ud & udaj

Dim list As Range, tabulka As Range, sloupecA As Range, radek1 As Range
Dim sh As Worksheet

Set sh = ActiveSheet
Set list = sh.Cells
Set sloupecA = sh.Columns("A")
Set radek1 = sh.Rows(1)
Set tabulka = sh.Range(jmenoTabulky)

list.EntireRow.Hidden = True
list.EntireColumn.Hidden = True

tabulka.EntireColumn.Hidden = False
tabulka.EntireRow.Hidden = False
sloupecA.EntireColumn.Hidden = False
radek1.EntireRow.Hidden = False
Range("A1").Select
    
End Sub

a tohle do kódu listu s tabulkami

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
        skryj (Range("A1").Value)
    End If
End Sub