excel vba - cell formating

  • Looking for a little syntax help.

    I'm writing an excel module that will scan each cell for a date. If the date is not equal to today's date then I would like to highlight the entire row grey.

    So far I was thinking something along the lines of the follwing:
    Because this is my first time doing vba (I was a java programmer) I will have to use psuedo code.

    Sub todayStandsOut()
    If Sheet1.(Range("Current Cell")) != date(today) Then
    Rows("current row").Interior.ColorIndex = 15
    End If
    End Sub

    Please help!
    Also If anyone knows an excel vba command reference site or listing that would be helpful as well.


  • Hi d,

    Welcome to the board :)

    Is this the sort of thing that you had in mind?

    As regards the VBA commands, the VBE Help files are a very good source of information. If you are examining code for learning purposes and want help on a partyicular item, just highlight it and press F1 for help on the subject (if it exists!). You light also wish to have a look at the various VBE examples that Dave provides on the main OzGrid site, there is some good stuff there.

    If you have any specific queries then feel free to post them here.


  • In the end I decided to go with this ...

    Sub dateCheck()

    'standardize the date column
    'makes it easier to match criteria later
    Selection.NumberFormat = "m/d/yyyy h:mm:ss AM/PM"

    'Dim datedigits As String
    Dim A3 As Date

    'G2 is an arbitrary cell. The entire column will be hidden later.
    Range("G2") = Range("A3")

    Dim Bcell As Range
    For Each Bcell In Range("a3", "g500")
    If Left(Bcell, 3) = Left(Range("G2"), 3) Then
    Bcell.EntireRow.Interior.ColorIndex = 15
    Bcell.EntireRow.Font.Bold = True
    Bcell.EntireRow.Font.Size = 9

    End If
    Next Bcell

    Columns("B:B").ColumnWidth = 9
    Selection.EntireColumn.Hidden = True
    End Sub

    I was asked to highlight everything that DOES NOT meet the criteria (ie not today's date) but for some reason, when I tried to use <> in the if statement EVERYTHING was highlighted.
    I guess my boss will just have to settle with the opposite of what she asked for.

    THanks again.


Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!