< návrat zpět

MS Excel


Téma: Smazání posledního řádku v tabulce rss

Zaslal/a 20.6.2018 7:47

Zdravím,

mám (věřím že pro mnohé z vás) triviální dotaz. Potřeboval bych vyrobit makro, které mi po spuštění smaže poslední řádek v tabulce. Mám tabulku, a v ní je třeba 10 obsazených řádků (sloupce A:G) a po stisku tlačítka se desátý řádek vymaže. Po opětovném stisknutí tlačítka se vymaže devátý řádek apod... Když třeba zase 8 řádků přibyde (8+8 = 16) tak po stisku tlačítka se vymaže 16. řádek.

Dokázal by někdo toto vytvořit?

Děkuji moc

Zaslat odpověď >

#040752
elninoslov
Sub SmazatPosledniRadek()
Dim PoslRadek As Long
With ThisWorkbook.Worksheets("Tabulka")
PoslRadek = .Cells(Rows.Count, 1).End(xlUp).Row
'If PoslRadek > 1 Then .Cells(PoslRadek, 1).Resize(, 7).Delete Shift:=xlUp
If PoslRadek > 1 Then .Cells(PoslRadek, 1).EntireRow.Delete
End With
End Sub

Použite jeden alebo druhý riadok "If ...", podľa toho, či sa má zmazať celý Excelácky riadok, alebo iba riadok tabuľky (teda či má vpravo od tabuľky všetko ostať alebo nie, teda ak tam niečo je).

EDIT:
Prípadne
If PoslRadek > 1 Then .Cells(PoslRadek, 1).Resize(, 7).Clear
alebo
If PoslRadek > 1 Then .Cells(PoslRadek, 1).Resize(, 7).ClearContents
Záleží na tom, čo myslíte pod slovom "vymazať", a čo pod pojmom "tabuľka".citovat

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