Select row dependant on column value?

freeBatjko · #1 (**permalink**) 01-20-09, 08:36

Hi there,

I just started VBA today, for the single purpose to make my life easier with the massive Excel spreadsheets I need to format all the time.

Therefore, question:
How can I select (and then make bold) an entire row, if one value in a specific column equals a certain predefined value?

So something like this (pseudo alert):

Code:

Columns("I:I").Select
If Selection.Value <> "NONE" Then
  EntireRow.Font.Bold = True
End if

But it doesn't work, because (I assume) I need to loop through all rows manually and select each cell in "I:I" before I can do anything with that row?

freeBatjko · #2 (**permalink**) 01-20-09, 11:11

Ok, what I have so far looks like this:

Code:

Dim i As Long
       
    Columns("I:I").Select
    
   With Selection
      For i = 2 To Cells.Find(What:="*", After:=Range("I1"), LookIn:=xlValues,  LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Step 1
        'On Error Resume Next
        If Cells(i, 9).Value <> "NONE" Then
           ActiveSheet.UsedRange.Rows(i).Font.Bold = True
        End If
      Next i
    End With

But it looks crazy and like bad code, and worst of all... it doesn't work.

freeBatjko · #3 (**permalink**) 01-20-09, 11:56

Ok, I got it myself actually.

I picked up another idea and ended up doing it this way:

Code:

Selection.AutoFilter Field:=9, Criteria1:="<>NONE"
  Cells.Select
  Range("K9").Activate
  Selection.Font.Bold = True
Range("I2631").Select
Selection.AutoFilter Field:=9, Criteria1:="*"

Thanks for... well providing the crying shoulder.

loquin · #4 (**permalink**) 01-23-09, 17:17

Since this issue appears to be much more appropriate to the Excel forum than it does to VB, I'm moving to the Excel forum...

Internet Services

Web Development

Digital Marketing

Consumer Tech