MS Excel

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

Zaslal/a hard 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ěď >

hard(23.3.2023 21:40)#054693

Po úpravě
Private Sub Worksheet_Calculate

zase makro počítá stále a sešit zamrzne...citovat

Jiří497(24.3.2023 0:39)#054694

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

hard(24.3.2023 10:09)#054695

Takhle to funguje parádně, díky moc!citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.