Yazdırma makrosu

[Zahir]

Merhaba;
Aşağıdaki kodda yazdırma hatası veriyor. Sebebi nedir acaba.

Sub yazdırTumu()

For i = 19 To 100
If Sayfa1.Cells(i, 14) = 0 Then Exit For
Sayfa1.Cells(27, 2) = Sayfa1.Cells(i, 13)
Sayfa1.Cells(27, 3) = Sayfa1.Cells(i, 23)
If Not Sayfa1.Cells(i, 25) = "1" Then Worksheets(Sayfa1).PrintOut

Next i

End Sub

Not : Worksheets(Sayfa1).PrintOut yerine sheets("Sayfa1").PrintOut yazdım yine olmadı

Yardımlarınız için teşekkür ederim.

 

[Asri]

Merhaba;
Aşağıdaki kodda yazdırma hatası veriyor. Sebebi nedir acaba.

Sub yazdırTumu()

For i = 19 To 100
If Sayfa1.Cells(i, 14) = 0 Then Exit For
Sayfa1.Cells(27, 2) = Sayfa1.Cells(i, 13)
Sayfa1.Cells(27, 3) = Sayfa1.Cells(i, 23)
If Not Sayfa1.Cells(i, 25) = "1" Then Worksheets(Sayfa1).PrintOut

Next i

End Sub

Not : Worksheets(Sayfa1).PrintOut yerine sheets("Sayfa1").PrintOut yazdım yine olmadı

Yardımlarınız için teşekkür ederim.

Aşağıdaki şekilde deneyiniz.

Worksheets("Sayfa1").PrintOut

 

[Zahir]

Sayın asri o şekilde de değişen bir şey olmadı. Run-time error '9': Subcript out of range hatası veriyor. Bunun yeine msgbox("aaa") yazıyorum hatasız çalışıyor.

 

[Asri]

Sayın asri o şekilde de değişen bir şey olmadı. Run-time error '9': Subcript out of range hatası veriyor. Bunun yeine msgbox("aaa") yazıyorum hatasız çalışıyor.

Yazdırdığınız sayfanın adı Sayfa1 olmayabilir.

Excel sayfanın adını Sayfa1 yapıp dener misiniz?

Olmaz ise dosyanızı dosya.tc gibi bir siteden ekleyiniz.

 

[Zahir]

Evet haklı çıktınız. Sayfa isminden kaynaklanıyormuş. Ben visual Basic düzenleyicede gösterdiği şekliyle kullandım. Ancak anlamadığım kod içerisinde hücre adresleri gösterirken Sayfa1 şeklinde kabul ederken Worksheets(Sayfa1).PrintOut kodunda niye kabul etmiyor.
Yardımınız için çok teşekkür ederim.

 

[Orion1]

Evet haklı çıktınız. Sayfa isminden kaynaklanıyormuş. Ben visual Basic düzenleyicede gösterdiği şekliyle kullandım. Ancak anlamadığım kod içerisinde hücre adresleri gösterirken Sayfa1 şeklinde kabul ederken Worksheets(Sayfa1).PrintOut kodunda niye kabul etmiyor.
Yardımınız için çok teşekkür ederim.

tırnak koyacaksınız.

Worksheets("Sayfa1").PrintOut