Kodda hata

[vuranoğlu]

İyi akşamlar
Aşağıdaki kod excel 1016 da hata veriyor.

Private Sub UserForm_Activate()
hnd = FindWindow(vbNullString, Me.Caption)
SetTimer hnd, 0, 100, AddressOf Timer
End Sub

Çözüm nedir?

 

[Korhan Ayhan]

Merhaba,

"excel 1016" olarak sanırım yanlış yazdınız.

Belirttiğiniz kısım API kodlarıdır.

Olsa olsa 64 bit hatası alıyor olabilirsiniz. (Tahmini yazıyorum..)

Bunun için forumda PTRSAFE ifadesi ile arama yapabilirsiniz.

 

[vuranoğlu]

Sayın :
Korhan Ayhan
Haklısınız yanlış yazmışım win 10 da olacaktı. Ptrsafe araştırıyorum.
Teşekkürler.

 

[vuranoğlu]

Sorun;
SetTimer hnd, 0, 100, AddressOfTimer

Şeklinde çözülmüştür.