Excel 2013 Çalışmayan Function Kodu

[oerbas]

Kolay gelsin işyerindeki bilgisayarımda office 2007 varken bu kodlar çalışıyordu ancak office 2013 krulduktan sonra bu kodlar çalışmıyor. Nedeni ne olabilir yardımcı olursanız sevinirim. Bu vesile ile hayırlı çalışmalar dilerim

İlk çalıştırıldığında bu satırda "Function " yazan yer hata veriyor
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

 

[Zeki Gürsoy]

Office 2013, 64 bit versiyonu olabilir. Bu durumda 64 bit olarak declare edilmesi gerekir. "PtrSafe" olarak forumda aratma yapın.

 

[oerbas]

Office 2013, 64 bit versiyonu olabilir. Bu durumda 64 bit olarak declare edilmesi gerekir. "PtrSafe" olarak forumda aratma yapın.

Cevabınız için teşekkür ederim "Declare PtrSafe" yapınca düzeldi. Ancak bu seferde diğer kodlarda hata veriyor.
Örneğin Aşağıdaki kodlarda;

SONUC2=TextBox1.Value() satırında SONUC2 kısmı hata veriyor

Sub Yazdırma_alanı()
SONUC2 = TextBox1.Value
Set FC2 = Range("B4:J65000").Find(What:=SONUC2)
If TextBox1 = "" Then
ActiveSheet.Shapes("TextBox1").Select
ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=2
End If
End Sub