Delete Column

[Bernie]

In Excel, I need a macro that will delete a column based on a cell
that will contain a name based on an input box.

Thanks,
Bernie

 

[Gord Dibben]

Bernie

Will the name be found only in one column or many columns?

If many, which one or more of the many would you like deleted?


Gord Dibben MS Excel MVP

 

[Don Guillett]

Have a look in the vba HELP index for FIND or FINDNEXT.

 

[Bernie]

Bernie

Will the name be found only in one column or many columns?

If many, which one or more of the many would you like deleted?

Gord Dibben MS Excel MVP




- Show quoted text -

The name will be found only in one column. Thanks!

 

[Gord Dibben]

Try this with a fixed column.

Note the lines to make it a selectable column if you wanted.

Public Sub DeleteColOnWord()
Dim coltocheck As Range
Dim thename As String
On Error GoTo endit

Set coltocheck = Range("D")
' Set coltocheck = Application.InputBox(Prompt:= _
' "Select A Column", Type:=8)
thename = InputBox("enter a name")
For Each i In coltocheck
If i.Value = thename Then _
i.EntireColumn.Delete
Next i

endit:
End Sub


Gord

 

[Bernie]

Try this with a fixed column.

Note the lines to make it a selectable column if you wanted.

Public Sub DeleteColOnWord()
Dim coltocheck As Range
Dim thename As String
On Error GoTo endit

Set coltocheck = Range("D")
' Set coltocheck = Application.InputBox(Prompt:= _
' "Select A Column", Type:=8)
thename = InputBox("enter a name")
For Each i In coltocheck
If i.Value = thename Then _
i.EntireColumn.Delete
Next i

endit:
End Sub

Gord




- Show quoted text -

Thank you so much, I modified it to fit my current workbook and it
worked perfectly.

Bernie

 

[Gord Dibben]

Thanks for the feedback.

Gord

Thank you so much, I modified it to fit my current workbook and it
worked perfectly.

Bernie