Userform açılışındaki hatayı gidermek.

[s.savas]

Merhaba arkadaşlar.
Ekteki belgenin H1,H2,H3,H4 ve H5 sekmeleri açılırken beraberinde

Private Sub Worksheet_Activate()
UserForm2.Show
End Sub

kodu ile Userform2 de açılıyor. Açılan userformu kapatıp, diğer sekmeleri açarken
Run-time error'429':Activex component can't create object hatası alıyorum.
Hatayı gidermek için

On Error Resume Next

kodunu ilave ettim, yukarıdaki hata mesajını vermedi ancak formun açılması için farklı iki sekmeyi tıklamam gerekiyor.Sorunu çözemedim.

 

[programer]

aşağıda do loop döngüsünü devre dışı bırakınca hata vermedi bende tam anlayamadım ama

Private Sub UserForm_Activate()
On Error Resume Next
'Do
Label37.Caption = Format(Now, "dd mmmm yyyy dddd hh:mm:ss")
'DoEvents
'Loop
End Sub

 

[leumruk]

Merhaba arkadaşlar.
Ekteki belgenin H1,H2,H3,H4 ve H5 sekmeleri açılırken beraberinde

Private Sub Worksheet_Activate()
UserForm2.Show
End Sub

kodu ile Userform2 de açılıyor. Açılan userformu kapatıp, diğer sekmeleri açarken
Run-time error'429':Activex component can't create object hatası alıyorum.
Hatayı gidermek için

On Error Resume Next

kodunu ilave ettim, yukarıdaki hata mesajını vermedi ancak formun açılması için farklı iki sekmeyi tıklamam gerekiyor.Sorunu çözemedim.

Merhaba,
Sorun userformunuzdaki çalışan saatten kaynaklanıyor. Userform kapandığında saat için oluşturduğunuz makro kodu çalışmaya devam ediyor ve diğer sayfaya geçtiğinizde hata alıyorsunuz. Kodlarınız aşağıdaki yönlendirmeye göre oluşturun.
Userform2'nin en başına "Option Explicit" satırının altına aşağıdaki kodu ekleyin.

Dim durdur As Boolean

Sonrasında UserForm_Activate kodunuzu aşağıdaki ile değitirin.

Private Sub UserForm_Activate()
durdur = True
Do While durdur = True
Label37.Caption = Format(Now, "dd mmmm yyyy dddd hh:mm:ss")
DoEvents
Loop
End Sub

UserForm_Terminate kodundaki end yerine aşağıdaki kodu kopyalayın.

Private Sub UserForm_Terminate()
durdur = False
End Sub

Bu kodları ekledikten sonra Eklediğiniz On Error Resume Next'lerin tamamını silebilirsiniz.

 

[s.savas]

Programer ve Leumruk usta ilginize teşekkür ederim.
Leumruk hoca sorun tarafınızca çözülmüştür.