< 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

Tlac s farebneho

ivana1 • 19.6. 22:16

GRAF teploty

Scraper • 18.6. 15:34

Vyhledat dnešní datum když je číslo jako text

veny • 17.6. 13:56

Vyhledat dnešní datum když je číslo jako text

Ontik • 17.6. 12:07

Zaokrouhlování

lubo • 17.6. 12:03

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52