MS Excel

Téma: přídání prázdného řádku

Zaslal/a stejzi 2.9.2016 9:35

Zdravím,
potřeboval bych asi tlačítko. Aby se vložil prázdný řádek mezi buňky s rozdílnými daty. Nějak se mi nedaří přijít jak na to.
Díky

Příloha:

32586_test.7z (9kB, staženo 22x)

Zaslat odpověď >

Pavlus(2.9.2016 11:13)#032589

Například nějak takto:
Sub Oddelit_prazdnym_radkem()
Dim sloupec_kriteria As Integer
Dim i As Long

sloupec_kriteria = 4

For i = 1 To 1000
If (Cells(i, sloupec_kriteria) <> Cells(i + 1, sloupec_kriteria)) And _
(Cells(i, sloupec_kriteria) <> "") And _
(Cells(i + 1, sloupec_kriteria) <> "") Then
Cells(i + 1, sloupec_kriteria).EntireRow.Insert
Rows(i + 1).RowHeight = 4.8
Range(Cells(i + 1, 1), Cells(i + 1, 6)).Interior.ColorIndex = 15
i = i + 1
End If
Next i

End SubP.

Viz příloha:

Příloha: zip

32589_test_reseni.zip (15kB, staženo 22x)

citovat

stejzi(2.9.2016 12:52)#032592

OK, díkcitovat

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.