< návrat zpět

MS Excel


Téma: Skrýt řádek na základě hodnoty v buňce rss

Zaslal/a 23.3.2023 21:14

Dobrý den,

Mé makro funguje a skrývá řádky 101-125 při hodnotě 16 v buňce A2, ale potřebuji, aby se při každém otevření sešitu spouštělo makro automaticky a nemusel bych ho vyvolat nějakým buttonem.
Děkuji za opravu.

Private Sub Skryj_radky()
Application.Calculation = xlAutomatic
'Skryj řádky 101 to 125
If Range("A2").Value = 16 Then
Rows("101:125").EntireRow.Hidden = True
Else
Rows("101:125").EntireRow.Hidden = False
End If
End Sub
Option Explicit

Zaslat odpověď >

#054693
avatar
Po úpravě
Private Sub Worksheet_Calculate

zase makro počítá stále a sešit zamrzne...citovat
#054694
avatar
A takhle?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

Set KeyCells = Range("A2")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
'Skryj řádky 101 to 125
If KeyCells.Value = 16 Then
Rows("101:125").EntireRow.Hidden = True
Else

Rows("101:125").EntireRow.Hidden = False
End If

End If
End Sub
citovat
#054695
avatar
Takhle to funguje parádně, díky moc!citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Podmínka pro spuštění makra

MilanKop • 18.3. 18:51

Podmínka pro spuštění makra

Stalker • 18.3. 18:34

duplicity

fortes • 18.3. 17:48

Podmínka pro spuštění makra

MilanKop • 18.3. 17:31

spojení vzorců v PQ

elninoslov • 18.3. 15:13

spojení vzorců v PQ

Majki • 18.3. 14:15

Automaticka zmena obsahu bunky podla datumu

elninoslov • 17.3. 12:14