Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date problems
I am trying to get this simple code to work. Basically, i want to set this
up so that if it has been less than 30 days between dates it will return a value. This is the code: OpenDate = CDate(TransAmount.Offset(0, -4)) TodayDate = CDate(TransAmount.Offset(0, 12)) If TransAmount.Offset(0, -2) = "C" And DateDiff("d", TodayDate, OpenDate) <= 32 And TransAmount = 750 Then TransAmount.EntireRow.Select Selection.Font.Bold = True With Selection.Interior .ColorIndex = 37 .Pattern = xlSolid End With TransAmount.Offset(0, -7).Select ActiveCell.Value = "HOLD" End If i keep getting an "object needed" error. Any ideas? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date problems
What line of code is highlighted when the error occurs? Is
"TransAmount" always initialized properly? / Tyla / On Apr 12, 5:50 pm, edluver wrote: I am trying to get this simple code to work. Basically, i want to set this up so that if it has been less than 30 days between dates it will return a value. This is the code: OpenDate = CDate(TransAmount.Offset(0, -4)) TodayDate = CDate(TransAmount.Offset(0, 12)) If TransAmount.Offset(0, -2) = "C" And DateDiff("d", TodayDate, OpenDate) <= 32 And TransAmount = 750 Then TransAmount.EntireRow.Select Selection.Font.Bold = True With Selection.Interior .ColorIndex = 37 .Pattern = xlSolid End With TransAmount.Offset(0, -7).Select ActiveCell.Value = "HOLD" End If i keep getting an "object needed" error. Any ideas? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date problems
Do you have
Dim TransAmount as Range ??? "edluver" wrote: I am trying to get this simple code to work. Basically, i want to set this up so that if it has been less than 30 days between dates it will return a value. This is the code: OpenDate = CDate(TransAmount.Offset(0, -4)) TodayDate = CDate(TransAmount.Offset(0, 12)) If TransAmount.Offset(0, -2) = "C" And DateDiff("d", TodayDate, OpenDate) <= 32 And TransAmount = 750 Then TransAmount.EntireRow.Select Selection.Font.Bold = True With Selection.Interior .ColorIndex = 37 .Pattern = xlSolid End With TransAmount.Offset(0, -7).Select ActiveCell.Value = "HOLD" End If i keep getting an "object needed" error. Any ideas? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Date problems | Setting up and Configuration of Excel | |||
Date problems | Excel Programming | |||
Date problems, is it a bug??? | Excel Discussion (Misc queries) | |||
Date Problems | Excel Programming | |||
Date problems | Excel Programming |