Delete range based columns in sheet 1

**cpramesh** · 05-31-2017, 05:25 AM

In "Sheet 1" name of the worksheet, starting column and ending column mentioned. Need to delete based on the input of all sheets.

**Special-K** · 05-31-2017, 05:44 AM

Am no VBA expert, but this seems to work

Sub DelColumns()
lastrow = Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lastrow
ShtNm = Worksheets("Sheet1").Cells(i, 1)
ColFrm = Worksheets("Sheet1").Cells(i, 2)
ColTo = Worksheets("Sheet1").Cells(i, 3)
Worksheets(ShtNm).Range(ColFrm & ":" & ColTo).Delete
Next i
End Sub

**JOHN H. DAVIS** · 05-31-2017, 08:16 AM

Not sure of what you're after? Does this help?

Sub cprameshz()
Dim i As Long
With Sheets("Sheet1")
    For i = 2 To .Range("A" & Rows.Count).End(3).row
        Sheets(.Cells(i, "A").Value).Columns(.Cells(i, "B") & ":" & .Cells(i, "C")).Delete
    Next i
End With
End Sub

**cpramesh** · 06-02-2017, 02:04 AM

John your code is working well. Thank you

**JOHN H. DAVIS** · 06-05-2017, 06:55 AM

You're welcome. Glad to help out and thanks for the feedback.

Delete range based columns in sheet 1

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Delete range based columns in sheet 1

Re: Delete range based columns in sheet 1

Re: Delete range based columns in sheet 1

Re: Delete range based columns in sheet 1

Re: Delete range based columns in sheet 1

Thread Information

Users Browsing this Thread

Similar Threads

Cut Row to New Sheet, Delete From Previous - based on value in two different columns

[SOLVED] Delete Sheet Rows & Columns based on cell value

Delete Columns( From One Sheet) based on the header name from a list.

Dynamically fill range of columns based on value of cell in another sheet

Creating a macro to delete columns based on a Range

How to delete specific columns based on a named range of values from a worksheet

Macro to add sheet, name it based on previous sheet, and delete a range of cells

Bookmarks

Bookmarks

Posting Permissions