Macro which deletes rows

**kjshep** · 10-24-2012, 12:51 PM

Im looking for a macro which will delete and shift up my data. (Rows 2-12)
This is probably really simple?

Thanks

**jeffreybrown** · 10-24-2012, 12:54 PM

As a beginning step, you could record yourself taking this action and then paste the macro here and we can show you how to clean it up.

**kjshep** · 10-24-2012, 01:04 PM

Okay thanks,

So i get

Sub DeleteRow()
'
' deleterows Macro
'

'
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Selection.Delete Shift:=xlUp
End Sub

Which works after selecting what i want. So i just need to change it by adding in the range i want to delete so it does it automatically?

**HaHoBe** · 10-24-2012, 01:09 PM

Hi, kjshep,

refer to the range and add EntireRow as otherwise only the cells would get deleted:

Sub DeleteRow()
'
' deleterows Macro
'

'
    Range("A2:A12").EntireRow.Delete Shift:=xlUp
End Sub

Ciao,
Holger

Macro which deletes rows

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Macro which deletes rows

Re: Macro which deletes rows

Re: Macro which deletes rows

Re: Macro which deletes rows

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions