Seçili Alanı Makro İle 2 Kopya Olarak Yazdırmak

[betoncu]

Excelde herhangi bir sayfadaki seçili alanı bir düğmeye bastığımda 2 kopya olarak yazdırmak istiyorum.
Bu şekil bir yazdırma komutu yapacak makroya ihtiyacım var.
Yardımlarınızı bekliyorum.

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz

Sub YAZ()
ActiveSheet.PrintOut Copies:=2
End Sub

 

[betoncu]

Teşekkür ederim emeğinize sağlık..

 

[betoncu]

DÜĞmenİn Ekrandan Kaybolmamasi

Sayın hocam size bir sorum daha olacak.
Belirttiğiniz şekilde bir kod hazırlayarak çalışma sayfasına makroyu çalıştıracak "SEÇİLİ ALANI 2 KOPYA YAZDIR" isimli bir düğme ekledim.
Sorum şu:
Mouse ile sayfada aşağı yukarı ilerlerken bu düğmeninde hareket etmesini yani ekrandan kaybolmamasını istiyorum bunu nasıl yapabiliriz acaba?

 

[betoncu]

Örnek Dosya

BahsettİĞİm Örnek Dosya Ektedİr. Yardimlarinizi Beklİyorum...

 

[Seyit Tiken]

Bu şekilde deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("AutoShape 1").Top = ActiveCell.Top
End Sub

 

[betoncu]

Private Sub ile başlayan veya kapsamlı kodlar olunca makroya kodu ekleyemiyorum. Gönderdiğim örnek dosya üzerinde düzenleme yapıp gönderebilirmisiniz?

 

[uzmanamele]

merhaba
Private Sub ile başlayan kodları sayfanın kod bölümüne
Sub ile başlayanları modüle yazınız.

 

[betoncu]

VBA'yı açınca karşıma gelen beyaz pencere modül kısmı oluyor sanırım. Peki sayfanın kod bölümü neresi oluyor?

 

[betoncu]

Acİl Yardim....

Bu şekil deneyiniz

Sub YAZ()
ActiveSheet.PrintOut Copies:=2
End Sub

Bu şekil yaptığım zaman geçerli sayfanın 2 kopyasını yazdırıyor. Seçili hale getirdiğimiz bölgenin 2 kopyasını nasıl yazdırabiliriz acaba.

 

[Seyit Tiken]

Bu şekilde deneyin.

Selection.PrintOut Copies:=2

 

[betoncu]

TeŞekkÜr Ederİm .İyİ ÇaliŞmalar Dİlerİm..