VBA: Find rows that meet a criteria and delete the column

[Apple1]

Hi

Using EXcel 2010.

I need a VBA code that will look in the Year and Month rows for certain criteria and delete that column

For eg, Year=2010, and Month=4, so Column B will be deleted. Thank you

	A	B	C	D
Year	2010	2010	2012	2011
Month	3	4	3	2

<tbody>
</tbody>

 

[My Aswer Is This]

Assuming your year numbers are in row (1) and your Month numbers are in Row (2)
And they are entered like 2016 and 4
Try this:

Sub Test()
Application.ScreenUpdating = False
Dim i As Long
Dim LastColumn As Long
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
Dim yy As Long
Dim mm As Long
yy = InputBox("Enter year like 2012 ")
mm = InputBox("Enter month like 10 ")
 
    For i = LastColumn To 1 Step -1
        If Cells(1, i).Value = yy And Cells(2, i).Value = mm Then
            Columns(i).Delete
        End If
    Next
Application.ScreenUpdating = True
End Sub