Baskı Ön İzlemede Makroların Çalışmaması Sorunu

[s.savas]

Merhaba arkadaşlar.
Ekte bulunan çalışma belgemde combobox'a aldığım sayfaları baskı ön izleme yaparak yazdırmak istiyorum fakat bir sorunum var.
Baskı ön izleme yapacağım sayfalarda

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
....kodlar
....kodlar
End Sub

makrolar var ve normalde bu makroların çalışması için sayfada her hangi bir hücreyi tıklamam yetiyor. Fakat userform ile baskı ön izleme yapmak istediğimde yukarıdaki kodun çalışması için tetikleme yaptıramıyorum.
Bilgilerinize ihtiyacım var.

 

[Korhan Ayhan]

Merhaba,

Baskı önizleme yapan kodunuzu aşağıdaki gibi değiştirin.

Private Sub CommandButton1_Click()
If ComboBox3.Value = "" Then
MsgBox ("Lütfen Baskı Ön İzleme Yapacağınız Ay'ı Seçiniz..."), vbInformation, "Süleyman Savaş"
Exit Sub
End If
Application.Visible = True
UserForm5.Hide
Sheets(ComboBox3.Text).Select
Range("A2").Select
Range("A1").Select
Range("AL1").Value = "p"
Sheets(ComboBox3.Text).PrintPreview
Application.Visible = False
UserForm5.Show
End Sub

 

[s.savas]

Merhaba,

Baskı önizleme yapan kodunuzu aşağıdaki gibi değiştirin.

Private Sub CommandButton1_Click()
If ComboBox3.Value = "" Then
MsgBox ("Lütfen Baskı Ön İzleme Yapacağınız Ay'ı Seçiniz..."), vbInformation, "Süleyman Savaş"
Exit Sub
End If
Application.Visible = True
UserForm5.Hide
[COLOR="Red"]Sheets(ComboBox3.Text).Select[/COLOR]
Range("A2").Select
Range("A1").Select
Range("AL1").Value = "p"
Sheets(ComboBox3.Text).PrintPreview
Application.Visible = False
UserForm5.Show
End Sub

Teşekkürler Korhan hocam, hızır gibi yetiştiniz. Fakat 8.satırda hata verdi.

 

[Korhan Ayhan]

Merhaba,

Kodunuza sadece hücre seçem kodu ekledim. Bu sebeple hata vermemesi gerekir. Dosyayı kapatıp tekrar açın ve tekrar çalıştırıp deneyin.

 

[s.savas]

Merhaba,

Kodunuza sadece hücre seçem kodu ekledim. Bu sebeple hata vermemesi gerekir. Dosyayı kapatıp tekrar açın ve tekrar çalıştırıp deneyin.

Tekrar teşekkür ederim, haklısınız dediğiniz gibi kapatıp tekrar açınca sorun çözüldü.