SÜZ YAZDIR VBA

[catalinastrap]

Merhabalar,
ekte bir dosyam var ,A18 hücresinden itibaren aşağı doğru 1 OF 1 süzülüp print edecek sonra 2 OF 2 prit edecek sayfa sonuna kadar tekrarlayacak.

sabit alanlar :1-17. satır arası sabit başlık olacak,sondan da 668-672 arası sabit kalacak yani arada kalan hücreleri gizle aç yapacağız

 

[catalinastrap]

konu günceldir arkadaşlar

 

[catalinastrap]

açıklamam yeterli olmadı sanırım.

 

[Seyit Tiken]

Örnek dosyayı inceleyiniz.

 

[catalinastrap]

Örnek dosyayı inceleyiniz.

Merhaba Seyit Bey,
filitreden seç ve bas seçeneği ilave edilmesi gerekiyor (sıralı).yani bu işlemi makroya yaptırmak istiyorum zaten

 

[catalinastrap]

hala konu günceldir

 

[Seyit Tiken]

Makro Kaydet ile Filtreyi bir uygulayın.

 

[Trilenium]

ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="1 OF 1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="2 OF 2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False


ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="3 OF 3"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False


ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="3 OF 3"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="4 OF 4"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False


ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="5 OF 5"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

Şöyle dizebilirsin... devamını yaparsın

 

[catalinastrap]

ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="1 OF 1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="2 OF 2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False


ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="3 OF 3"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False


ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="3 OF 3"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="4 OF 4"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False


ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="5 OF 5"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

Şöyle dizebilirsin... devamını yaparsın

Merhaba sayın Trilenium,
bazem 21 OF 21 de bazen 5 OF 5 te bazende 100 OF 100 de bitiyor daha pratik bir kod yazabilir miyiz ya da 21 OF 21 de bittiğinde ben bu kod bloğunu 500 OF 500 e kadar yazarsam sayfa da data kalmadığında işlemi durduracak bir kod da olur.
sanırım anlatabildim sorunumu.Birde alttaki sabit alanlarda print edilmeli

 

[catalinastrap]

konu hala günceldir arkadaşlar

 

[catalinastrap]

bir çözümü yok galiba konunun