Çözüldü Aynı adrese xlsm ve pdf kaydet

Akif59

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe
Merhaba
örnek dosyayı aynı klasöre hem xlsm hemde pdf olarak kaydetmek istiyorum
bu işlemi yapan bir kodum var bu kodda PDF olarak kaydederken küçük bir düzenlemeye ihtiycım var
PDF i D sütunu son dolu satır ve 17 satır son dolu sutun aralığını PDF olarak kayıt yaptırmak için desteginizi rica ediyorum.
 

Ekli dosyalar

  • örnek.xlsm
    71.5 KB · Görüntüleme: 2

Akif59

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe
Sayın Selman Elinize sağlık teşkekür ederim çözüldü

Ayrı bir konu Açmama gerek varmı bilmiyorum
Tablo1 Den Tablo2 butonla geçişte K17 AN 118 hüçre Aralığındaki veriler Tablo2 aktarılıyor bu işlem sırasında her iki tablodaki
D Sütunu son dolu satırdan sonraki boşlar gizlense sütun olaraktda 17 satır son dolu sütündan sonrakiler gizlense bu işemi yapan kodda revize riça etsem sizden.
 

Selman 

Forum Yönetimi
Yönetici
Site Yöneticisi
Doğrulanmış
Versiyon
  1. Excel 2010
Sürüm
  1. 32 bit
Dil
  1. İngilizce
Soruyu doğru anladıysam sayfa koruması koymadan önce aşağıdaki kodu çalıştırınız:

Kod:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol seçeneklerinden birini kullanın.
 

Akif59

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe
Soruyu doğru anladıysam sayfa koruması koymadan önce aşağıdaki kodu çalıştırınız:

Kod:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol seçeneklerinden birini kullanın.

Sayın Selman
Tablo2 ye geçiş yapamıyorum işlem sadece tablo1 de ğerçekleşiyor
boş satır ve sütunlar tablo2 ye geciş butonu tıklandığında gizlenecek tablo2ye geçilecek

kod sadece boş sütunları gizliyor D sütununu baz alarak boş satırlarıda gizlemesi gerekiyor
 

Selman 

Forum Yönetimi
Yönetici
Site Yöneticisi
Doğrulanmış
Versiyon
  1. Excel 2010
Sürüm
  1. 32 bit
Dil
  1. İngilizce
İki tablo AO sütünü (41. sütün) ile ayrıldığından aşağıdaki şekilde deneyelim:
bilerek mi yaptınız emin değilim fakat makro bitiminde enableevents=false kalıyor.. dikkat

Kod:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol seçeneklerinden birini kullanın.
 

Akif59

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe
İki tablo AO sütünü (41. sütün) ile ayrıldığından aşağıdaki şekilde deneyelim:
bilerek mi yaptınız emin değilim fakat makro bitiminde enableevents=false kalıyor.. dikkat

Kod:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol seçeneklerinden birini kullanın.
Sayın Selman Tablo1 için çözüldü elinize sağlık
Anı işlemi Tablo2 nin kodundada rica ediyorum sizden
 

Selman 

Forum Yönetimi
Yönetici
Site Yöneticisi
Doğrulanmış
Versiyon
  1. Excel 2010
Sürüm
  1. 32 bit
Dil
  1. İngilizce
Tablo2 için ilk verdiğim kod çalışıyordu diye anlamıştım. Tablo2 de onu Tablo1 de yukardaki kullanılmalıdır.
 

Akif59

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe
Tablo2 için ilk verdiğim kod çalışıyordu diye anlamıştım. Tablo2 de onu Tablo1 de yukardaki kullanılmalıdır.
Sayın Selman dosyanın son hali ektedir.
iki taplo içinde boş satır ve boş sütun gizleme tamamdır.fakat tablonun toplanının dışında kalan sutun ve satırları gizlemese olurmu bu alanlara yeni tablolar elenecektir.

Boş Satır Ve Sütunları gizleme olayını Satırlar için D18 D118 arasında
Sütunlar içinde
Tablo1 de K17 AN17 aralığındaki boşları gizletebilirmiyiz
Tablo2 de AP17 BS17 aralığındaki boşları gizletebilirmiyiz
 

Ekli dosyalar

  • örnek.xlsm
    75.3 KB · Görüntüleme: 2

Akif59

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe
Sayın Selman Konuyu çözüldü olark işaetlemiştim üzgünüm
fakat her iki tabloyuda PDF yaptığımda sayfanın ortasında ve üsbölümler olmadan pdf yapıyor.
 

Ekli dosyalar

  • 7777.pdf
    508.9 KB · Görüntüleme: 2
  • 55555.pdf
    508.9 KB · Görüntüleme: 1

Selman 

Forum Yönetimi
Yönetici
Site Yöneticisi
Doğrulanmış
Versiyon
  1. Excel 2010
Sürüm
  1. 32 bit
Dil
  1. İngilizce
Dosyanın son halini paylaşırsanız bakayım.. PDF yapma makronuzda hata mesajlarını kapatmışsınız. Bir hata oluşuyorsa da bunu görmüyor olabilirsiniz. Bendeki son dosya üzerinden denediğimde 4. satırdaki başlık bilgileri geliyor..
 

Akif59

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe
Sayın Selman
E 8 Hüçre değerini hem pdf de hemde yedek dosya ismi olarak kullanacak
 

Ekli dosyalar

  • örnek.xlsm
    69.5 KB · Görüntüleme: 1

Selman 

Forum Yönetimi
Yönetici
Site Yöneticisi
Doğrulanmış
Versiyon
  1. Excel 2010
Sürüm
  1. 32 bit
Dil
  1. İngilizce
Sn. Akif
Gönderdiğiniz dosyadaki PDF kodu şu E8 hücresinden başlayarak aktarım yapıyor. Oysaki sizin B4' den başlatmanız lazım. İlk paylaştığınız dosyada bu değer B2 idi. Aşağıdaki E8' i B4 yada B2 ile değişitirip denermisiniz?

ActiveSheet.Range("E8:" & Cells(r, c).Address).ExportAsFixedFormat xlTypePDF, yol & isim & ".pdf"
 

Akif59

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe
Sayın SELMAN
Küçük bir sorunum var Tabloların kullanım alanı dışında kalan tüm satır ve sütunları gizliyorum
ama Tablolar arası geçişte kendim bir kereye mahsus bir daha kullanmamak üzere gizlediğim satırlar açılıyor.
 

Ekli dosyalar

  • ÖLCÜ.xlsm
    77.4 KB · Görüntüleme: 3

Selman 

Forum Yönetimi
Yönetici
Site Yöneticisi
Doğrulanmış
Versiyon
  1. Excel 2010
Sürüm
  1. 32 bit
Dil
  1. İngilizce
Problemi tam anlamadım.. 18-118. satır arasında boşlar gizlensin istediğiniz için bu şekilde bu şekilde. Daha aşağılarda satırlar da mı gizlenecek?

Boş Satır Ve Sütunları gizleme olayını Satırlar için D18 D118 arasında
Sütunlar içinde
Tablo1 de K17 AN17 aralığındaki boşları gizletebilirmiyiz
Tablo2 de AP17 BS17 aralığındaki boşları gizletebilirmiyiz
 

Akif59

VIP
VIP
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe
Problemi tam anlamadım.. 18-118. satır arasında boşlar gizlensin istediğiniz için bu şekilde bu şekilde. Daha aşağılarda satırlar da mı gizlenecek?
satır ve sütunlar için bu verdiğim aralıklar okey zaten çözdünüz teşekkür ederin yine bu aralıklarda ihtiycım kadar satır ve sütunu butonlar ile açıp gizleye biliyorum

Sorun 118 satırdan sonrakileri toplu secip gizliyorum bir daha ben açmadığım sürece görünmemesi gerekir. AFTER ve BEFORE butonlarına bagldımız kodlar 118 satırdan sonraki gizlediğim satırları tekrar açması sorun
 

Selman 

Forum Yönetimi
Yönetici
Site Yöneticisi
Doğrulanmış
Versiyon
  1. Excel 2010
Sürüm
  1. 32 bit
Dil
  1. İngilizce
Bu kod önce tüm satırları açıyor:
.Rows("17:" & .Rows.Count).EntireRow.Hidden = False

bunun yerine
.Rows("17:118").EntireRow.Hidden = False gibi deneyiniz. Hem aftter hem befor makrolarında...
 

Selman 

Forum Yönetimi
Yönetici
Site Yöneticisi
Doğrulanmış
Versiyon
  1. Excel 2010
Sürüm
  1. 32 bit
Dil
  1. İngilizce
Size bir ipucu vereyim.. Bu gibi istenmeyen durumlarda kodunuzu F8 ile adım adım çalıştırın. Hangi satırda problem oluşuyorsa o satırla ilgili bir şey yapmak gerekiyor demektir.
 
Üst Alt