Filtreleme ve yazdırmayı makro ile yapma

[orhanbaba]

Elimdeki örneği sizlerle paylaşıyorum. Köylere göre süzme yapıp 2 nüsha çıktı almayı makro ile nasıl yapabiliriz. Tek tek köyleri seçip yazdırmadan kurtulmak için.

 

[Murat OSMA]

Deneyiniz...

Sub Filtrele_Yaz()
    Dim i As Integer, son As Integer
    With Sayfa1
        .Range("K1:K50").ClearContents
        .Range("B5:B304").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=.Range("K1"), Unique:=True
        .Range("K1").Select
        Selection.Delete Shift:=xlUp
        .AutoFilterMode = False
            For i = 1 To .Range("K65536").End(3).Row
                .[B4].AutoFilter field:=2, Criteria1:=.Cells(i, "K")
                .[A1].CurrentRegion.Copy Sayfa2.Range("A1")
                With Sayfa2
                    son = .Range("H65536").End(3).Row
                    .PageSetup.PrintArea = "$A$1:$H$" & son
                    '.PrintOut Copies:=1
                    Sayfa2.Range("A1:H300").ClearContents
                End With
            Next i
         .AutoFilterMode = False
    End With
    son = Empty: i = Empty
End Sub

Şu satırın başındaki '.PrintOut Copies:=1 ---> ' (tek tırnak) işaretini kaldırırsanız yazdırır...

 

[Murat OSMA]

Denediniz mi Orhan Bey ?

 

[orhanbaba]

.[A1].CurrentRegion.Copy Sayfa2.Range("A1")

run time error"424"
yazıyor yani olmadı

 

[orhanbaba]

filtrelenecek koyler

Murat Bey işinize kolaylaştıracağını düşündüğüm dosyayı tekrar gönderiyorum. Filtrelenecek köyler K sütunda hazır;

Buna göre ; listeden o köyleri filtreleyip 2 nüsha yazılımını makro ile gerçekleştirebilirmiyiz. İlginizden dolayı teşekkürler

 

[Murat OSMA]

Verdiğim kodda bir sorun yok... A1 yerine [A2] yazıp bir deneyiniz...
Ya da bu şekilde; .Range("A2").CurrentRegion.Copy Sayfa2.Range("A1")

Veriğim kodlarda zaten köyleri K sütununa sıralı listeliyor.

İki nüsha için .PrintOut Copies:=1 <--- 2 yapın...

 

[orhanbaba]

otomatik filtreleme ve yazdırma

Murat Bey maalesef yine olmadı. Siz kodlardan eminsiniz ama ben de olmadığından eminim. Vaktinizi almayacaksa var olan kodları test edip ekte gönderdiğim dosyanın içine aktarırsanız iyi olur. Mümkünse tabii.

 

[Murat OSMA]

Bendeki dosyayı gönderiyorum..
Deneyiniz...

 

[Merhum İdris SERDAR]

Murat Bey işinize kolaylaştıracağını düşündüğüm dosyayı tekrar gönderiyorum. Filtrelenecek köyler K sütunda hazır;

Buna göre ; listeden o köyleri filtreleyip 2 nüsha yazılımını makro ile gerçekleştirebilirmiyiz. İlginizden dolayı teşekkürler

.

Alternatif olarak, dosyanız ekte.

Bu haliyle isterseniz tek tek yazdırın.

Değilse;

ActiveSheet.AutoFilter.Range.PrintPreview

yerine iki nüsha yazdırmak için;

ActiveSheet.AutoFilter.Range.PrintOut Copies:=2

yazın.

.

 

[orhanbaba]

Murat Bey işlem tamam gibi. Yazdırıyor tam istediğim gibi. Ancak her köy listesinin başında 3. ve 4.satırları yazmadığı gibi sayfa ayarı dikey nasıl yatay yazdıracağız. bilgisayardan ayarlasak bile dikey çıktı veriyor. Çok teşekkürler.

 

[orhanbaba]

filtrele-goster-yaz.zip dosyasını şimdi farkettim

 

[Murat OSMA]

Sayfa yapısından Yatay olarak ayarladıktan sonra sorun olmaması lâzım...

Dilerseniz Sn. yurttas'ın dosyasını kullanın.

İyi günler...

 

[Merhum İdris SERDAR]

.

Sayın orhanbaba ,

Herhalde sorunuz çözüme kavuştu. Yani işiniz bitti. Artık gerisi önemli değil...


.

 

[simyaci64]

filtrele şablona göre yazdır ve teslim adresine (carisine sayfada barkod oluştur)

Merhaba İdris ve Osman bey;
çalışmalarınız çok güzel verdiğiniz emekler için allah sizden razı olsun.
bende excel de kodlamaya yeni başladım.
çokda güzel şeyler ortaya çıkıyor.
filtrele yazdır. ile sürekli Netsisten veri alan bir sayfada yeni sipariş geldiğinde yada veri yenileme yapıldığında veye cari ismindeki bir hücreyi çift tıkladığımda o cariye ait siparişleri ekteki şablona göre ayarlayıp A4 format sayfasında da nasıl yazdırabiliriz.
ayrıca teslim adresini sayfada nasıl barkod oluşturabiliriz. değerli yardımlarınız için şimdiden teşekkür ederim.
dosya ektedir.

saygılarımla.

 

[simyaci64]

merhaba arkadaşlar bu konuda fikri olan yokmu ?