Soru Vba İle Şartlı Yazdırma Hakkında'

[stirra_ej]

P13 satırı gizli ise ve p14 satırı aktif ise veya p13 satırı aktif p14 satırı gizli ise veya p13 ve p14 satırı aktif ise
ad tanımlı olan hücre aralığını yazdır.
iki satır aralığı da aktif değilse yazdırma ve p15 p16 satırlarını kontrol et.

Arkadaşlar lütfen yardımcı olabilirmisiniz.. Bu kodlanabilir mi

 

[muygun]

Merhaba;
Açıklamanız yetersiz ama yinede kodları deneyin.
İyi çalışmalar.

Sub işlem()

If Rows(13).EntireRow.Hidden = True And Rows(14).EntireRow.Hidden = False Then
MsgBox ("13 gizli 14 açık")
'Sheets("Sayfa1").Range("A1:M55").PrintOut 'burada belirlediğiniz alan yazdırılır.
End If

If Rows(13).EntireRow.Hidden = False And Rows(14).EntireRow.Hidden = True Then
MsgBox ("13 açık 14 gizli")
'Sheets("Sayfa1").Range("A1:M55").PrintOut 'burada belirlediğiniz alan yazdırılır.
End If

If Rows(13).EntireRow.Hidden = True And Rows(14).EntireRow.Hidden = True Then
MsgBox ("13 gizli 14 gizli. P15 ve P16 kontrolu!")
End If

End Sub

 

[stirra_ej]

Hocam teşekkür ederim ilgilendiğiniz için, anca fırsatım oldu geri dönebilmek için, şimdi kodları deneyeceğim, size geri dönüş yaparım.