• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: skrytí vybraných řádků na základě podmínky

Zaslal/a adosl 2.2.2014 0:59

Ahoj můžete mi prosím pomoct s makrem, které by sledovalo tři konkrétní buňky např A10:A12 a při změně v nich by se spustilo.

Makro bude skrývat buť řádek 10 nebo 11 nebo 12 na základě toho která z buněk A10:A12 bude prázdná. Pokud bude A10 něco obsahovat bude 10 řádek vidět a tak analogicky u všech tří.

Všem moc děkuji za pomoc.

Ještě jedna otázka nazávěr. Šlo by udělat, aby to makro pracovalo asi na 20-30 listech. Jde nějak hromadně určit pro které listy má to makro platit i s tou automatickou kontrolou změn v buňkách?

Je tu spousta odborníků a já jsem VBA lama tak prosím o radu.

Zaslat odpověď >

---

Strana:  « předchozí  1 2 3 4 5

lubo(13.2.2014 22:11)#017849

S komentářem. Zachatává se řídící buňka a základě její hodnoty se mění viditelnost odpovídajících řádků


' Předpokládám, že řídící buňka je B1
' a seznam listů je v buňkách L1:L100 (v listu Vzorce)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [B1]) Is Nothing Then ' Průnik dvou oblastí existuje (změněná buňka a B1)
Call Skryj ' Změnila se hodnota
ElseIf Not Intersect(Target, [L1:L100]) Is Nothing Then
Call Skryj ' Přidán další list
End If
On Error GoTo 0
End Sub

Sub Skryj()
Dim rngJmenoListu As Range
Dim oWS As Worksheet

On Error GoTo DalsiList:
For Each rngJmenoListu In [L1:L100] ' Pro všechny hodnoty v oblasti L1:L100
Set oWS = Worksheets(rngJmenoListu.Text) ' Zkus vybrat list
With oWS ' Pokud list existuje
.Rows("1:3").Hidden = True ' Zobraz dříve skryté řádky
Select Case [B1] ' Podle stavu řídící buňky B1 skryj příslušné řádky
Case 1: .Rows("1:1").Hidden = False ' B1 = 1
Case 2: .Rows("1:2").Hidden = False ' B1 = 2
Case 3: .Rows("1:3").Hidden = False ' B1 = 3
End Select
End With
DalsiList:
Next ' Pokračuj s dalším listem
On Error GoTo 0
End Sub
citovat

Strana:  « předchozí  1 2 3 4 5

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse