Çalışma kitabı yavaşlaması ve yazdırma makrosu

Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
07-01-2024
Arkadaşlar iki sorum olacak birincisi şu. Excel dosyası bir iki gün açık kaldığı zaman aşırı derecede yavaşlama oluyor, kapat aç yaptığım zaman düzeliyor bunun nedenin nedir ? İkincisi saya seçimi yaptırmadan başka bir sayfadaki veriyi yazdırmak mümkün mü acaba ?
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
  1. Görev Yöneticisinden Bellek durumunu kontrol ettiniz mi, oradaki durum nedir?
  2. Göndereceğiniz sayfanın adını yazmanız yeterli. Örnek; Sheets("Rapor").Range("A1").Value = "Osma"
 
Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
07-01-2024
  1. Görev Yöneticisinden Bellek durumunu kontrol ettiniz mi, oradaki durum nedir?
  2. Göndereceğiniz sayfanın adını yazmanız yeterli. Örnek; Sheets("Rapor").Range("A1").Value = "Osma"
Yazdırmaktan kastım çıktı almaktı.
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
Sayfa1.PrintOut şeklinde sayfanın adını yazmanız yeterli.
Diğer detaylar için argümanlara bakabilirsiniz. Sitede de printout yazıp aradığınızda bolca kullanım örneği vardır.
218817
 
Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
07-01-2024
Deneyeceğim hocam ilgilendiğin için çok teşekkür ederim.
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
Rica ederim, iyi geceler.
 
Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
07-01-2024
Hocam yapamadım PrintOut ifadesini aşağıdaki koda nasıl uyarlayacağımı bilemedim.

Kod:
Sheets("PerYazdır2").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu şekilde deneyiniz.
Kod:
Sheets("PerYazdır2").PrintOut
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
@Seyit Tiken Bey'in önerdiği gibi yazdırabilirsiniz.
Sadece 1. sayfayı 1 kere yazdırmak isterseniz aşağıdaki gibi kullanabilirsiniz. Eğer zaten 1 sayfanız varsa o zaman Seyit Bey'in komutu yeterli olur.
C#:
Sheets("PerYazdır2").PrintOut From:=1, To:=1, Copies:=1, Collate :=True, IgnorePrintAreas:=False
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Genel olarak açıklamak gerekirse kodda seçili sayfa yerine istediğiniz sayfayla ilgili işlem yaptırmak için koddaki

ActiveWindow.SelectedSheets

Ya da

Activesheet

Yerine

Sheets("PerYazdır2")

Şeklinde sayfa adını belirtmeniz gerekir.
 
Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
07-01-2024
Ustalarım cevaplar için teşekkür ederim maalesef deneyemiyorum bilgisayarcının yüklediği excel dosyası ürün anahtarı hatası vermeye başladı programı sildim internetten indirebileceğim link arıyorum
 
Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
07-01-2024
Herkese çok teşekkür ederim verdiğiniz bilgiler çok işime yaradı.
 
Üst