Gizleme ve yazdırma hk.

[contct]

Rapor Sayfasını sheet1 ve sheet2 lerle birlikte her ayın son günü 00:00 da otomatik olarak yazdırmak istiyorum ve A50 hücresine açık A51 hücresine kapalı yazdığımda: açığa tıkladığımda istediğim sayfaların açılması Kapalıya tıkladığımda istediğim sayfaların gizlenmesi için kullanmam gereken kod için yardımcı olurmusunuz?

 

[İhsan Tank]

Rapor Sayfasını sheet1 ve sheet2 lerle birlikte her ayın son günü 00:00 da otomatik olarak yazdırmak istiyorum ve A50 hücresine açık A51 hücresine kapalı yazdığımda: açığa tıkladığımda istediğim sayfaların açılması Kapalıya tıkladığımda istediğim sayfaların gizlenmesi için kullanmam gereken kod için yardımcı olurmusunuz?

Merhaba
Dosya üzerinde açıklama ekleyebilir misiniz_?

 

[contct]

Merhaba
Dosya üzerinde açıklama ekleyebilir misiniz_?

Özür dilerim.örnek dosya ektedir

 

[İhsan Tank]

Özür dilerim.örnek dosya ektedir

Merhaba
Sayfanın kod bölümüne

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Sheets("Sayfa2").Visible = False
Sheets("Sayfa3").Visible = False
ElseIf Target.Column = 2 Then
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
Sheets("Sayfa2").Visible = True
Sheets("Sayfa3").Visible = True
End If
End Sub

Bu kodu
Kitabın Thisworkbook bölümüne

Option Explicit
Private Sub Workbook_Open()
başla:
DoEvents
If Format(Now, "dd.mm.yyyy hh:mm") = Format(DateSerial( _
Year(Date), Month(Date) + 1, 0) & " 00:00", "dd.mm.yyyy hh:mm") Then
Sheets("Sayfa2").PrintOut
Sheets("Sayfa3").PrintOut
Else
GoTo başla
End If
End Sub

Bu kodu kopyalayın ve kitabı kapatıp açın.
Not : Kod aktif olduktan sonra mutlaka dosyanın kapatılıp açılması gereklidir.
Eki inceleyebilirsiniz

 

[contct]

Merhaba
Sayfanın kod bölümüne

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Sheets("Sayfa2").Visible = False
Sheets("Sayfa3").Visible = False
ElseIf Target.Column = 2 Then
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
Sheets("Sayfa2").Visible = True
Sheets("Sayfa3").Visible = True
End If
End Sub

Bu kodu
Kitabın Thisworkbook bölümüne

Option Explicit
Private Sub Workbook_Open()
başla:
DoEvents
If Format(Now, "dd.mm.yyyy hh:mm") = Format(DateSerial( _
Year(Date), Month(Date) + 1, 0) & " 00:00", "dd.mm.yyyy hh:mm") Then
Sheets("Sayfa2").PrintOut
Sheets("Sayfa3").PrintOut
Else
GoTo başla
End If
End Sub

Bu kodu kopyalayın ve kitabı kapatıp açın.
Not : Kod aktif olduktan sonra mutlaka dosyanın kapatılıp açılması gereklidir.
Eki inceleyebilirsiniz

İlginiz için çok tşkler.Ancak ne gönderdiğiniz sayfada nede kodları kendim eklediğimde olmadı sorun nerde acaba

 

[İhsan Tank]

İlginiz için çok tşkler.

Rica ederim
:keyif: