[RESOLVED] color change the entire rows

[kamakshi]

I am trying to do from outlook to excel if the cell value is empty change the entire row will be yellow but i have error Cells(c.Row, 7).Value = ""

With Sheets("Sheet1").Range("C6:C29")
          Set c = .Find(MYName, LookIn:=xlValues)
          
          If Not c Is Nothing Then
            MyTime = olMail.ReceivedTime
         
                  Cells(c.Row, 7).Value = MyTime          
                Else
                  Cells(c.Row, 7).Value  = ""
         Range(Cells(c.Row, 1), Cells(c.Row, 7)).Interior.ColorIndex = 35
                        End If
        End With

[Hack]

What is the error?

[Siddharth Rout]

You will get an error if there is no text found because you will not get a value for c.Row in the "Else" part.

[kamakshi]

could you help me Kool
so how do i put it in the code if the cell value is empty the entrie row will be changed the yellow color

[Siddharth Rout]

could you help me Kool
so how do i put it in the code if the cell value is empty the entrie row will be changed the yellow color

Sure

Is this what you are trying?

    With Sheets("Sheet1").Range("C6:C29")
        Set c = .Find(MYName, LookIn:=xlValues)
        If Not c Is Nothing Then
            MyTime = olMail.ReceivedTime
            Cells(c.Row, 7).Value = MyTime
        Else
            Range("C6:C29").Value = ""
            Range("C6:C29").Interior.ColorIndex = 6 '<~~ Yellow Color
        End If
    End With

[kamakshi]

Thanks Kool