MS Excel

Téma: makro pro podmíněné grupování řádků (sloupců)

Zaslal/a vojta_pojta 12.3.2013 17:12

Ahoj, prosím o radu.

Jak by vypadalo makro, které by projelo aktivní list, a v případě, že by v oblasti A:Z našlo prázdný řádek (tzn. např. A1:Z1), použilo by nástroj seskupit?

Díky

Vojta

Zaslat odpověď >

Poki(27.8.2013 15:32)#014878

Sice pozde, ale neco jsem dohromady dal (jen jsem to neotestoval)

Sub SeskupRadky()
Dim pocet As Long, i As Long

'odgrupování
With ActiveSheet.UsedRange
'.Ungroup
.ClearOutline
End With

'sgrupování
For i = 1 To ActiveSheet.UsedRange.Rows.Count
pocet = Application.WorksheetFunction.CountA(Range("A" & i & ":Z" & i))
If pocet = 0 Then
Rows(i).Group
End If
Next i
End Subcitovat

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.