Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 06-06-2017, 15:54   #1
Bintang
Altın Üye
 
Giriş: 31/10/2006
Şehir: ANKARA
Mesaj: 182
Excel Vers. ve Dili:
Office 2003,Office 2010
Varsayılan Office 32 - office 64

Merhaba üstad, özellikle excel çok ağırlaşmıştı sürekli excel de çalışırken hatalar veriyordu bende bilgisayarımda yüklü Office 32 yi Office 64 dönüştürdük. Ancak kayıtlı makrolarda hatalar vermeye başladı. Bu konuda yardımcı olmanızı rica ederim.
Eklenmiş Resimler
Dosya Türü: jpg Hata.jpg (28.1 KB, 6 Görüntülenme)
Bintang Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-06-2017, 16:21   #2
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,369
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
Bintang tarafından gönderildi Mesajı Görüntüle
Merhaba üstad, özellikle excel çok ağırlaşmıştı sürekli excel de çalışırken hatalar veriyordu bende bilgisayarımda yüklü Office 32 yi Office 64 dönüştürdük. Ancak kayıtlı makrolarda hatalar vermeye başladı. Bu konuda yardımcı olmanızı rica ederim.
Kodun en başında kullandığınız declare tanımlarını aşağıdaki kırmızı yazılı örnekteki gibi düzenleyiniz.
Then de sonra PTRSAFE li Else den sonra PTRSAFE siz


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
#if VBA7 then    
    Declare PtrSafe Sub MessageBeep Lib "User32" (ByVal N AS Long) 
#else    
    Declare Sub MessageBeep Lib "User32" (ByVal N AS Long)
#end if
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-06-2017, 16:48   #3
Bintang
Altın Üye
 
Giriş: 31/10/2006
Şehir: ANKARA
Mesaj: 182
Excel Vers. ve Dili:
Office 2003,Office 2010
Varsayılan

Declare PtrSafe Sub MessageBeep 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 DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private TitleBarState As String
Public Property Get hWnd() As Long
hWnd = FindWindow(lpClassName:=IIf(Val(Application.Versio n) > 8, "ThunderDFrame", "ThunderXFrame"), lpWindowName:=Me.Caption)
End Property
Private Sub Calendar1_Click()
'ActiveCell = Calendar1.Value
'ActiveCell.NumberFormat = "dd.mm.yyyy"
UserForm1.TextBox1.Text = Format(Calendar1.Value, "dd.mm.yyyy")
Unload Me
End Sub
Private Sub UserForm_Activate()
For a = 0 To 176.25 Step 0.05
DoEvents
Me.Height = a
Next
End Sub
Private Sub UserForm_Initialize()
Dim Userform_Style As Long
Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Userform_Style = GetWindowLong(hWnd:=Me.hWnd, nIndex:=GWL_STYLE)
If bShow = True Then
Userform_Style = Userform_Style Or WS_CAPTION
Else
Userform_Style = Userform_Style And Not WS_CAPTION
End If
Call SetWindowLong(hWnd:=Me.hWnd, nIndex:=GWL_STYLE, dwNewLong:=Userform_Style)
Call DrawMenuBar(hWnd:=Me.hWnd)
Calendar1.Value = Date
Me.Height = 0
End Sub

burda anlayamadım çok özürdilerim
Bintang Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-06-2017, 17:49   #4
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,369
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Bu şekilde dener misiniz?

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
#If VBA7 Then
  Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
#Else
  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 DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
#End If


Private TitleBarState As String

Public Property Get hWnd() As Long
  hWnd = FindWindow(lpClassName:=IIf(Val(Application.Version) > 8, "ThunderDFrame", "ThunderXFrame"), lpWindowName:=Me.Caption)
End Property

Private Sub Calendar1_Click()
'ActiveCell = Calendar1.Value
'ActiveCell.NumberFormat = "dd.mm.yyyy"
UserForm1.TextBox1.Text = Format(Calendar1.Value, "dd.mm.yyyy")
Unload Me
End Sub

Private Sub UserForm_Activate()
For a = 0 To 176.25 Step 0.05
DoEvents
Me.Height = a
Next
End Sub

Private Sub UserForm_Initialize()
Dim Userform_Style As Long
Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Userform_Style = GetWindowLong(hWnd:=Me.hWnd, nIndex:=GWL_STYLE)
If bShow = True Then
Userform_Style = Userform_Style Or WS_CAPTION
Else
Userform_Style = Userform_Style And Not WS_CAPTION
End If
Call SetWindowLong(hWnd:=Me.hWnd, nIndex:=GWL_STYLE, dwNewLong:=Userform_Style)
Call DrawMenuBar(hWnd:=Me.hWnd)
Calendar1.Value = Date
Me.Height = 0
End Sub
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-06-2017, 17:59   #5
Bintang
Altın Üye
 
Giriş: 31/10/2006
Şehir: ANKARA
Mesaj: 182
Excel Vers. ve Dili:
Office 2003,Office 2010
Varsayılan

Üstad çok teşekkür ederim.
Bintang Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 04:50


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden