Açılır listeden secilebilecek her degiskeni yazdirma

Katılım
2 Aralık 2018
Mesajlar
16
Excel Vers. ve Dili
Exel 2011-13 Türkçe
https://drive.google.com/file/d/1bmG6Y4vunfERXCOksAzSq3AiasYIHBwF/view?usp=drivesdk

2 sayfamiz var veri ve grafik adında.

Veri sayfamizda tablo var. Sutunlari "meyveler" "2000". "2001". "2002" seklinde. Satirlarda meyveler ve bu meyvelerin o yillardaki satis fiyatlari mevcut.

Grafik sayfasinda ise. A2 hucresine acilir kutu yaptim ve meyve isimlerinin bu kutudan aecilmesini sagladim. Hemen altina A3 hucresine dusey ara formulu ile 2000 yilindaki fiyati A4 e ise 2001 yilindaki fiyati yine duseyara ile gelmesini sagladim. Ayni zamanda hemen bu tablonun yanina verileri bu sayfadan alan grafik ekledim.
Acilir kutudan meyveyi sectigimde degerler geliyor bu sayede grafik de degisiyor ve bu sayfayi yazdirabiliyorum.

Benim istegim ise bir yazdır butonu ile bu grafik sayfasindaki acilir kutumdaki meyvelerin tek tek secilip olusacak sayfanin bir yere pdf olarak kaydedilmesi.
Mümkün müdür?

Not. Olayi basitlestirerek anlattim. 100 kadar meyve 10 ayri yil varmis gibi dusunun. Bu islemi her yaptigimda 100 sayfanin tektek kaydini yapmak isime gelmedi.
 
Son düzenleme:
Katılım
2 Aralık 2018
Mesajlar
16
Excel Vers. ve Dili
Exel 2011-13 Türkçe
Tekrar okudumda açık yazmamisim. Yazdir butonu ile. Onceden olusturdugum tek meyvelik sayfa yazdirilmayacak. Tek buton ile tum meyvelerin grafik sayfalari ayri ayri yazdirilacak. Sanirim boyle daha açıklayıcı oldu.
 
Katılım
2 Aralık 2018
Mesajlar
16
Excel Vers. ve Dili
Exel 2011-13 Türkçe
ilginiz için teşekkürler.

Sadece grafiği değil grafiğin bulunduğu sayfayı yazdırmayı istiyorum. ancak bu sizin için sorun değildir anladığım kadarıyla...
Ayrıca asıl istediğim bu exel dosyası değil işlemin nasıl yapıldığını öğrenmek. Verdiğiniz dosyayı incelediğimde makro da bulamadım. Öğrenmemi sağlayacak yönlendirmeleri yaparsanız sevinirim.
 
Katılım
2 Aralık 2018
Mesajlar
16
Excel Vers. ve Dili
Exel 2011-13 Türkçe
Dosyanızın Linki

İndirip açıklamaları okuyun ve deneyin.
çok sağolun biraz daha kurcalayınca visual Basic ile kodladığınızı farkettim. (benim için bir ilk exelde bu kısım)
Kodları şöyle biraz inceleyince
Kod:
ActiveSheet.ChartObjects("grafik").Activate
kısmını silmemin yeterli geleceğini düşündüm. (üst mesajımda belirttiğim gibi ben grafik sayfasını yazdırmayı istiyordum. ) Galiba oldu. Bu kodunuzu kullanarak iş yerimde orjinal dosyamda deyeceğim. Sonucu paylaşırım. çok heyecanlandım sayenizde kod kısmına ilk adımımı atmış oluyorum.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
İyi çalışmalar.
 
Katılım
2 Aralık 2018
Mesajlar
16
Excel Vers. ve Dili
Exel 2011-13 Türkçe
Malesef beceremedim. Aşağıdaki dosyayı incelerseniz. "Öğrenci Seç" Sayfasının 1 sayfa olarak yazdırılmasını istiyorum.
Toplam PUAN Al sayfasındaki isimleri Öğrenci seç sayfasında ki C1 hücresinde açılır liste olmasını sağladım.

VB kodu girdiğimde (dosyada editlediğim şekli mevcut) sürekli Veriler sayfasındaki hücrelerden. P sutununa verileri yazdırıyor. Bunu bir türlü değiştiremedim. kodda s1 ve s2 ile seçilmesi gereken sayfaları tanımladığımızı düşündüm ama olmadı. Hala veriler sayfasındaki b2 sutunundaki veriler Öğrenci Seç sayfasındaki P Sutununa yazdırılmakta. (aslında buraya yazmadan direk yapması daha doğru olacaktı ama bir problem değil o sutunu gizleyebiliriz.)

https://drive.google.com/file/d/1Z8LMW0_oRUmwVCrX79FHM-_sbojGP3Ag/view?usp=sharing
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Dosyanızın Linki
Gerekli düzenlemeler yapılmış dosyanızı ve açıklamaları inceleyiniz.
Eski yaratılan PDF dosyalarınızı tamamen silerek yeniden deneyiniz.
 
Üst