Hücre boş ise Sayfa yazdırma, hücre dolu ise sayfa yazdır.

[mustafa77yilmaz]

B3 hücre boş ise sayfa2 yazdırma, B3 hücre dolu ise sayfa2 yazdir, B4 hücre boş ise sayfa2 yazdırma, B4 hücre dolu ise sayfa3 yazdır. Makrosu nasıl olacak, yardımcı olursanız çok sevinirim.

 

[Korhan Ayhan]

Kendinize göre uyarlarsınız...

Option Explicit

Sub Test()
    If Sheets("Sayfa1").Range("B3") <> "" Then Sheets("Sayfa2").PrintOut
    If Sheets("Sayfa1").Range("B4") <> "" Then Sheets("Sayfa3").PrintOut
End Sub

 

[mustafa77yilmaz]

Öncelikle cevap verdiğiniz için teşekkürler, yazmış olduğunuz kod çalışmadı maalesef.

 

[Korhan Ayhan]

Ne yaptınızda çalışmadı..

 

[mustafa77yilmaz]

 

[Korhan Ayhan]

"Kendinize göre uyarlarsınız.." ifadesini kullanmıştım. Sanırım buna dikkat etmediniz.

Siz buton olarak CommandButton kullanmışsınız. Verdiğim kod satırlarını başlık ve bitiş hariç (aradaki iki satırı) CommandButton bloğuna kopyalayarak ve sayfa ve hücre isimlerini düzenleyerek kullanabilirsiniz. Sonrasında TEST isimli prosedürü dlerseniz silebilirsiniz.

 

[mustafa77yilmaz]

Çalıştı, çok teşekkür ederim.

 

[mustafa77yilmaz]

Birde sizden ricam, örneğin B3 hücresi boş ise alttaki satırları gizleme, dolu ise alta 1 satır ekleme ve sırayla b4 doluysa alta 1 satır daha ekleme konusunda yardımcı olabilirmisiniz.?

 

[Korhan Ayhan]

B3 hücresine veriyi elle mi yazıyorsunuz?

 

[mustafa77yilmaz]

Evet elle yazıyoruz.

 

[Korhan Ayhan]

Eki inceleyiniz.

Harici Link (Silinebilir) ; https://dosya.co/h21mvjyoly7w/Row_Hidden_or_Show.xlsm.html