İzinleri Birimlere Göre Ayırma

bychilavert · 7 Ara 2022

Merhaba

Excel dosyamda N Sütununda yazan birimlere göre ayrı ayrı excel dosyası hazırlayarak o birime ait personelleri aktarmasını istiyorum. Zamanında @Ömer BARAN hocam yapmıştı sorunsuz bir şekilde kullanıyorum. Yardımı için teşekkür ederim. 2 farklı isteğim var bu konu hakkındayardımcı olabilirmisiniz?

* Sayfaları oluştururken ana dosyadaki sayfa düzeni gibi arka plan rengi v.s. aktarma imkanı var mı?
* .xlsx olarak oluşturulan dosyalar .pdf olarak oluşturulabilir mi?

Ömer BARAN · 7 Ara 2022

@bychilavert
İsteği tam olarak anlayamadım.

Eklediğiniz dosyadaki kod zaten,
N sütunundaki değerlere göre ayrı ayrı ve mevcut beldeki yapı korunarak PDF belge oluşturuyor durumda değil mi?

bychilavert · 7 Ara 2022

Ömer BARAN' Alıntı:
@bychilavert
İsteği tam olarak anlayamadım.

Eklediğiniz dosyadaki kod zaten,
N sütunundaki değerlere göre ayrı ayrı ve mevcut beldeki yapı korunarak PDF belge oluşturuyor durumda değil mi?

orjinal dosyadaki sayfa yapısı yazı fontu gibi özellikler ile birlikte yapıbilir mi? "Eğer bu ayarlar mümkün ise" excel dosyası oluşturuyor. sıkıntı yok
pdf dosyası olarakda oluşturuyor ama açılmıyor. Sayfa yapısı A4 olarak tanımlama yapılabilir mi?

Ömer BARAN · 7 Ara 2022

@bychilavert Belgeniz ekte.

bychilavert · 8 Ara 2022

@Ömer BARAN Hocam çok teşekkür ediyorum. Eline koluna sağlık

bychilavert · 8 Ara 2022

sorunsuz bir şekilde pdf dosyalarına bölüyor. ActiveSheet.PageSetup.PrintArea = "$A$1:$M$126" bu alan değişkenlik gösteriyor. "$A$1:$M$" olarak yaptığım zaman kod çalışmıyor. bu alanı dinamik yapabilirmiyiz. Bazen 126-250-500 gibi değişkenlik gösteriyor.

Ömer BARAN · 8 Ara 2022

Unutmuşum demekki.

ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & ActiveSheet.Cells(Rows.Count, 3).End(3).Row

bychilavert · 8 Ara 2022

Hocam affınıza sığınaraktan gerekli kodu ekledim ama herhangi bir işlem yapmadı. Örnek dosyam ektedir. Bakabilirmisiniz.

Ömer BARAN · 8 Ara 2022

Bilgisayarda değilim.
.... = ActiveSheet.UsedRange.Address
olarak deneyin.

bychilavert · 8 Ara 2022

Hocam yapamadım siz müsait olduğunuzda bakabilirseniz çok memnun olurum.

Ömer BARAN · 8 Ara 2022

Bu şekilde, bir sorun göremedim, kontrol edersiniz.

bychilavert · 8 Ara 2022

Son gönderdiğimde satır sayısı arttığı için işlem yapmıyor. ilk gönderdiğiniz çalışıyor sorun yok sadece satır sayısı arttıkça işlem yapmıyor.

Ömer BARAN · 8 Ara 2022

Sorun SON DOLU SATIR NUMARASInın tespitiyle ilgili ya da N sütunundaki verilerin mevcut liste boyunca doldurulmuş olmamasından kaynaklanabilir. Gerçek belgenizdeki durumu bilemiyorum tabi.

Şu haliyle ben hiçbir sorun görmüyorum.
Son dolu satır B sütununda, aşağıdan yukarı doğru bakıldığında, rastlanan ilk dolu satır olarak tespit ediliyor.
B sütunu dolduruluyorsa ve N sütununda da personelin BÖLÜM bilgisi yazılıyorsa listenin çoğalıp/azalmasının işleyişe bir engeli/etkisi olmaz.

	Birimlere Göre Yazdır Sıra No Sorunu sedat2161 13 Tem 2022 Makro Soruları
	Yaklaşan Tarihe Göre Yapılacak Görevi Hatırlatma gicimi 25 Ara 2024 Makro Soruları
	Tarihe Göre Tcmb Döviz Kuru Alma Ömer BARAN 6 May 2024 Makro Soruları
	Veri Girişine Göre Satır Gizleme ve Gösterme Hatirlabeni 10 May 2024 Makro Soruları
	Birden Fazla Koşula Göre Değer Getirme Selimileri0623 19 Eyl 2019 Makro Soruları