MS Excel

Téma: Hromadne pridani jednoho praradku kazdy 20.radek

Zaslal/a Intos 12.8.2013 11:09

Potrebuji vlozit za kazdy 20. radek tabulky jeden prazdny radek - v podstate rozdelit tabulku na bloky po dvaceti radcich, oddelene jednim prazdnym radkem. Poradi nekdo, jak na to? Dekuji.

Zaslat odpověď >

Opičák(12.8.2013 11:53)#014650

zkus tohle:
Sub radek20()
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For radek = 1 To lastRow Step 20
Rows(radek & ":" & radek).Insert Shift:=xlDown
Next
End Sub
poslední řádek zjišťuje podle sloupce A, pokud potřebujete jinak - změňtecitovat

Opičák(12.8.2013 12:08)#014651

Sub radek20()
n = 0
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For radek = 21 To lastRow Step 20
Rows(radek + n & ":" & radek + n).Insert Shift:=xlDown
n = n + 1
Next
End Sub

možná takto, nevím jak je to s nadpisycitovat

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.