SÜREKLİ KULLANDIĞIM KODDA HATA OLUŞTU

[farisakboga]

Sub yazdir()
On Error GoTo 10
Dim yol As String
yol = Application.ThisWorkbook.Path
ChDir yol

adet = InputBox("Kaç farklı sayfa hazırlansın?")
kopya = InputBox("Her sayfa kaç kere yazdırılsın?")
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

For i = 1 To adet
Calculate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "\Toplama.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveWindow.SelectedSheets.PrintOut Copies:=kopya, Collate:=True, _
IgnorePrintAreas:=False
Next
Exit Sub
10:
MsgBox "Lütfen sayısal veriler kullanınız!" & Chr(10) & Chr(10) & "İşlem tamamlanmadı"
End Sub


YUKARIDAKİ KODU SÜREKİ KULLANDIM. BİRKAÇ GÜNDÜR KODU DAHA ÖNCE EKLEDİĞİM HİÇBİR EXCEL DOSYASINDA ÇALIŞTIRAMIYORUM. SÜREKLİ Lütfen sayısal veriler kullanınız! DİYE BİR UYARI ÇIKIYOR. SEBEBİ NE OLABİLİR?

 

[Jon Snow]

Dim adet
Dim kopya
Dim i
ekleyip başa tekrar dene

Option Explicit
modda değerlere tür ataman gerekir

 

[farisakboga]

Dim adet
Dim kopya
Dim i
ekleyip başa tekrar dene

Option Explicit
modda değerlere tür ataman gerekir

Sub yazdir()
On Error GoTo 10
Dim adet
Dim kopya
Dim i
Dim yol As String
yol = Application.ThisWorkbook.Path
ChDir yol

adet = InputBox("Kaç farklı sayfa hazırlansın?")
kopya = InputBox("Her sayfa kaç kere yazdırılsın?")
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

For i = 1 To adet
Calculate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "\Toplama.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveWindow.SelectedSheets.PrintOut Copies:=kopya, Collate:=True, _
IgnorePrintAreas:=False
Next
Exit Sub
10:
MsgBox "Lütfen sayısal veriler kullanınız!" & Chr(10) & Chr(10) & "İşlem tamamlanmadı"
End Sub


yukarıdaki gibi yaptım ama hala aynı hatayı alıyorum.

 

[Jon Snow]

Sub yazdir()
On Error GoTo 10
Dim adet
Dim kopya
Dim i
Dim yol As String
yol = Application.ThisWorkbook.Path
ChDir yol

adet = InputBox("Kaç farklı sayfa hazırlansın?")
kopya = InputBox("Her sayfa kaç kere yazdırılsın?")
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

For i = 1 To adet
Calculate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "\Toplama.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveWindow.SelectedSheets.PrintOut Copies:=kopya, Collate:=True, _
IgnorePrintAreas:=False
Next
Exit Sub
10:
MsgBox "Lütfen sayısal veriler kullanınız!" & Chr(10) & Chr(10) & "İşlem tamamlanmadı"
End Sub


yukarıdaki gibi yaptım ama hala aynı hatayı alıyorum.

F8 ile adimla hangisinde kod satirinda hataya 10 diye belirttigin yere gidiyor bak.

 

[Orion1]

on error go to 10
yukarıdaki kodu iptal ederek hangi hatayı verdiğini bulabilirsiniz.

 

[farisakboga]

F8 ile adimla hangisinde kod satirinda hataya 10 diye belirttigin yere gidiyor bak.
[/Q

F8 ile adimla hangisinde kod satirinda hataya 10 diye belirttigin yere gidiyor bak.

Kodu ben yazmadım. Bu forumda yardımcı olmuşlardı. Dosyayı ekliyorum. Yardımcı olursanız sevinirim.