Çalışma Sayfasını Başka Kitaba Kopyalama

Çalışma Sayfasını Başka Kitaba Kopyalama

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ikayserili

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
47
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba

Bir Excel dosyasındaki sayfayı başka bir excel kitabına kopyalarken aşağıdaki resimde görülen hatayı almaktayım.
Kopyalamak istediğim sayfa
Hedef Excel dosyasını paylaşmasam olmaz mı ?
Cw7QK4.webp
 
Kritere Uyan Tarih Kayıtlarında Uyarı Verme
Makroyla birden fazla sayfa kopyalama
Çözüm
AhmetRasim
Merhabalar Sn. @ikayserili ;
Bütün Sayfaları Otomatik Seç başlıklı konuda paylaştığınız kod ile seçili sayfaları PDF olarak kaydetmek için aşağıdaki kodları kullanabilirsiniz.

-- Seçime dahil olmasını istemediğiniz sayfaları sayfa.Name <> "Ana Sayfa" gibi belirtebilirsiniz.
-- If sayfa.Name <> "Ana Sayfa" And sayfa.Visible = True satırının anlamı şu şekilde,
Eğer sayfa ismi Ana Sayfadan farklı ve sayfa görünür (gizli değilse) ise bir alt satıra geçer ve sayfa ismini dizi içerisine alır.
-- Kod sonucu oluşan dosya ekte mevcuttur.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(2 satır)
Tarihe göre sırala Oylamaya göre sırala
Merhaba
bir arkadaşım ingilizcesi iyi olduğu için sağolsun bana yardım etti ve aşağıdaki kodları buldu. Bu kodlar istenilen sayfaları Seçtikten sonra (fare ile) PDF'e çeviriyor.
Bende buna istinaden işi biraz daha otomatikleştirmek adına
bu konuyla ilgilendim. şimdi bu 2 kodu birleştirdim çok güzel çalışıyor.
yalnız, sayfalardan bir tanesini gizlediğimiz zaman Sayfa seçme döngüsü hata veriyor.
Burada sizden ricam mümkünse,
sayfasındaki kod'la aşağıdaki kod arasındaki nasıl bir düzenleme yapabiliriz. Çünkü;

Bu mesaj'da yazdığım sorunu aşağıdaki kodlarda yapmıyor.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(58 satır)
 
Oyla 0 Olumsuz oyla
Merhabalar Sn. @ikayserili ;
Bütün Sayfaları Otomatik Seç başlıklı konuda paylaştığınız kod ile seçili sayfaları PDF olarak kaydetmek için aşağıdaki kodları kullanabilirsiniz.

-- Seçime dahil olmasını istemediğiniz sayfaları sayfa.Name <> "Ana Sayfa" gibi belirtebilirsiniz.
-- If sayfa.Name <> "Ana Sayfa" And sayfa.Visible = True satırının anlamı şu şekilde,
Eğer sayfa ismi Ana Sayfadan farklı ve sayfa görünür (gizli değilse) ise bir alt satıra geçer ve sayfa ismini dizi içerisine alır.
-- Kod sonucu oluşan dosya ekte mevcuttur.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(14 satır)
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Çözüm
Merhabalar Sn. @yagizasker
Sayfaları ismi ile PDF olarak kaydetmek için aşağıdaki kodları kullanabilirsiniz.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(7 satır)
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt