Highlight cells using VBA (1 Viewer)

KirkComer · Jun 11, 2009

Can I highlight certains cells in a particular column using VBA?
I have attached a simple example.

I want to highlight "Due Date" cells that are older than 30 days that do not have a date entered under "Date Complete".

So in the attached example the only cell that should highlight would be A5

HaHoBe · Jun 11, 2009

Hi, KirkComer,

Conditional Formatting should do the job as well

Sheet VBA uses the following code:

Code:

Sub PutCF()
Dim lngLast As Long
Dim lngCounter As Long

Application.ScreenUpdating = False
lngLast = Cells(Rows.Count, "A").End(xlUp).Row
For lngCounter = 2 To lngLast
  With Cells(lngCounter, "A")
    If .Value < Date - 30 And IsEmpty(.Offset(0, 1).Value) Then
      .Interior.ColorIndex = 3
    End If
  End With
Next lngCounter
Application.ScreenUpdating = True
End Sub

Ciao,
Holger

KirkComer · Jun 11, 2009

Thank you soooo much!!!

Highlight cells using VBA (1 Viewer)

KirkComer

Registered User.

Attachments

HaHoBe

Locomotive Breath

Attachments

KirkComer

Registered User.

Similar threads

Users who are viewing this thread