Başka sayfaya gitmeden makroyu çalıştırmak..

[acolkesen1]

Merhaba Arkadaşlar,
Aşağıdaki makro ile faturalarımı yazdırıyorum. Buton FATURA sayfasında. Kırmızı ile yazılı olan Sayfa2 deki işlemleri Sayfa2 ye gitmeden yaptırmak istiyorum.

Sub fatura_yaz()
If Range("E9").Value = "" Then
MsgBox "KAÇ KOPYA BASACAĞINIZI YAZIN.."
Range("E9").Select
Exit Sub
End If
Sheets("Sayfa2").Select
For Each t In [e11:e40].Cells
If t.Value = Formula Then
t.EntireRow.Hidden = True
End If
Next t
Cells.Select
ActiveSheet.PageSetup.PrintArea = ""
ss = [E65536].End(3).Row
Range("E3:O" & ss).PrintOut Copies:=Range("E1"), Collate:=True
For Each t In Range("E11:E40").Cells
If t.Value = Formula Then
t.EntireRow.Hidden = False
End If
Next t Sheets("FATURA").Select
End Sub
Bunu sağlamak için makroda ne gibi bir değişiklik gerekiyor?
İlgilenen arkadaşlara teşekkür ederim.

 

[acolkesen1]

Arkadaşlar,
Application.ScreenUpdating = False ile sorun çözüldü. İlgilenen arkadaşlara teşekkür ederim..