Macro for deleting a list

[stevenvanderkruk]

Hello,

can someone please help me to create a macro for deletion of "list" content. I want to be able to delete the content of the first 5 or 6 columns of the list for row two untill the end of the list.

Thank you so much.

This forum is great.

Kind regards,

Steven

 

[Scott Huish]

I'm not sure what you mean by row 2 till the end of the list. If it's just row 2 and only for 5 or 6 columns, how is this to the end of the list?

I've never worked with Lists, but this seemed to work for me.

Data, List, Convert to Range
Click Yes
Delete the Cells you don't want.
Select your range
Data List, Create List
Click OK.

In a macro, perhaps something like this, (change ranges as necessary):

Sub Macro1()
ActiveSheet.ListObjects("List1").Unlist
Range("A2:E2").Delete Shift:=xlUp
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$I$16"), , xlYes).Name = "List1"
End Sub

 

[Fazza]

Something like this, maybe. Modify to suit. Regards, Fazza

Range("A1").CurrentRegion.Resize(, 5).Offset(1).ClearContents