Delete Certain columns based on Values in a Cell

[GERALDRAHMAN]

Hi All

I would like a Macro that can delete a column if a value in the cell is below a certain criteria, say 10, for example, so all columns that have values in a specific cell address that are <10, will be deleted. The row in which the value resides changes sometimes it's row 11, 12 , 13, up to row 32. I can place a value in a specific cell which excel can use to identify the row number. I have seen a similar question in this forum answered by one of your contributors, but my requirement is somewhat different.

Thanks in advance

 

[GERALDRAHMAN]

I am not sure if this is the way it's done. To provide sample workbook. Plse let me know.

https://docs.google.com/file/d/0Byi...0ByiLbSpMqORmcXJfdE80ZkdaejA/edit?usp=sharing

 

[GERALDRAHMAN]

Okay, so I found code that almost does it from within this forum: It follows:

Sub deleteSpecificTextColumn()    Application.ScreenUpdating = False
    Dim i As Long, LC As Integer, lookFor As String, count As Integer
    
    count = 0
    '16384 is the limit number for Excel 2007, if you're using excel below 2007, replace 16384 with 256
    LC = Cells(1, 16384).End(xlToLeft).Column
    lookFor = InputBox("What text do you want to look for in the first row? (case-sensitive)")
    If lookFor = "" Then
        Exit Sub
    End If
    lookFor = "*" & lookFor & "*"
    
    For i = LC To 1 Step -1
        If Cells(1, i).Value Like lookFor Then
            count = count + 1
            Columns(i).EntireColumn.Delete
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox "Done! Found " & count & "."
End Sub

So if I want macro to look at value in row 1 I leave it as it is if I want row 2 then I change -- If Cells(1, i) -- The 1 in the brackets to a 2 etc, but how can I get it to choose the row based on a value in a cell address.