İzinleri Birimlere Göre Ayırma

[bychilavert]

Excel Versiyonu

Excel 365

Excel Sürümü

64 Bit

Excel Dili

Türkçe

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?

 

Macro ile Hücreye Veri Girince Sağa Geçme

Hücrelere Büyük Harf Girme Zorunluluğu Koyma

[Ömer BARAN]

@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]

@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]

@bychilavert Belgeniz ekte.

 

[bychilavert]

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

 

[bychilavert]

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]

Unutmuşum demekki.

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

 

[bychilavert]

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

 

[Ömer BARAN]

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

 

[bychilavert]

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

 

[Ömer BARAN]

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

 

[bychilavert]

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]

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.