MAKRO İLE SAYFALARDAKİ YAZDIRMA ALANLARI

[nejdetsev]

MAKRO ÝLE SAYFALARDAKÝ YAZDIRMA ALANLARI

1).ARKADAÞLAR BANA MAKRO İLE 13 AYRI SAYFADAKİ YAKLAÞIK 60 AYRI YAZDIRMA ALANINI YAZDIRACAK KOD GEREK YAZMAYA ÇALIÞTIM makro olayına yeni merak sardığım için YAPAMADIM...

KISACA 1 İKİ SAYFADAKİ BİRKAÇ YAZDIRMA ALANI İÇİN Ã?RNEK OLSA BEN ONU DİÐERLERİNE UYGULARIM

2.) RAKAMLARI YAZI İLE YAZAN MAKRO YA ÇOK ACİL İHTİYACIM VAR
öRNEÐİN a1 de 23 olsun b1 e " =yaz(a1) " fonksiyonunu girince "yirmiüç" yazsın

yardımcı olabileceğinizi düşünüyorum.
saygılarımla

 

[nziya]

Rakamı yazıyla yazdırma
http://www.excel.web.tr/viewtopic.php?t=171

 

[nziya]

Sub Yazdır()
Sheets("Sayfa1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sayfa2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[nejdetsev]

nziya arkadaşıma ilgileri için çok teşekkür ederim.

"rakamları yazıyla" "=yaz" kodları çok güzel saolsun.

Sub Yazdır()
Sheets("Sayfa1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sayfa2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
kodlarıda çalışıyor bir sayfaya buton yapıp kaç sayfa tanımlarsanız (sayfalarda yazdırma alanları belirtilmiş ise) çok güzel hepsini print ediyor.
fakat Ben şunu istiyorum:
1. sayfaya butonları yerleştireceğim.
mesela =yazdır!3.sayfa;a1:e53
=yazdır!3.sayfa;a54:e106

gibi sayfalardaki alanları nasıl yazdırırım?
yani herhangi bir sayfada birden fazla yadırma alanı var..
yukarıdaki kodlar sayfadaki tüm yazdırma alanlarını yazdırıyor. bu gereksiz sayfa yazdırması demek...
inşallah anlatabildim sizlere
saygılarımla

 

[nziya]

Sanırım bu kod işinize yarar.
Private Sub CommandButton1_Click()
bilgi = "Yazdırmak istediğiniz hücre aralığını girin. "
düğme = "A1:B10"
a$ = InputBox(bilgi, "YAZDIRMA ALANINI SEÇ", düğme)
ActiveSheet.PageSetup.PrintArea = a$
ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

[Ali]

Ã?rneğin 3 sayfanız için bir range belirtmeniz gerekecek nziya beyin kodlarına Range ile ilgili satırı eklemeniz gerekecek

Range("A1:E53").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

 

[Ali]

Ben yazarken nziya, cevabı gelmiş görmedim

 

[nejdetsev]

nurziyabeye ve diğerlerine teşekkür ederim.

Private Sub CommandButton1_Click()
bilgi = "Yazdırmak istediğiniz hücre aralığını girin. "
düğme = "A1:B10"
a$ = InputBox(bilgi, "YAZDIRMA ALANINI SEÇ", düğme)
ActiveSheet.PageSetup.PrintArea = a$
ActiveWindow.SelectedSheets.PrintPreview
End Sub

fakat bu kodu çalıştıramadım.
benim istediğim şeyi tam olarak anlatamadığım anlaşılıyor. bir excel çalışma sayfasına yazdım.
herhangi çalışma sayfasında birden çok yazdırma alanlarını ayrı ayrı butonlarla ayrı ayrı yazdırmak istiyorum.gelen kodlarda sayfada kaç tane yazdırma sayfası varsa hepsini biden yazdırıyor. bunu istemiyorum................
tek tek yazdırması gerek yani :yardim: :yardim:

 

[nejdetsev]

Arkadaşlar :yardim: :yardim: :yardim: :yardim: :yardim: :yardim:
yukarıdaki konuda yardımedecek kimse yok mu?
saygılarımla

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[nejdetsev]

leventm kardeşim sana ne kadar teşekkür etsem azdır...çalışmalarınızda başarılar dilerim....çok teşekküüüüüüüüüüür. saol aradığım şeyin yüzde yüz ta kendisi

 

[nkumas]

örnek silinmis

ben de makro ile sayfaları kendim ayarlamak istiyorum

yani a1:h27 sayfa1

a28:h48 sayfa2 olsun gibi

buldum cok pardon..

sh.HPageBreaks.Add Before la yapıcaz..

 

[mmkmm]

Arkadaşlar Merhaba,

Bende size bu konuyla ilgili bir soru sormak istiyorum. belki aynı soru olabilir, makrolarla ilgili çok fazla bilgim olmadığı için kusura bakmayın. benim sorum şu;
toplam 4 sheet de yazdırılması gereken belgelerim var. ben bir hücredeki bilgiye göre yazdırma işlemi yapmak istiyorum."c3 hücresi 0 dan büyükse a1:g30, d3 hücresi 0 dan büyükse g31:k45" alanları yazdır gibi. şunuda belirteyim ki, bir shette 7-8 sayfaya yakın doküman var. ben her sayfada bir hücreye göre koşullandırmak istiyorum.
yardımlarınız için teşekkür ederim.

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
'c3 hücresi 0 dan büyükse a1:g30
If [c3] > 0 Then [a1:g30].PrintOut
'd3 hücresi 0 dan büyükse g31:k45
If [d3] > 0 Then [g31:k45].PrintOut
End Sub

 

[mmkmm]

çok teşekkür ederim, çok yardımcı oldunuz. İşime de yaradı, bir şey daha ekleyeyim; o zaman yazdırma alanı belirlemek içinde "printout" yerine "PrintArea" yazsam kullanabilir miyim?
teşekkürler...