Quick help

[giddyup]

Looking for VBA code to search sheet and find specific text. If found then delete entire column. I also need to be able to cut and paste the entire column (in same sheet) based on text in one cell.

I'm sure this is possible, I tried with FindALL & conditional format formulas, but it just keeps beating me. Any help is appricated!!

 

[SteveO59L]

try posting a sample of your data, and what you would like to do with it

 

[giddyup]

I created a macro that creates a pivot table from three things, Employee Names, Training classes, and the hours of each training class. Since columns and rows can change depending on staffing and new trainings, i need it to search for the text (in Row 2) and then either cut and paste the entire column to a standard place (i.e. column B) or delete the entire column. I was able to do this to rows, but i haven't been able to get it to do the same with a column.

Dim workrange As Range
    Dim Firstrow, Lastrow, lrow As Integer

    Firstrow = ActiveSheet.UsedRange.Cells(1).Row
    Lastrow = ActiveSheet.Range("I60000").End(xlUp).Row
    For lrow = Lastrow To Firstrow Step -1
        Set workrange = Cells(lrow, 9)
        If workrange.Value = "Enrolled" _
           Or workrange.Value = "Not Completed" _
           Or workrange.Value = "In-Progress" _
            Then workrange.EntireRow.Delete
    Next lrow