< návrat zpět

MS Excel


Téma: Skrytí řádků rss

Zaslal/a 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
icon #010759
eLCHa
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
#010760
avatar
Super, od boku dobrý:-) Děkujicitovat

Strana:  « předchozí  1 2

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

kontrola buniek

loksik.lubos • 31.5. 20:33

KT jako text do emailu

elninoslov • 31.5. 18:35

vlastní pás karet

elninoslov • 31.5. 15:10

vlastní pás karet

stejzi • 31.5. 13:09

KT jako text do emailu

Začátečník • 31.5. 11:06

odkaz chyba

elninoslov • 30.5. 21:07

odkaz chyba

jano1 • 30.5. 20:31