VBA-kod för att ta bort

[Kossimossan]

Private Sub btnOkej_Click()

Dim ssheet As Worksheet

Set ssheet = ThisWorkbook.Sheets("inköp")

nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

 

ssheet.Cells(nr, 1) = Me.cmbVara

ssheet.Cells(nr, 2) = Me.tbAntal

 

Hej!
Detta är koden jag skrivit i excel/vba för att göra en enkel inköpslista. Jag väljer varugrupp i en combobox1 och beroende på vad som kommer upp väljer jag vara ur combobox2. Jag har också en textbox som jag skriver antal i. När jag sedan trycker på min okejknapp hamnar mina varor så jättefint under varandra.

 

Så långt allt okej. MEN

 

1. Vad för kod använder jag om ta bort varan som är ovanför den aktiva cellen. (Via en ny knapp)?

2. ...vill radera alla varorna jag skrivit in. (Via en annan ny knapp)?

 

Säkert jätteenkelt. Troligtvis finns det i forumet men det svåra är att veta vad man skall söka på...

 

Mvh

[Monshi]

ssheet.Cells(nr-1, 1).EntireRow.Delete

eller

 

ssheet.Cells(nr, 1).Offset(-1).EntireRow.Delete

om man så vill

 

Alla varor? Antar rubrikrikrad och kontinuerligt område

ssheet.Cells(1,1).CurrentRegion.Offset(1).EntireRow.Delete

[Kossimossan]

Stort TACK!!!!!

[Monshi]

Notera bara, när VBA-kod raderar fungerar INTE ångerknappen/Undo.