Hi I want to convert this formula to VBA : =IFERROR(MID(A2,FIND("No",A2,1)+3,13),IFERROR(MID(A2,FIND("Number",A2,1)+7,13),""))
this is my sub that is not working
Sub FindPNumber()
Dim LastRow As Long
Dim i As Long
Range("E1").Value = "P Number"
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
Cells(i, 5).Formula = "=WorksheetFunction.IfError(WorksheetFunction.Mid(Range(A2), (Application.WorksheetFunction.Find(""No"", Range(A2), 1) + 3), 13), WorksheetFunction.IfError(WorkSheetFunction.Mid(Range(A2), (Application.WorksheetFunction.Find(""Number"", Range(A2), 1) + 7), 13), ""))"
Next
End Sub
Thank you
this is my sub that is not working
Sub FindPNumber()
Dim LastRow As Long
Dim i As Long
Range("E1").Value = "P Number"
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
Cells(i, 5).Formula = "=WorksheetFunction.IfError(WorksheetFunction.Mid(Range(A2), (Application.WorksheetFunction.Find(""No"", Range(A2), 1) + 3), 13), WorksheetFunction.IfError(WorkSheetFunction.Mid(Range(A2), (Application.WorksheetFunction.Find(""Number"", Range(A2), 1) + 7), 13), ""))"
Next
End Sub
Thank you