excell 2003 de çalışan vba kodu excell 2013 de çalışmıyor

[adsoft]

ilk açıldığında adsız1.jpg hatasını veriyor
kapatırkende adsız.jpg deki hatayı veriyor

Declare Function ShowWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

hatası veriyor kodlama çalışmıyor

 

[AdemCan]

Merhaba,
32 bit ve 64 bit farklılığından kaynaklanıyor olabilir.
32 bit ve 64 bit başlıklı konuda ilgili Api listeleri paylaşılmış.

 

[Merhum İdris SERDAR]

.

Kodlarınızın başına aşağıdaki kodu yazın.

#If VBA7 Then
 Declare PtrSafe Function ShowWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) As LongPtr

#Else
    Declare Function ShowWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

.

 

[adsoft]

on ShowWindow Lib "user32" ( _ ByVal hwnd As Long, _

olduğu gibi kopyaladım olmadı else den sonra yine kırmızı hata verdi sonra ıf şartını kaldırdım oldu ama bu defada 2003 de çalışmaz değilmi

Declare PtrSafe Function ShowWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) As LongPtr

bu şekilde çalıştı

 

[Korhan Ayhan]

Kırmızı olmasını önemsemeyiniz. Verilen kodu deneyin çalışacaktır.

 

[Merhum İdris SERDAR]

olduğu gibi kopyaladım olmadı else den sonra yine kırmızı hata verdi sonra ıf şartını kaldırdım oldu ama bu defada 2003 de çalışmaz değilmi

Declare PtrSafe Function ShowWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) As LongPtr

bu şekilde çalıştı

Böyle çalıştı diyorsunuz, ancak bu sefer 32 bitte hata verecektir. Bu nedenle verdiğim kodun tamamın kullanın ki; hem 32 ve hemde 64 bitte çalışsın.


.

 

[adsoft]

merhaba şimdi excell 2022 64 bitte verdiğiniz kodu atıyorum fakat yine aynı hatayı alıyorum

 

[Korhan Ayhan]

Excelin 2022 sürümü çıktı mı?

 

[Merhum İdris SERDAR]

.

Excel 2022'nin çıktığını ben de bilmiyorum.

.