Run time error between Excel 1997 and Excel 2003
Hello
Urgent pls
i have a sheet run well on Excel 1997 version. When I run it on Excel 2003 version i have this message error:
Run-time error '-2147024809 (80070057)' : item with the specified name wasn't found
pls, can you help me :
my peace of code is below:
Please Login or Register to view this content.
thank you an advance
Last edited by kwaiter; 03-20-2018 at 03:16 AM. Reason: Please use code tags
Hi,
That simply means there isn't a shape on that sheet called "Autoshape 1".
Don
Please remember to mark your thread 'Solved' when appropriate.
Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.
Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.
Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!
Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).
HTH
Regards, Jeff
I dont make any change. The excel sheet work very well on 97 version.
the problem come from 2003 version.
Please address the moderator request or I can’t help you.
hi, need help pls
i have a sheet run well on Excel 2019 and i have this message error:
Run-time error '-2147024809 (80070057)'
i have problem with yellow mark on VBA when i add a new data from UserForm:
If IsNumeric(Me("emp" & DataCol)) Then
and this is the code below :
'Fill Data in Excel Sheet
With Sheet2
.Range("A4") = "=Iferror(Max(empid)+1,1)"
Me.emp1 = .Range("A4").Value
'Check Form for all field are filled
If Me.emp2 = Empty Then
MsgBox ("Employee Name is Mandatory")
Exit Sub
End If
'Fill Data in Excel Sheet
LastAvailRow = .Range("E99999").End(xlUp).Row + 1
.Range("E" & LastAvailRow) = Val(Me.emp1)
For DataCol = 2 To 29
If IsNumeric(Me("emp" & DataCol)) Then
.Cells(LastAvailRow, DataCol + 4) = Val(Me("emp" & DataCol))
Else
.Cells(LastAvailRow, DataCol + 4) = Me("emp" & DataCol)
End If
Next DataCol
Me.EmpNewBtn.Visible = True
Me.EmpUpdBtn.Visible = True
Me.EmpCanBtn.Visible = False
Me.EmpSaveBtn.Visible = False
Unload Me
Employee_Management.Show
End With
End Sub
thank you an advance
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks