can't run a simple recorded macro

Hi everybody,

I'm working on a macro, and needed to know how to write a code with a find formula. I decided to record a simple macro in excel that will do exactly what i want to do. after recording the marco, i tried to run it but it crashes. the code is this:

Code:

---

Sub Macro3()
'
' Macro3 Macro
'

'
    Range("E5:AB5").Select
    Selection.Find(What:="29/01/2016", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Range("X5").Select
   
End Sub

---

Can someone help me ?

How does it crash?
Is that date somewhere in E5:AB5 of the ActiveSheet?

What about this?

Code:

---

Sub Macro3()
    '
    ' Macro3 Macro
    '
   
    '
    Range("E5").Select
    Range("E5:W5").Find(What:="29/01/2016", After:=ActiveCell, LookIn:=xlFormulas _
    , LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
   
End Sub

---

Quote:

---

Originally Posted by mikerickson

How does it crash?
Is that date somewhere in E5:AB5 of the ActiveSheet?

---

Attachment 15488Attachment 15489Attachment 15490

Quote:

---

Originally Posted by jolivanes

What about this?

Code:

---

Sub Macro3()
    '
    ' Macro3 Macro
    '
   
    '
    Range("E5").Select
    Range("E5:W5").Find(What:="29/01/2016", After:=ActiveCell, LookIn:=xlFormulas _
    , LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
   
End Sub

---

---

it does'nt work neither Jolivanes

The code is looking for "29/01/2016".
The cell contains "29/02/2016"

It is finding nothing and, therefore, erroring when it tries to Activate Nothing.

Try

Code:

---

Dim myCell as Range

Set myCell = Range("E5:W5").Find(What:="29/01/2016", After:=Range("E5"), LookIn:=xlFormulas _
    , LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)

If myCell is Nothing then
    MsgBox "nothing found"
Else
    myCell.Activate
End If

---

Hi Mikerickson, thanks fo your answer. It turns out that Excel didn't recognize the date type of my data. So i used DateSearial in my Find function, then it works very well.