Thread: Error type mismatch in writing macro
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
UB UB is offline
external usenet poster
  
Posts: 120
Default Error type mismatch in writing macro
Hi
I have a formula in cell - =IF(J45="","",(J45+181)), where if j45 is blank,
the cell h45 is blank or h45 has a new date, the format of the coloumn "H"
is date.

I my VB code I am using this column to satify a condition and my code is
For rwIndex = 4 To 40
Year(Worksheets("Sheet1").Cells(rwIndex, 12).Value) = Year(Mydate)
Then
Worksheets("Sheet1").Cells(rwIndex, 12).Interior.Color = RGB(0, 0, 255)

I am getting Runtime error '13' - Type Mismatch, because few cells blank,
because of the cell formula IF(J45="","",(J45+181))

Please advise how can I correct the VB code
Reply With QuoteReply With Quote