Question

1. I have a web application that generates two different Excel reports with different numbers of leaves and different number of columns, see below.

   Report 1
   Sheet1 has four columns headed C11, C12, C13, C14
   Sheet2 has three columns headed C21, C22, C23

   Report 2
   Sheet1 has four columns headed C11, C12, C13, C14 (same as in Report 1)
   Sheet2 has three columns headed C21, C22, C23 (same as in Report 1)
   Sheet3 has three columns headed C31, C32, C33, C34, C35,….

2. I want to be able to remove some columns in the reports of two levels that I should enter, see below:

   Level 1: Search for Sheet1 and remove the C12 and then
   Search for Sheet2 and remove C22, then
   Search Sheet3, and remove C32

   Level 2: Search for Sheet1 and remove the C11 and C13, then
   Search for Sheet2 and remove the C21 and C22, then
   Search Sheet3, and remove C33, C34, C35

3. I want the macro first asks for the level and then searches for each Sheet and looking forward for each column and remove it as described above.

Answer 1

Use the following code. Run the Macro ‘Choose’ to select the level. This code deletes the entire column where the conditions are true

Sub Choose()
    l = InputBox(Prompt:="Enter the level you want", Title:="Level Selection")
    If l = 1 Then
        Call Level1
    ElseIf l = 2 Then
        Level2
    ElseIf l = "" Then
    Else
        MsgBox "Incorrect entry.", vbInformation, "Incorrect"
    End If
End Sub

Sub Level1()
    Application.ScreenUpdating = False
    On Error Resume Next
    Blad1.Activate
    Blad1.Cells.Find(What:="C12", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    i = ActiveCell.Column
    Blad1.Columns(i).Delete

    Blad2.Activate
    Blad2.Cells.Find(What:="C22", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    i = ActiveCell.Column
    Blad2.Columns(i).Delete

    Blad3.Activate
    Blad3.Cells.Find(What:="C32", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    i = ActiveCell.Column
    Blad3.Columns(i).Delete
    Blad1.Activate
    Application.ScreenUpdating = True
End Sub


Sub Level2()
    Application.ScreenUpdating = False
    On Error Resume Next
    Blad1.Activate
    Blad1.Cells.Find(What:="C11", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    i = ActiveCell.Column
    Blad1.Columns(i).Delete
    Blad1.Cells.Find(What:="C13", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    i = ActiveCell.Column
    Blad1.Columns(i).Delete

    Blad2.Activate
    Blad2.Cells.Find(What:="C21", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    i = ActiveCell.Column
    Blad2.Columns(i).Delete
    Blad2.Cells.Find(What:="C22", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    i = ActiveCell.Column
    Blad2.Columns(i).Delete

    Blad3.Activate
    Blad3.Cells.Find(What:="C33", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    i = ActiveCell.Column
    Blad3.Columns(i).Delete
    Blad3.Cells.Find(What:="C34", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    i = ActiveCell.Column
    Blad3.Columns(i).Delete
    Blad3.Cells.Find(What:="C35", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    i = ActiveCell.Column
    Blad3.Columns(i).Delete
    Blad1.Activate
    Application.ScreenUpdating = True
End Sub

Please see the file including macro