Baskı önizleme düğmesi

[GursoyC]

Merhaba,
aşağıdaki şekilde kodlarımı atadığım bir düğmem var.

Sheets("stok").Select
Columns("C:D").Select
    Selection.EntireColumn.Hidden = True
    ActiveSheet.Range("$A$2:$F$403").AutoFilter Field:=5, Criteria1:=Array("1", _
        "2", "3", "4", "5", "6", "7", "8", "9", "10"), Operator:=xlFilterValues
ActiveWindow.SelectedSheets.PrintPreview

Baskı önizlemeyi kapat tuşuna bastığımda excel'in aşağıdaki kodları çalıştırmasının bir yolu var mıdır acaba yardım eder misiniz?

ActiveSheet.Range("$A$2:$F$403").AutoFilter Field:=5
Columns("A:G").Select
Selection.EntireColumn.Hidden = False
Sheets("stok").Visible = False
Sheets("1").Select
Range("J13").Select

 

[antonio]

Merhaba,
1. ve 2. kısamdaki kodları aynı sıra ile aynı kod prosedürünün içine yerleştirerek deneyin.
Aşağıdaki gibi.

Sub kodlar()
'.............
Sheets("stok").Select
Columns("C:D").Select
    Selection.EntireColumn.Hidden = True
    ActiveSheet.Range("$A$2:$F$403").AutoFilter Field:=5, Criteria1:=Array("1", _
        "2", "3", "4", "5", "6", "7", "8", "9", "10"), Operator:=xlFilterValues
ActiveWindow.SelectedSheets.PrintPreview
'...................................
ActiveSheet.Range("$A$2:$F$403").AutoFilter Field:=5
Columns("A:G").Select
Selection.EntireColumn.Hidden = False
Sheets("stok").Visible = False
Sheets("1").Select
Range("J13").Select

End Sub

 

[GursoyC]

Karmakarışık düşünmekten önümüzdeki en basit çözümü göremez hale geliyoruz.

Çok teşekkürler sayın Antonio. Gayet güzel çalışıyor.

Saygılar,

 

[antonio]

Rica ederim.