need help with VBA code to reference column header to delete value highlighted in green

[rlabomba]

Hi There,
So this might be a confusing one. I need a macro to go to the column labeled (LSL) and look left until it sees the first cell with data, then I want to delete row that the latest cell highlighted in green. not sure where to start but I think i'm confusing myself. So, in laymen terms I need the macro to go to column labeled LSL, look left cell by cell and find the first non-blank cell, if that cell is green delete entire row, shift cells up, if any other color just ignore and move on. I hope that makes it a little clearer.

 

[onlyadrafter]

Hello,

This isn't the most efficient code.

Sub DELETE()
    For FIND_COLS = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        If Cells(1, FIND_COLS).Value = "LSL" Then
            MY_COL = FIND_COLS
            GoTo cont
        End If
    Next FIND_COLS
cont:
    For MY_ROWS = Cells(Rows.Count, MY_COL).End(xlUp).Row To 2 Step -1
        For MY_COLS = FIND_COLS - 1 To 1 Step -1
            If Not IsEmpty(Cells(MY_ROWS, MY_COLS).Value) Then
                If Cells(MY_ROWS, MY_COLS).Interior.Color = 5287936 Then
                    Rows(MY_ROWS).DELETE
                End If
                GoTo MY_NEXT
            End If
        Next MY_COLS
MY_NEXT:
    Next MY_ROWS
End Sub

But I think it works. You will need to play around with the colour number, depending on which green you are using.

 

[rlabomba]

HEYYYYYY...worked! Thanks alot!!

Hello,

This isn't the most efficient code.

Sub DELETE()
    For FIND_COLS = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        If Cells(1, FIND_COLS).Value = "LSL" Then
            MY_COL = FIND_COLS
            GoTo cont
        End If
    Next FIND_COLS
cont:
    For MY_ROWS = Cells(Rows.Count, MY_COL).End(xlUp).Row To 2 Step -1
        For MY_COLS = FIND_COLS - 1 To 1 Step -1
            If Not IsEmpty(Cells(MY_ROWS, MY_COLS).Value) Then
                If Cells(MY_ROWS, MY_COLS).Interior.Color = 5287936 Then
                    Rows(MY_ROWS).DELETE
                End If
                GoTo MY_NEXT
            End If
        Next MY_COLS
MY_NEXT:
    Next MY_ROWS
End Sub

But I think it works. You will need to play around with the colour number, depending on which green you are using.