sorry for such a remedial question, but im thoroughly stumped

[kbishop94]

I want to have the formatting (green highlighted rolls and bold font) STOP when it reaches the last column that has any formatting (using columncount) instead of having the green highlight continue on out past the last column. But I cant figure out what VBA to use to accomplish this. When I use the (Cell.Row) (which i circled in green in the code I posted below) it obviously will format the ENTIRE row... what do I need to change so that it stops the formatting on the last column that contains any text/formating?

This is what it looks like now, but I need to green formatting to stop once it reaches the column with the last name in row A (Zuri,Snow)

 

[mumps]

Try:

If Cell Like "*PO*" Then
    With Range(Cells(Cell.Row, 1), Cells(Cell.Row, mCol))
        .Interior.Color = 65280
        .Font.Bold = True
        .Borders.Weight = xlMedium
    End With
End If

 

[MARK858]

Can you post your code directly in the thread please (then select the code and click the # icon so it puts it in code tags) so that it can be copied rather then as an image that can't be copied?

Edit: see mumps post as should work for you so I shouldn't need to post a suggestion but in future please post your code directly in the thread.

 

[Fluff]

Maybe

Cell.Resize(, mcol).Interior.Color = 65280

In future, please post your code here (using code tags), rather than just showing an image.

 

[kbishop94]

Maybe

Cell.Resize(, mcol).Interior.Color = 65280

In future, please post your code here (using code tags), rather than just showing an image.

Will do. I dont post here too often, so sorry about that.

 

[kbishop94]

Thank you, that worked great.

Here is my new code, but I am having trouble finding where to insert a 'else' command so that the rows that do NOT contain the text its looking for (in this case the "*Pr*) they can be formatted differently than the others (want them to have a lighter font lighter and the rows narrower.) Where and how can i make use of the else command to do this? (or is that not correct and I should be doing it a different way?)

Thanks again

Dim mCol As Long
    mCol = ActiveSheet.UsedRange.Columns.Count
    nCol = ActiveSheet.UsedRange.Rows.Count
    For Each Cell In Range(Cells(6, 1), Cells(nCol, 1))
    
If Cell Like "*Pr*" Then
    With Range(Cells(Cell.Row, 1), Cells(Cell.Row, mCol))
        .Interior.Color = 65280
        .Font.Bold = True
        .Borders.Weight = xlMedium
    
    End With
    
End If


Next

 

[MARK858]

Something like the below (change the formatting to suit)?

    Dim mCol As Long, nCol As Long, Cell As Range
    mCol = ActiveSheet.UsedRange.Columns.Count
    nCol = ActiveSheet.UsedRange.Rows.Count

    For Each Cell In Range(Cells(6, 1), Cells(nCol, 1))
        With Range(Cells(Cell.Row, 1), Cells(Cell.Row, mCol))

            If Cell Like "*Pr*" Then
                .Interior.Color = 65280
                .Font.Bold = True
                .Borders.Weight = xlMedium
            Else
                .Font.Color = 10213316
                Rows(Cell.Row).RowHeight = 28.5

            End If

        End With

    Next

 

[kbishop94]

That did the trick!!! Thank you, Mark.

 

[MARK858]

You're welcome.