< návrat zpět

MS Excel


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

Zaslal/a 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: 7z32586_test.7z (9kB, staženo 22x)
Zaslat odpověď >

#032589
avatar
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 Sub
P.

Viz příloha:
Příloha: zip32589_test_reseni.zip (15kB, staženo 22x)
citovat
#032592
avatar
OK, díkcitovat

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09