64 bit ofis kullandığınız için bu hatayı veriyor.
Declare kodundan sonra ptrsafe kodu ekle.
Ayrıca konu başlığı yazarken biraz özen gösteriniz.
verdiğiniz kod oldu fakat bir sorum olacak hocam 32 bit office ye geçince hata verir mi yine şimdi bu uygulamayı farklı 32 bit office bulunan bilgisayara attığımda farklı hatalar verir mi
sayın emre_0147,
bahsettiğiniz talebinize yönelik olarak;
sayın ozan bey tarafından belki daha ayrıntılı bilgilendirmenin yapılması olası olsa da,kısa bir bilgilendirme olması adına,
32 bit / 64 bit farklı kullanım durumlarında soruna maruz kalınmasını engellemek için,
ilgili declare edilen fonksiyonlar için,
Kod:
#If VBA7 Then
Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If
benzeri bir kod ifadeleri kullanmak sureti ile,hem ptrsafe ifadesini içeren hem de içermeyen halini örnek kalıptaki gibi yazmak yerinde olacaktır.
böylece,32 bit / 64 bit farklılığına göre fonksiyonun kullanımı otomatikman sağlanmış olur.
daha ayrıntılı bilgileri,site arama sayfasında "ptrsafe" yazmak sureti ile edinebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
sayın atoz112
sayın ozanakkaya hocalarım ikinizede ayrı ayrı teşekkür ederim cevaplarınız için sorunum çözüldü