Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 08-01-2014, 18:50   #1
gedavet
Altın Üye
 
Giriş: 15/09/2007
Şehir: KONYA
Mesaj: 1,311
Excel Vers. ve Dili:
2013 türkçe
Varsayılan özet tablonun boyutuna göre yazdırmak

iyi çalışmalar
özet tablo kullanıyorum, raporlama şartları göre tablo büyüyor veya küçülüyor bunu da her seferinde yazdırmak istediğim alanı seçip yazdırma alanını belirliyorum, her işlemde bu uzuyor zor oluyor,
bir kod yazabilir misiniz

örnek sayfadaki özet tablonun alanı ne kadar olursa o alanı yazdırsa
gedavet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-01-2014, 18:54   #2
Baggwell
Altın Üye
 
Giriş: 13/04/2013
Şehir: Bursa
Mesaj: 767
Excel Vers. ve Dili:
Office Excel 2016 TR Home & Business
Varsayılan

örnek sayfa eklenmedi
Baggwell Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-01-2014, 19:02   #3
gedavet
Altın Üye
 
Giriş: 15/09/2007
Şehir: KONYA
Mesaj: 1,311
Excel Vers. ve Dili:
2013 türkçe
Varsayılan

özür dilerim hocam dosya ekleyemedim sistem değişmiş
gedavet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-01-2014, 09:40   #4
gedavet
Altın Üye
 
Giriş: 15/09/2007
Şehir: KONYA
Mesaj: 1,311
Excel Vers. ve Dili:
2013 türkçe
Varsayılan

iyi günler

yapmak istediğim işlem ile ilgili örnek dosya eklyemedim ancak örnek kod var
makro kaydet dedim yaptığım işlemi yaptım aşağıdaki şekilde kod oluştu

Sub Makro1()
'
' Makro1 Makro
'

'
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = "$A$3:$B$6"
End Sub

ancak A3:B6 arası gibi bir yer var benim istediğim bu gibi bir sınırlama olmasın özet tablonun boyutu ne ise onu yazdırsın o lanı yazdırm aalı olarak belirleisn
gedavet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2014, 13:19   #5
gedavet
Altın Üye
 
Giriş: 15/09/2007
Şehir: KONYA
Mesaj: 1,311
Excel Vers. ve Dili:
2013 türkçe
Varsayılan

herkese iyi çalışmalar

bu konuda bana yardımcı olabilirmisiniz

bana bir kod yazı verebilrimisiniz
gedavet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2014, 13:42   #6
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,679
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

. . .

Özet tablonuzda sütun sayınız sabit mi ?
Örneğin A1 den C nin son dolu hücresine kadar diyebilir miyiz.

. . .
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2014, 13:52   #7
usubaykan
Destek Ekibi
 
usubaykan kullanıcısının avatarı
 
Giriş: 16/05/2008
Şehir: Antalya
Mesaj: 493
Excel Vers. ve Dili:
Ev : Office Excel 2003 İş : Office Excel 2003
Varsayılan

Son satırı buldurup yazdırmayı denedinizmi Örneğin

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
ActiveSheet.PageSetup.PrintArea = "$A$3:$B$" & Range("B65536").End(3).Row
usubaykan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2014, 14:13   #8
gedavet
Altın Üye
 
Giriş: 15/09/2007
Şehir: KONYA
Mesaj: 1,311
Excel Vers. ve Dili:
2013 türkçe
Varsayılan

hüseyin hocam ilginiz için teşekkür ederim

örnek özet tablo B4 den başlıyor genişliğide I sütununda ancak aşağıya doğru uzayan kısmı değişiyor
gedavet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2014, 14:44   #9
gedavet
Altın Üye
 
Giriş: 15/09/2007
Şehir: KONYA
Mesaj: 1,311
Excel Vers. ve Dili:
2013 türkçe
Varsayılan

usubaykan hocam ilginiz için teşekkür ederim
kod bu şekilde mi olacak
Sub Makro1()
'
' Makro1 Makro
'

'
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = "$A$3:$B$" & Range("B65536").End(3).Row
End Sub


makroyu çalıştırınca alan seçili klaıyor seçili kalmasa örnek a3 hücresine tıklanmış gibi seçimden çıksa
gedavet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2014, 15:31   #10
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,679
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

Alıntı:
mustafakoza tarafından gönderildi Mesajı Görüntüle
hüseyin hocam ilginiz için teşekkür ederim
örnek özet tablo B4 den başlıyor genişliğide I sütununda ancak aşağıya doğru uzayan kısmı değişiyor
. . .

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Kod()

ActiveSheet.PageSetup.PrintArea = "$B$4:$I$" & [I65536].End(3).Row

yazdir = MsgBox("Yazdırmak İstiyor musunuz ?", vbYesNo)
If yazdir = vbNo Then Exit Sub
ActiveSheet.PrintOut

End Sub
. . .
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 18:44


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden