< návrat zpět

MS Excel

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

Zaslal/a 1Novacek1 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ěď >
elninoslov(20.6.2018 10:46)#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

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.

On-line nástroje