süzerek yazdırmak

[polis-53]

Merhaba arkadaşlar ekte gönderdiğim dosyada A sutununa ANKARA,İZMİR İSTANBUL gibi iller sıralanmaktadır benim istediğim bir yazdır butonuna yazdır dediğimizde A sutunundaki illeri süzerek yazdırmak istiyorum yardımcı olursanız çok memnun olacağım kalın sağlıcakla

 

[polis-53]

cevap veren olmadı herkes yoğunmu acaba

 

[polis-53]

arkadaşlar yalnış bir şeymi istedim cevap veren yok.

 

[bedri41]

Merhaba arkadaşlar ekte gönderdiğim dosyada A sutununa ANKARA,İZMİR İSTANBUL gibi iller sıralanmaktadır benim istediğim bir yazdır butonuna yazdır dediğimizde A sutunundaki illeri süzerek yazdırmak istiyorum yardımcı olursanız çok memnun olacağım kalın sağlıcakla

Ekteki dosyayı incelermisiniz
Kolay Gelsin

 

[gelibolu]

Compile error sub or function not defined. hatası veriyor... Ayrıca seçmek için aynı ilden çok tekrar mevcut.



Private Sub CommandButton1_Click() If ComboBox1.Text = Empty Then
MsgBox "LÜFEN BİR İL SEÇİN", vbExclamation, "": Exit Sub
End If
il = ComboBox1.Value
ActiveSheet.Range("$A$2:$Q$1000").AutoFilter Field:=2, Criteria1:=il
UserForm1.Hide
Application.Dialogs(xlDialogPrinterSetup).Show
PrintOut

 

[asi_kral]

Compile error sub or function not defined. hatası veriyor... Ayrıca seçmek için aynı ilden çok tekrar mevcut.



Private Sub CommandButton1_Click() If ComboBox1.Text = Empty Then
MsgBox "LÜFEN BİR İL SEÇİN", vbExclamation, "": Exit Sub
End If
il = ComboBox1.Value
ActiveSheet.Range("$A$2:$Q$1000").AutoFilter Field:=2, Criteria1:=il
UserForm1.Hide
Application.Dialogs(xlDialogPrinterSetup).Show
PrintOut

Merhaba
Eki inceler misiniz

 

[gelibolu]

sanırım ben göremiyorum bunda menü bile çıkmıyor.Yatsam iyi olacak ii geceler...

 

[asi_kral]

sanırım ben göremiyorum bunda menü bile çıkmıyor.Yatsam iyi olacak ii geceler...

Üstteki dosyayı güncelledim.

 

[polis-53]

asi_kral_1967

Teşekkür ederim asi_kral_1967 ellerinize sağlık çok güzel olmuş tam olarak benim istediğim ytümünü yazdır butonu koyarak yazdır dediğimde otomatik olarka A sutunundaki illeri süzerek yazdırmak istiyordum yinede çok teşekkür ederim sağolun varolun kalın sağlıcakla.

 

[asi_kral]

Teşekkür ederim asi_kral_1967 ellerinize sağlık çok güzel olmuş tam olarak benim istediğim ytümünü yazdır butonu koyarak yazdır dediğimde otomatik olarka A sutunundaki illeri süzerek yazdırmak istiyordum yinede çok teşekkür ederim sağolun varolun kalın sağlıcakla.

Şimdi sizin istediğiniz şu mu_?
Kaç tane il varsa siz butona tıkladığınızda otomatik o illeri süzerek yazdırsın siz seçmek istemiyorsunuz doğru mu anladım acaba

 

[polis-53]

asi_kral_1967

evet aynen oyle yazdır dediğimde tüm illeri süzerek yazdırsın kal sağlıcakla

 

[asi_kral]

evet aynen oyle yazdır dediğimde tüm illeri süzerek yazdırsın kal sağlıcakla

Merhaba
Boş bir module kopyalayın ve deneyin.

-------------------------------------------

Option Explicit
Sub süz_yazdır_1967()
'Konu : Süzerek Yazdır
'Coder By : asi_kral_1967
Dim asi, kral
Dim a As New Collection, b As Range, c
For asi = 3 To Range("A" & Rows.Count).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A3:A" & asi), Cells(asi, "A")) = 1 Then
If Cells(asi, "A") <> "TOPLAM" Then
a.Add Cells(asi, "A"), CStr(Cells(asi, "A"))
End If
End If
Next
c = Range("A" & Rows.Count).End(xlUp).Row
For Each b In a
Range("A2:Q" & c).AutoFilter field:=1, Criteria1:=b
Sheets("BAYİLER").PrintOut
Range("A2:Q" & c).AutoFilter
Next
End Sub

-----------------------------------------

Dosyanız ekte

 

[polis-53]

çok teşekkür ederim çok güzel oldu

 

[asi_kral]

çok teşekkür ederim çok güzel oldu

Kolay Gelsin.

 

[polis-53]

asi_kral_1967

Özür dileyerek Yazdır butonuna bastığımızda yazıcı seçme imkanınıda verebilirmi bunada bir bakarsanız çok sevineceğim.
İyi çalışmalar

 

[asi_kral]

Özür dileyerek Yazdır butonuna bastığımızda yazıcı seçme imkanınıda verebilirmi bunada bir bakarsanız çok sevineceğim.
İyi çalışmalar

Birden fazla mı yazıcınız var_?
Her ili farklı yazıcıya mı göndereceksiniz yoksa kod'u çalıştırdığınızda seçeceğiniz yazıcıda mı yazılacak hepsi_?

 

[polis-53]

evet birden fazla yazıcım var kodu çalıştırdığımda seçecek olduğum yazıcıya göndereceğim

 

[asi_kral]

evet birden fazla yazıcım var kodu çalıştırdığımda seçecek olduğum yazıcıya göndereceğim

Merhaba
Module'deki kodu bununla değiştirip dener misiniz_?

--------------------------------------------------

Option Explicit
Sub süz_yazdır_1967()
'Konu : Süzerek Yazdır
'Coder By : asi_kral_1967
Dim asi, kral, yaz
Dim a As New Collection, b As Range, c
kral = ActivePrinter
yaz = Application.Dialogs(xlDialogPrinterSetup).Show
If yaz = False Then Exit Sub
For asi = 3 To Range("A" & Rows.Count).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A3:A" & asi), Cells(asi, "A")) = 1 Then
If Cells(asi, "A") <> "TOPLAM" Then
a.Add Cells(asi, "A"), CStr(Cells(asi, "A"))
End If
End If
Next
c = Range("A" & Rows.Count).End(xlUp).Row
For Each b In a
Range("A2:Q" & c).AutoFilter field:=1, Criteria1:=b
Sheets("BAYİLER").PrintOut
Range("A2:Q" & c).AutoFilter
Next
Application.ActivePrinter = kral
End Sub

-----------------------------------------------

Dosyanız ekte

 

[polis-53]

çok teşekkür ederim sorulara cevap almak ne kadar güzel ALLAH herkese nasip etsin sizdende ALLAH razı olsun kal sağlıcakla

 

[asi_kral]

çok teşekkür ederim sorulara cevap almak ne kadar güzel ALLAH herkese nasip etsin sizdende ALLAH razı olsun kal sağlıcakla

Kolay Gelsin.