Otomatik yazdırma alanı belirlemek

[gohanx21]

S.A

Sub Oval_Tıklat()

ActiveSheet.PageSetup.PrintArea = "$A$1:$o$" & [p65536].End(3).Row

End Sub

Arkadaşlar yukarıdaki makro ile yazdırma alanını otomatik belirliyorum.

Bu makro dolu olan hücrelere göre yazdırma alanını belirliyor. Son hücredeki değer 0 (Sıfır) ise o hücreyi yazdırma alanı dışına alabilir miyim? yani hücrede 0 (sıfır) varsa yazdırma alanına alınmasın

Umarım anlatabilmişimdir.

Selametle

 

[Ayhan Ercan]

S.A

Sub Oval_Tıklat()
 
ActiveSheet.PageSetup.PrintArea = "$A$1:$o$" & [p65536].End(3).Row
 
End Sub

Arkadaşlar yukarıdaki makro ile yazdırma alanını otomatik belirliyorum.

Bu makro dolu olan hücrelere göre yazdırma alanını belirliyor. Son hücredeki değer 0 (Sıfır) ise o hücreyi yazdırma alanı dışına alabilir miyim? yani hücrede 0 (sıfır) varsa yazdırma alanına alınmasın

Umarım anlatabilmişimdir.

Selametle

Merhaba Sn gohanx21

"0" olabilme ihtimali olan son hücre hangi Sütunda?

 

[gohanx21]

o sutununda

 

[Ayhan Ercan]

Merhaba Sn gohanx21

"Sıfır" ile "Boş Hücre" birbirine eşit kabul edildiğinden yalnızca Sıfır değil, aynı zaman hücre boş isede Sıfır olarak görmekte ve yazdırma alanı dışına almaktadır.

Dim x As Double
x = [p65536].End(3).Row
If Range("o" & x).Value > -1 And Range("o" & x).Value < 1 Then
x = x - 1
End If
ActiveSheet.PageSetup.PrintArea = "$A$1:$o$" & x

 

[gohanx21]

Kardeş teşekkürler çok işime yaradı.

 

[Ayhan Ercan]

Kardeş teşekkürler çok işime yaradı.

Rica ederim.
İyi Çalışmalar.. k::

 

[gohanx21]

Ercan bey ek bir şey sormak istiyorum. Makro yu 0 (sıfır) ya da boş olma ihtimaline değilde istediğim başka bir değere nasıl bağlayabilirim.

Mesele bir metne "Alan Sonu" ya da bir sayıya 12 gibi

 

[Ayhan Ercan]

Merhaba


Kırmızı Satırı inceleyiniz....

Dim x As Double
x = [p65536].End(3).Row
[COLOR=red][B]If Range("o" & x).Value = [COLOR=darkorange]12[/COLOR] Then[/B][/COLOR]
x = x - 1
End If
ActiveSheet.PageSetup.PrintArea = "$A$1:$o$" & x

Eğer burda metinsel bir ifade gösterecekseniz, Örnek sorudaki "Alan Sonu" gibi;
O zaman değişkeni tırmak içinde ("") belirtmelisiniz.

If Range("o" & x).Value = "Alan Sonu" Then
gibi...

 

[gohanx21]

Ercan bey örnek bir dosya ekliyorum. Verdiğiniz son makroyu denedim.

Alan Sonu yazılı hücreyi baz almıyor. Dolu olan son hücreyi baz alıyor

 

[Ayhan Ercan]

Merhaba,

Bu örnek ile bir önceki örnek birbirinden farklı.
Bu yüzden sonuç alamıyorsunuz.

Son örneğe aşağıdaki kodu yazıp deneyiniz..

Sub Yazdirma_Alani()
Dim x As Double, w As Double
w = [p65536].End(3).Row
x = Range("P1:P" & w).Find("Alan Sonu").Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$p$" & x
End Sub

 

[gohanx21]

Makro çalışıyor.
Ercan bey ilginiz için teşekkürler.

 

[gohanx21]

Arkadaşlar kusura bakmayın ufak bir sorun daha çıktı.

Sorunu örnek bir dosyada anlattım.

 

[Ayhan Ercan]

Merhaba,

Deneme fırsatım pek olmadı ama aklıma şu geldi.
Formul değilde, formulu makro olarak yazarak deneyiniz...

Sub Auto_Open()
Dim x As Double, w As Double
    If Sheets("Sayfa1").Range("m22").Value = 0 Then
        Sheets("Sayfa1").Range("p57").Value = "Alan Sonu"
        Else
        Sheets("Sayfa1").Range("p57").Value = ""
    End If
w = [p65536].End(3).Row
x = Range("P1:P" & w).Find("Alan Sonu").Row
x = x - 1
ActiveSheet.PageSetup.PrintArea = "$A$1:$o$" & x
End Sub

 

[gohanx21]

Ercan bey makro sadece 1. Sayfayı baz alıyor. Yani 1. Sayfadaki m22 ile p57 yi baz alıyor anladığım kadarı ile.
Takip eden diğer sayfaları da kapsayacak şekilde düzenleyebilir miyiz?
m78 = 0 ise P113 ="Alan Sonu"
m134 = 0 ise P169 ="Alan Sonu"
.
.
Gibi. Yani Makro şuan sadece 1. Sayfa için geçerli bunu altta takip eden diğer sayfaları da kapsaması lazım.
Ufak bir ekleme daha yapmak istiyorum. Diyelim en son m134 deki hücrenin değeri sıfırdan farklı onu takip eden diğer sayfalarda sıfır. Bu durumda makro çalıştığında M134 ün bulunduğu 3. Sayfayı değil onu takip eden 4. Sayfayı da kapsayacak şekilde yazdırma alanını belirliyor. Burda 4. Sayfa gereksiz yere yazdırma alanına girmiş olacak. 4. sayfanın gereksiz yere yazdırma alanına girmemesi lazım.

 

[Ayhan Ercan]

Ercan bey makro sadece 1. Sayfayı baz alıyor. Yani 1. Sayfadaki m22 ile p57 yi baz alıyor anladığım kadarı ile.
Takip eden diğer sayfaları da kapsayacak şekilde düzenleyebilir miyiz?
m78 = 0 ise P113 ="Alan Sonu"
m134 = 0 ise P169 ="Alan Sonu"
.
.
Gibi. Yani Makro şuan sadece 1. Sayfa için geçerli bunu altta takip eden diğer sayfaları da kapsaması lazım.

Selam,

Çok özür dilerim ancak, mesajda da yazdığım gibi deneme fırsatı olmadan bir fikir sunmuştum sadece.

Şuan sorunuzla örnek dosyanızı biraz incelemeye ve yapmaya çalıştığınız şeyi çözmeye çalıştım.

İnanın kafam karışmadı desem yalan olur.
Birçok "Alan Sonu" ifadesinin var olması Örnek kodun Sağlıklı Çalışmamasına neden olabilecektir...

 

[YaqIshIqLI]

Print etmek istediğim sayfada textboxlar var. Çeşitli makrolara göre visible durumu değişiyor. Bu textboxların boyutuna göre print area değişssin istiyorum. Makrolar aracılığıyla dolu hücreleri print edilmesinin mümkün olduğunu biliyorum ancak bunu textboxlar için de uyarlamak mümkün müdür? Teşekkürler..