MS Excel

Téma: Skytí řádku a odkrytí

Zaslal/a Niffki 12.8.2010 12:05

Zdravím

Zas bych potřeboval nějakou tu vychytávku :o)

V příloze mám tabulku. Chtěl abych fungovala takhle:

Prázdné řádky u každého stroje ručně skryji, jen první prázdný řádek nechám odkrytý....

Jakmile se do prvního prázdného řádku vloží data tak se odkryje prázdný řádek pod ním, a tak stále dokola...

Šlo by to nějak nastavit v makru? Díki

Příloha: rar

2163_xxx.rar (7kB, staženo 20x)

Zaslat odpověď >

Strana: « předchozí 1 2

Niffki(13.8.2010 12:39)#002183

wau, funguje to :) sice né tak jak bych si představoval ale tohle mi hodně pomůže a a budu ted trochu strojit já :)

Jinak přidal jsem si tam funkci Application.ScreenUpdating a ono to jde o hodně rychleji ;-)

Prosím o vysvětlení těchto kodů, výrazů:

Application.StatusBar = i & " of " & Application.WorksheetFunction.CountA(Range("e:e"))

a

Application.StatusBar = False

a pak tohoto:

IsEmpty(Cells(i - 1, 6)) = True - proč tam je i-1?? :o)citovat

Poki(13.8.2010 12:46)#002184

Si to muzes upravit, jak budes chtit, aby ti to vyhovovalo :)

StatusBar je klasickej Bar, co mas zobrazeny dole - ta lista - hodil jsem tam prubeh prochazeni radku, aby bylo videt, kolik jeste zbyva.
Statusbar = false pak vraci moc nad timto prostorem Excelu.

Cells(i-1,6) tam je proto, aby vzdycky aspon jeden radek u produktu nebyl skryty...citovat

Niffki(23.8.2010 10:06)#002234

Můžu se ješte obrátit k tomuhle kódu? Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("c3:i31")) Is Nothing Then

If Rows(Target.Row + 1).Hidden = False Then

Exit Sub

Else

Rows(Target.Row + 1).Hidden = False

End If

End If

End Sub

Šel by průnik Interger nastavit jako (Target, a poslední použitý řádek sloupce H) ?

Díki, potřebuji to i na něco inéhocitovat

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.