DOSYA DAKİ MAKRO VE FORMLARI AÇMA SORUNU

[sikizler]

Merhaba
forumlarda bulduğum bir dosyayı açıyorum fakat yapılmış olan form ve makroları çalıştıramıyorum direk olarak excel sayfası geliyor yardımcı olabilirmisiniz teşekkürler

 

[Muzaffer Ali]

Excel sayfası açıkken ALT+F11 e basın kodların bulunduğu VBA açılacaktır.

 

[sikizler]

makroları görebiliyorum fakat direk olarak formların açılmasını sağlayamıyorum

 

[Muzaffer Ali]

BuÇAlışmaKitabı(ThisWorkbook) adlı kod sayfasında aşağıdaki kodlar var.

'Private Sub Workbook_Open()
'  ANASAYFA.Show
'End Sub

Bu kodların başındaki tırnak işaretlerini kaldır.
Dosyayı kapat Dosya yeniden açıldığında aşağıdaki kodlar çalışacak ve Anasayfa adlı form açılacaktır.

Kodlar aşağıdaki gibi olmalı.

Private Sub Workbook_Open()
   ANASAYFA.Show
End Sub

 

[sikizler]

değiştirdim fakat şimdide bu uyarıyı alıyorum

 

[Muzaffer Ali]

ANASAYFA.Show satırını mouse ile seç sonra F8 tuşuna sürekli basarak kodların satır satır çalışmasını sağla.
Hata verdiği satırı buraya yaz.

 

[sikizler]

burada hata verdi

Private Sub UserForm_Initialize()
On Error Resume Next
'With ANASAYFA
' .Height = Application.Height
' .Width = Application.Width
'End With
Dim MM, MSTF, GUL
Module10.HESAPLAMASIL
GUL = "ARAÇ SİGORTASI"
Application.ScreenUpdating = False
Sheets("RAPOR").Range("DA2:FR65536").ClearContents
MM = 1
For MSTF = 4 To Sheets("KAYIT").Cells(65536, "A").End(xlUp).Row
If Sheets("KAYIT").Cells(MSTF, "N") = GUL Then
[RAPOR!N1] = [RAPOR!N1] + (Sheets("KAYIT").Cells(MSTF, "L") * 0.07)
Else
[RAPOR!O1] = [RAPOR!O1] + (Sheets("KAYIT").Cells(MSTF, "L") * 0.07)
End If
Next

 

[Muzaffer Ali]

Buraya eklediğiniz dosyada herhangi bir sorun olmuyor hata vermiyor.
Acaba siz kendi dosyanızda değişiklikler mi yaptınız, ondan mı hata veriyor?

Buraya eklediğiniz dosyayı indirip dener misiniz?

 

[sikizler]

excel 2007 kullanıyorum ondan olabilir mi ? bende aynı sorunu vermeye devam ediyor

 

[Muzaffer Ali]

Kod kısmı açıkken yukarıdaki menüden Tools / Referances seç
Açılan listede Missing yazan varsa onun yanındaki işareti kaldır Tamama bas.
Şimdi tekrar dene.