Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Type Mismatch Error
Greetings,
I am getting a type mismatch error on this code: __________________________________________________ ___________________________ Public Sub rDailyColor() 'Formatting of "Daily" sheet Dim rDailyItem As Range Dim rInputPaidItem1 As Range Dim rInputPaidItem2 As Range Dim rInputTrigger As Range ' On Error Resume Next ' Had to rem this out to get the error For iDay = 1 To 31 For iDayItem = 1 To 27 Set rDailyItem = _ Range("rDaily" & iDay & "_" & iDayItem) Set rInputPaidItem1 = _ Range("rInput" & iDay).Offset(iDayItem, _ 7) Set rInputPaidItem2 = _ Range("rInput" & iDay).Offset(iDayItem, _ 9) Set rInputTrigger = _ Range("rInput" & iDay).Offset(iDayItem, _ 34) Select Case rInputTrigger Case vbNullString '<<<< This is the line With rDailyItem .Interior.ColorIndex = xlNone .Font.FontStyle = "Bold" End With Case Else Select Case rInputPaidItem2 Case vbNullString Select Case rInputPaidItem1 Case vbNullString With rDailyItem .Interior.ColorIndex = 38 '38 .Font.FontStyle = "Bold" End With Case Else With rDailyItem .Interior.ColorIndex = xlNone .Font.FontStyle = "Bold" End With End Select Case Else With rDailyItem .Interior.ColorIndex = xlNone .Font.FontStyle = "Bold" End With End Select End Select Next iDayItem Next iDay On Error GoTo 0 End Sub __________________________________________________ ___________________________ Any ideas as to what needs to be done to correct this problem? Any suggestions are welcome and appreciated. -Minitman |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
xpath error? Runtime Error 13 type mismatch | Excel Discussion (Misc queries) | |||
xpath error? Runtime Error 13 type mismatch | Excel Discussion (Misc queries) | |||
Type Mismatch Error - Help Please | Excel Worksheet Functions | |||
Type Mismatch Error | Excel Discussion (Misc queries) | |||
Why type mismatch - R/T error 13 | Excel Discussion (Misc queries) |