Run-time error '429'


S

slaya_cz

Hi there

I created macro which works fine (Excel XP). The macro is run by the
click on the button. However, when I sent this file to my friend in
Australia (Excel 2003), he receive the error message
"Run-time error '429': ActiveX component can't create object"
we tried the solutions mentioned at the Microsoft web sites but no
success :(
Can anybody help me with that? Thanks in advance

Cheers
Pavel
 
Ad

Advertisements

M

mangesh_yadav

Could you post your code, and the line which gives the particular
error.

Mangesh
 
S

slaya_cz

There are 2 sheets, "Data" and "Start".
When the file is opened, the sheet 'Data' is locked, and there is set
as active sheet 'Start'. There is placed button. When I click on the
button, it runs macro button10_start(). Ask for the ID number and when
I define that, find the row which starts with this number


Sub Auto_Open()
On Error GoTo chyba
Worksheets("Data").Activate
If ActiveSheet.ProtectionMode = False Then
ActiveSheet.Protect Password:="password", DrawingObjects:=True,
Contents:=True, Scenarios:=True
End If
Worksheets("Start").Activate
Exit Sub
chyba: MsgBox ("!!Error!!")

End Sub

Sub button10_start()
Dim rngfact, rng As Range
Dim pom, pom1 As String
Dim D As Date

pomocny_nazev = InputBox("Write the ID number", "ID Number")
pom3 = pomocny_nazev
If pomocny_nazev <> "" Then
' tady najdu ID number
With Worksheets("Data")
Set rngfact = .Range("A2:A999")
With rngfact
Set rng = .Find(What:=pomocny_nazev, After:=.Cells(1),
LookIn:=xlValues, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False)
End With

If rng Is Nothing Then
MsgBox ("ID number " + pomocny_nazev + " not found!")
Else

Worksheets("Data").Activate
Cells.Find(What:=pomocny_nazev, After:=ActiveCell, LookIn:=xlValues,
LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
True, SearchFormat:=False).Activate
x = ActiveCell.Row
y = ActiveCell.Column
.....and fill in local variables
 
M

mangesh_yadav

And when does the error come, when you open the file, or when you press
the button.

Also, which line is highlighted when the error comes.

Mangesh
 
S

slaya_cz

The error comes when I press the button. The file is opened without any
problem.

there is nothing highlighted, because it displays error dialog and
there is only possibility to press button "End" or "Help". Buttons
"Continue" as well as "Debug" are dimmed so I can define what is wrong
in the code :confused:
 
Ad

Advertisements

M

mangesh_yadav

Can't find anything in the code that should give an error. Ask your
friend to check for any missing references in the VBE. (Tools >
References. check for boxes which are checked and have missing tag)

Mangesh
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top