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)

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.