infinity
01-30-2019, 12:14 PM
Hello,
I am trying to look for specific conditions and if those conditions are met I want the selection to move down one row and check for those conditions again and so on. The code I have for this portion is giving me an error that says "Run-Time Error 13 Type Mismatch", I think it may have to do with the "=Today()" portion of it but I am not sure. Can anyone advise? Thank you much!
If ActiveCell.Offset(0, 0).Range("A1") <> "Meeting" And ActiveCell.Offset(0, 10).Range("A1") <> "" Or ActiveCell.Offset(0, 0).Range("A1") = "Meeting" And ActiveCell.Offset(0, 10).Range("A1") <> "" And ActiveCell.Offset(0, 1).Range("A1") >= "=TODAY()" - 1 Then
activecell.offset(1,0).range("A1").Select
I am trying to look for specific conditions and if those conditions are met I want the selection to move down one row and check for those conditions again and so on. The code I have for this portion is giving me an error that says "Run-Time Error 13 Type Mismatch", I think it may have to do with the "=Today()" portion of it but I am not sure. Can anyone advise? Thank you much!
If ActiveCell.Offset(0, 0).Range("A1") <> "Meeting" And ActiveCell.Offset(0, 10).Range("A1") <> "" Or ActiveCell.Offset(0, 0).Range("A1") = "Meeting" And ActiveCell.Offset(0, 10).Range("A1") <> "" And ActiveCell.Offset(0, 1).Range("A1") >= "=TODAY()" - 1 Then
activecell.offset(1,0).range("A1").Select