Delete rows with Macro

Sixthsense

Active Member

Joined

Nov 19, 2012

Messages

385

• Jun 13, 2014

• #2

What needs to be deleted based on how?

 

Upvote 0

H

Horby

New Member

Joined

Jun 13, 2014

Messages

22

• Jun 13, 2014

• #3

i want delete Column A,B,C,D After Row nummber 6.

 

Upvote 0

Sixthsense

Active Member

Joined

Nov 19, 2012

Messages

385

• Jun 13, 2014

• #4

Try this...

Code:

Sub DeleteDataRow()
    Range("A6").CurrentRegion.EntireRow.Delete
End Sub

 

Upvote 0

H

Horby

New Member

Joined

Jun 13, 2014

Messages

22

• Jun 13, 2014

• #5

Sixthsense said:

Try this...

Code:

Sub DeleteDataRow()
    Range("A6").CurrentRegion.EntireRow.Delete
End Sub

Click to expand...

Can I just emptying the content. Only the first column and the second, third and fourth after line 5. Your code works but to each columns.

 

Upvote 0

Sixthsense

Active Member

Joined

Nov 19, 2012

Messages

385

• Jun 13, 2014

• #6

Try this...

Code:

Sub DeleteDataRow()
    Range("A6").CurrentRegion.ClearContents
End Sub

 

Upvote 0

H

Horby

New Member

Joined

Jun 13, 2014

Messages

22

• Jun 13, 2014

• #7

Code works on both columns and rows! I do not want to all.

 

Upvote 0

Sixthsense

Active Member

Joined

Nov 19, 2012

Messages

385

• Jun 13, 2014

• #8

Horby said:

Can I just emptying the content. Only the first column and the second, third and fourth after line 5. Your code works but to each columns.

Click to expand...

Sorry I am unable to understand what you want

Your above statement is unclear to me

 

Upvote 0

H

Horby

New Member

Joined

Jun 13, 2014

Messages

22

• Jun 13, 2014

• #9

See the picture, I just want to delete the specific color yellow.

 

Upvote 0

Sixthsense

Active Member

Joined

Nov 19, 2012

Messages

385

• Jun 13, 2014

• #10

Check whether this helps you

Code:

Sub DeleteDataRow()
Dim lRw As Long

lRw = Cells(Rows.Count, "A").End(xlUp).Row
Range("A6:D" & lRw).ClearContents

End Sub

 

Upvote 0