VBA code help! Removing unwanted columns using inputbox

[usui]

Hi Masters,

I would like to ask help about a vba code that can help me removing unwanted columns base on the data..and too just enter it in a inputbox or pop up box with multiple data separate with comma.

here is a sample: i wanted to remove the columns in yellow, by just entering their data ( Power Source, Number of Lantern Heads, Integrated LE) like this or enter any data showing in the row1 in each columns.

and also to make it work on the others sheets as well since we have multiple sheets in 1 workbook.

please help me anyone?

 

[steve the fish]

Maybe this? It works on active sheet at the time it runs. If you want it to work on other sheets then how do you want to feed the code the sheet names?

Sub RemoveCols()

Dim ibox As String, arr As Variant, i As Long, col As Variant

ibox = InputBox("Enter column headers to delete separated by commas", "Headers")

If Len(ibox) = 0 Then
    Exit Sub
Else
    arr = Split(ibox, ",")
    For i = LBound(arr) To UBound(arr)
        With ActiveSheet
            col = Application.Match(Trim(arr(i)), .Rows(1), 0)
            If IsNumeric(col) Then
                .Columns(col).Delete Shift:=xlToLeft
            End If
        End With
    Next
End If
    
End Sub

 

[usui]

Maybe this? It works on active sheet at the time it runs. If you want it to work on other sheets then how do you want to feed the code the sheet names?

Sub RemoveCols()

Dim ibox As String, arr As Variant, i As Long, col As Variant

ibox = InputBox("Enter column headers to delete separated by commas", "Headers")

If Len(ibox) = 0 Then
    Exit Sub
Else
    arr = Split(ibox, ",")
    For i = LBound(arr) To UBound(arr)
        With ActiveSheet
            col = Application.Match(Trim(arr(i)), .Rows(1), 0)
            If IsNumeric(col) Then
                .Columns(col).Delete Shift:=xlToLeft
            End If
        End With
    Next
End If
   
End Sub

Hi Steve thank you for this and it works, but if you can make the other sheets delete the same, i just need to automatically delete it to all sheets after clicking OK on the input box