Farkli sayfalardan hücredeki degere göre Print alma

[boss2090]

Merhaba arkadaslar, farkli sayfalardan hücrelerdeki degerlere göre Prit almam gerek. Bunun icin VBA koduna ihtiyacim var.

Örnek:
Sayfa2 de: Asagidaki hücreler Typ 1 den Typ 12 e kadar degerler aliyor.
A1: Typ 1
B1: Typ 2 ....... buşekilde K1: Typ 12 e kadar gidiyor.

Prit i şu şekilde almak istiyorum:
Sayfa 1, Sayfa 2 ve
Sayfa 2 hücre A1: Typ 1 ise B1: .... K1: hücreleri bos ise Sayfa 3 de A1:K50 araligi
Sayfa 2 hücre A1: Typ 1 ve B1: Typ 2 ise C1: .... K1: hücreleri bos ise Sayfa 3 ve Sayfa 4 de A1:K50 araliklari
Sayfa 2 hücre A1: Typ 1 ve B1: Typ 2 ve C1: Typ 3 ise D1: .... K1: hücreleri bos ise Sayfa 3 ve Sayfa 4 ve Sayfa 5 de A1:K50 araliklari.

ve bu buşekilde devam ediyor..

Yardim icin cok Tesekkürler....

 

[programer]

örnek bir dosya eklemeniz mümkünmü

 

[boss2090]

Örnek dosya ekledim...


1) Sayfa 1 ve Sayfa 2 herzaman olacak.

2) Sayfa 3 ve sonrasi Sayfa 2 deki bazi hücredeki verilere bagli. Burasini Ekledigim dosyada anlattim.



Yardim icin cok Tesekkürler....

 

[boss2090]

vakti olan bri arkadas yardim ederse sevinirim...

 

[boss2090]

Bir arkadas yardim etsin lütfennnnnnnnnn...

 

[turist]

Ekli dosyayı inceleyiniz.
Ben de internetten bulduğum bir örneği sizin sayfanıza uyarlamaya çalıştım.
Örnek makroyu istediğiniz gibi geliştirebilirsiniz.
Kolay gelsin...

 

[boss2090]

Öncelikle cok tesekkür ederim.. Biraz daha yardima ihtiyacim olacak.


Asagidaki kod u Commanbutton a atadim. Burda bazi degisiklikler yapmam gerek. Cikti almadan önce ön bir bakis icin vede Print ayarlari yapabilmek icin ayar penceresi acmak istiyorum. Bu pencere aciliyor ön bakis icin basinca bütün sayfalari göremiyorum parca parca oluyor. Birde pencereyi onaylamadan kapatmak istesemde bütün sayfalarin ciktisini veriyor.
En son olarak bütün sayfalarda sadece A1:N50 kisminin ciktisini almak istiyorum..

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrint).Show
Sheets("Sayfa 1").PrintOut
Sheets("Sayfa 2").PrintOut
a = 25
For i = 1 To 4
tip = Sheets("Sayfa 2").Range("b" & a).Value
Select Case tip
Case Is = "Type 1"
Sheets("Sayfa 3").PrintOut
Case Is = "Type 2"
Sheets("Sayfa 4").PrintOut
Case Is = "Type 3"
Sheets("Sayfa 5").PrintOut
End Select
a = a + 14
Next i
End Sub


Bütün bunlar icin kod da ne gibi degisikler yapmam gerek... Yardimlariniz icin tesekkürler.