bu makroda hata nerede......

[masuk500]

Sub Düğme11_Tıklat()
Dim i As Integer
Dim a As Integer
a = 0
For i = 8 To 1719 Step 29
If Cells(i, 5).Value = "" Then
a = a + 1
End If
Next i
If a = 0 Then
Sheets("BORSATESCİL").PrintOut
Else
Sheets("BORSATESCİL").PrintOut From:=1, To:=60 - a, Copies:=1, Collate:=True
End If
Sheets("MÜSTAHSİLGİRİŞ").Select
End Sub



11 sayfa dolu olduğu halde sadece 4 sayfa yazdırıyor
ayrıca sayfalar boş olduğunda da ilk 4 sayfa yazdırıyor

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklerseniz çözüme ulaşmak daha kolay olacaktır. Bu şekilde tahmin yürütmek zorunda kalıyoruz.

 

[masuk500]

örnek dosya ektedir sayfa koruma şifreleride 8630764862 dir

 

[masuk500]

arkadaşlar çözüm yokmu

 

[masuk500]

arkadaşlar 50 kişi bakmış ama 1 kişi cevaplamış?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub Düğme11_Tıklat()
    Dim i As Integer
    Dim a As Integer
    a = 0
    For i = 20 To 1731 Step 29
    If Not IsError(Cells(i, "AU")) Then
    If Cells(i, "AU") > 0 Then
    a = a + 1
    End If
    End If
    Next i
    If a = 0 Then
    Sheets("BORSATESCİL").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    Else
    Sheets("BORSATESCİL").PrintOut From:=1, To:=60 - a, Copies:=1, Collate:=True
    End If
    Sheets("MÜSTAHSİLGİRİŞ").Select
End Sub