< návrat zpět

MS Excel

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

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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10
hard(23.3.2023 21:40)#054693
avatar
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
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
hard(24.3.2023 10:09)#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

Čas od do

lubo • 19.4. 16:30

Makro smyčka

MilanKop • 19.4. 10:46

Makro smyčka

elninoslov • 19.4. 9:02

Čas od do

elninoslov • 19.4. 8:46

Čas od do

jarek1111 • 18.4. 13:46

Čas od do

lubo • 18.4. 11:13

Čas od do

jarek1111 • 18.4. 8:32