error (ComboBox-?)
 

My app is not working as stable. Very often it cannot be
opened and I need to recover it from backup.
I'm getting the error message like this:
"Excel.exe has generated error and will be closed by
Windows. You will need to restart the program. An error
log is being created." (I don't know where this file is
located.)

I suspect the following code I'm using for combobox.

Private Sub ComboBox1_Change()

On Error GoTo ComboBox1_Change_Err
Me.ComboBox1.ListFillRange = "R3:R97"
With Worksheets("Legend").Range("a3:a448")
.Borders.LineStyle = xlLineStyleNone
.Borders.ColorIndex = 2
.Borders.Weight = xlThin
Set c = .Find(ComboBox1.Value,
LookIn:=xlValues)

c.Borders.LineStyle = xlDouble
c.Borders.Weight = xlThick
c.Borders.Color = RGB(255, 0, 0)
c.Activate

End With
Application.ScreenUpdating = True


ComboBox1_Change_exit:
Exit Sub
ComboBox1_Change_Err:
MsgBox Error
Resume ComboBox1_Change_exit

End Sub

Could anybody advise anything?

Thanks

error (ComboBox-?)
 

I have had a simular problem with the same error message.

If you find a soluation I would love to hear it.

However, I think the problem may be that you are trying to develop an
application in an environment where the IT boys have forbidden macros to
run.

This was happening to me when the client was using Windows 2000 and they
didn't have administration rights. Conequently I could have the application
I developed working on my machine, 2 test machines but not on the cleints
and that message was generated.


"Alex" wrote in message
...
My app is not working as stable. Very often it cannot be
opened and I need to recover it from backup.
I'm getting the error message like this:
"Excel.exe has generated error and will be closed by
Windows. You will need to restart the program. An error
log is being created." (I don't know where this file is
located.)

I suspect the following code I'm using for combobox.

Private Sub ComboBox1_Change()

On Error GoTo ComboBox1_Change_Err
Me.ComboBox1.ListFillRange = "R3:R97"
With Worksheets("Legend").Range("a3:a448")
.Borders.LineStyle = xlLineStyleNone
.Borders.ColorIndex = 2
.Borders.Weight = xlThin
Set c = .Find(ComboBox1.Value,
LookIn:=xlValues)

c.Borders.LineStyle = xlDouble
c.Borders.Weight = xlThick
c.Borders.Color = RGB(255, 0, 0)
c.Activate

End With
Application.ScreenUpdating = True


ComboBox1_Change_exit:
Exit Sub
ComboBox1_Change_Err:
MsgBox Error
Resume ComboBox1_Change_exit

End Sub

Could anybody advise anything?

Thanks

error (ComboBox-?)
 

Thanks a lot, David.
It could be, but another similar app with macros, which
are partly the same, is working in the same folder.

Are there any other opinions?

Regards,

Alex

-----Original Message-----
I have had a simular problem with the same error message.

If you find a soluation I would love to hear it.

However, I think the problem may be that you are trying
to develop an
application in an environment where the IT boys have
forbidden macros to
run.

This was happening to me when the client was using
Windows 2000 and they
didn't have administration rights. Conequently I could
have the application
I developed working on my machine, 2 test machines but
not on the cleints
and that message was generated.


"Alex" wrote in
message
...
My app is not working as stable. Very often it cannot be
opened and I need to recover it from backup.
I'm getting the error message like this:
"Excel.exe has generated error and will be closed by
Windows. You will need to restart the program. An error
log is being created." (I don't know where this file is
located.)

I suspect the following code I'm using for combobox.

Private Sub ComboBox1_Change()

On Error GoTo ComboBox1_Change_Err
Me.ComboBox1.ListFillRange = "R3:R97"
With Worksheets("Legend").Range("a3:a448")
.Borders.LineStyle = xlLineStyleNone
.Borders.ColorIndex = 2
.Borders.Weight = xlThin
Set c = .Find(ComboBox1.Value,
LookIn:=xlValues)

c.Borders.LineStyle = xlDouble
c.Borders.Weight = xlThick
c.Borders.Color = RGB(255, 0, 0)
c.Activate

End With
Application.ScreenUpdating = True


ComboBox1_Change_exit:
Exit Sub
ComboBox1_Change_Err:
MsgBox Error
Resume ComboBox1_Change_exit

End Sub

Could anybody advise anything?

Thanks


.