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

MS Excel

Téma: Skrytí řádků

Zaslal/a marficek119 19.12.2012 0:21

Ahoj, potřebuji pomoc s kódem.
Mám toto makro:
Dim i As Integer

For i = 27 To 376 '
If Cells(i, 5) = Empty Then ' buňka ve sloupci E je prázdná?
Rows(i).Hidden = True ' ano, skryj řádek
End If
Next i
End If

Makro má zjistit prázdné buňky a následně skrýt řádky které jsou prázdné. Šlo by to udělat obráceně. Myslím to tak, že by makro našlo poslední obsazený řádek (zadanou buňku v řádku) a ostatní řádky pod by skrylo do řádku 376? Je to reálné? Děkuji za pomoc

Zaslat odpověď >

---

Strana:  « předchozí  1 2

eLCHa(20.12.2012 20:42)#010759

zkusím od boku
If Cells(i, 5).Value = 0 Then
nahraďte
If Cells(i, 5).Value = 0 and Cells(i - 1, 5).Value = 0 Then
nemám už čas to zkoušet tak snad...citovat

marficek119(20.12.2012 20:44)#010760

Super, od boku dobrý:-) Děkujicitovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse