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

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

Kısa Açıklama

Çalışma Sayfasını Başka Kitaba Kopyalama isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Tarihe göre sırala Oylamaya göre sırala
Merhabalar Sn. @ikayserili

Excel'de Versiyon faklarından kaynaklı bazı sınırlar mevcut.
Örneğin;
Office 2003 Excel'de 65.536 satır bulurken; sonraki versiyonlarda bu sayı artmıştır.

Siz, 2013 Excel'den eski bir versiyona taşıma işlemi yapmak istiyorsanız, Sayfa Taşıma işlemi sonucu bu hata çıkar.

Neler yapılabilir?
-- Taşımak istediğiniz sayfadaki alanları Kopyala-Yapıştır ile hedef dosyaya alabilirsiniz.
-- Ya da bu işlem için uygun makro kodu kullanabilirsiniz.
 
Oyla 0 Olumsuz oyla
Merhaba Ahmet Bey

Kopyalamak istediğim dosya'yı daha önce forum'da paylaşmıştım (ilk mesaj'da link ekledim)
bunu kopyala yapıştır yaptığım da sayfa düzeni aynı geçmiyor.
makro ile nasıl yapabilirim ?
Örnek var mı ?
 
Oyla 0 Olumsuz oyla
Merhaba, excel çalışma kitabında bir sayfayı, başka bir çalışma kitabına birebir kopyalamak için;
Taşımak veya kopyalamak istediğiniz sayfa isminin yazdığı yere, fare(mouse) sağ klik ==> taşı veya kopyala, ==> kitap seç, (taşıyacağın kitap ismini seç) kitabın sonuna ise sonuna işaret tık koy, değilse, hangi sayfa yanına taşınmasını istiyorsan onu seç ve tamam işaretine bas, en basit ve kolay yolu bu olduğu gibi dosya orijinal olarak diğer kitabın orjinal kopya sayfası olur. Alternatif çok ama benim bildiğim kod olmadan, bu yol hakkında acizane bilgi vermek istedim.

1615905822611.webp
 
Moderatörün son düzenlenenleri:
Oyla 0 Olumsuz oyla
Haklısınız, çalışma kitapları arasında uyum sorunu olduğunu düşünüyorum, yoksa, bu işlemde hata olmaması lazım, kod olayını sitede hocalarımız cevap verir, Ayrıca, sayfayı sol köşeden komple kopyalayıp, yapıştıracağınız sayfada da sol köşeden komple sayfayı seçerek özel yapıştır seçeneklerini denediniz ve olmuyorsa, çözüm üstadlarda, ;) kolay gelsin.
 
Oyla 0 Olumsuz oyla
Tekrardan kusura bakmayın. Manuel olarak sayfayı kopyaladım. Sağını solunu düzelttim. Makroyu ekledim. Hesaplamayı çok güzel yapıyor.
Şimdiki sorunum:
Buradaki kod'larla Tüm sayfaları Tek bir PDF yapıyorum. Ama PDF'i yapınca aşağıdaki resimde görüldüğü gibi hesaplamayı aktarmıyor:

gp68MZ.webp

özellikle ilgili sayfayı açıp, farklı kaydet deyip. Dosya Uzantısını PDF seçince Sorunsuz olarak PDF'e çeviriyor (ekte)

bu durumu nasıl düzeltebilirim ?
 
Ekli dosyalar
Oyla 0 Olumsuz oyla
@ikayserili .

İlk belgenize daha evvel bakmıştım.

Bence, bir adet belge aslı, bir adet sayfalar kopyalanmış hali (pdf'ye dönüştürülecek) olmak üzere 2 adet belge ekleyin.
Bütün olarak bir kontrolden geçirelim.
Muhtemelen orijinal belgede mevcut KTF (Kullanıcı tanımlı fonksiyon) kodlarıyla ilgili sorun vardır.

.
 
Oyla 0 Olumsuz oyla
Merhaba Ömer Hocam
Bu konunun ilk mesajında yazdığım gibi sayfaları aktaramadığım için. Volkan Bey'in dediği gibi
HVnSza.webp
Kopyalama işlemi yapmak zorunda kaldım.
İstediğiniz dosyalar ektedir. iyi günler. iyi çalışmalar.
 
Ekli dosyalar
Oyla 0 Olumsuz oyla
Sorun nedir anlayamadım.
Örnek Çalışma isimli belgenizi indirdim ve PDF Oluştur düğmesini kullanarak PDF oluşturdum.
Oluşan PDF belgeyi ekliyorum. Bir soruna rastlamadım.

Sorun başka belgede midir?
 
Ekli dosyalar
Oyla 0 Olumsuz oyla
Ömer Hocam
Kodlarınız, yukarıda eklediğim ÖRNEK ÇALIŞMA.XLSM dosyasında çalışıyor. Öncelikle teşekkür ederim.
Hocam Kızmazsanız, Asıl çalışmam olan Diğer Excel çalışmamda hata verdi. Onu genel'e hitaben paylaşmak istemiyorum. İllaki incelemeniz gerekiyorsa bana farklı bir yol gösterebilirmisiniz lütfen ?
Verdiği Hata Mesajı:
V7ybpK.webp
yada kodların verdiği bu hatayı düzeltebilecek yeni kod'lar hakkında yardımcı olabilirmisiniz ?
 
Oyla 0 Olumsuz oyla
Anladım Ömer Hocam
Hocam Excel'in bozulmaması amacıyla bütün sayfalara şifre koymam gerekti.
Uyarınıza istinaden kodlara şöyle bir ekleme yaptım:

Sub PDFoluştur()
Set bukitap = ThisWorkbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each shf In ThisWorkbook.Sheets
If shf.Name <> "Bilgi Girişi" Then
XD1 = XD1 + 1
If XD1 = 1 Then
shf.Copy: XD = 1
ActiveSheet.Unprotect Password:="ŞİFRE"
ActiveSheet.UsedRange.Value = bukitap.Sheets(shf.Name).UsedRange.Value
Else
shf.Copy After:=ActiveWorkbook.Sheets(1)
ActiveSheet.Unprotect Password:="ŞİFRE"
ActiveSheet.UsedRange.Value = bukitap.Sheets(shf.Name).UsedRange.Value
XD = ActiveWorkbook.Sheets.Count
Sheets(ActiveSheet.Name).Move After:=Sheets(XD)
End If
End If
Next
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & "Hesaplar" & ".pdf"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
ActiveWorkbook.Close False
MsgBox "İşlem Tamam. Tüm Sayfalar PDF'e Çevrildi.", vbInformation, "::.. ..::"
End Sub

Bu eklemeyi yapmadan önce 1ci sayfada hata verirken. Bu kodları (Yeşil'e boyadığım) ekledikten sonra 7ci sayfada hata vermeye başladım.
Hatta Bütün sayfaları kontrol ettim. Bütün sayfalarda şifre aynıdır.
Bir öneriniz var mı Hocam ?

Birde Hocam Dediğiniz Üzere Bütün Sayfalarda Şifreyi kaldırıp denedim:
Else
shf.Copy After:=ActiveWorkbook.Sheets(1)
ActiveSheet.Unprotect Password:="t5gH1b"
ActiveSheet.UsedRange.Value = bukitap.Sheets(shf.Name).UsedRange.Value

7ci sayfada kırmızıya boyadığım yerde hata veriyor.
 
Oyla 0 Olumsuz oyla
Şifreli haliyle (şifreyi cevapta belirtin) ve hangi sayfanın/sayfaların ve kaçar adek kopyalanacağını da belirterek
yeni bir örnek belge ekler misiniz?

Veri içeren hücre adresini tam olarak belirleyip, aşağıdaki gibi Range(....) parantezine (2 yerde) yazarak deneyin.
ActiveSheet.UsedRange.Value = bukitap.Sheets(shf.Name).UsedRange.Value
yerine,
Activesheet.Range("A1:K53").Value = bukitap.Sheets(shf.Name).Range("A1:K53").Value
gibi.
 
Oyla 0 Olumsuz oyla
Merhaba Ömer Hocam
Dosyayı İndirdikten Sonra bu mesajı lütfen silermisiniz lütfen.
Tüm Şifreler: ******
1ci (Bilgi Girişi) Hariç Bütün Sayfalar 1'er Adet Kopyalanacak.
11ci Mesaj daki Örnek Çalışmayı Daha Sonra Entegre Edecektim. PDF'de sorun olduğu için kaldım öyle.
Her sayfa'nın yazdırma alanı değişik olduğu için, "A1:K53" bu şekilde nasıl bir sınırlama yapacağım bilemiyorum.

Ayrı yeten, bakarsanız sizden ricam;
konusu da çözebilirmiyiz ?
KEŞİF, DRK-TRVS TOPL. ve MALZEME LİSTESİ sayfalarına uygulacaktım.
Buradan Admin'e saygı ve sevgilerimle :)
 
Oyla 0 Olumsuz oyla
Sayın @ikayserili .

Screenshot_1.webp
Açılan konu, aşağıda yer alan görseldeki HATA ile ilgiliydi.
Bu sorunun giderilmesine yönelik sorunsuz cevabı Sayın @AhmetRasim verdiğinde konunun kapanmış olması gerekirdi.

Forumda, bir belgedeki tüm sorunların giderilmesi için değil, işlem bazında konu açılmalıdır.
Sırf merakımdan sorunlu belgeyi eklemenizi istediğim için böyle bir durum oluştu galiba.
Kaldı ki; buna rağmen, konu dışında verdiğim cevabın uygulama sonucunu da PDF belge olarak iletmiştim.

Böyle olmayıp, üzerinde çalışılan belgedeki tüm sorunlar tek konu sayfasından ilerleyerek soru-cevap şeklinde devam ettiğinde;
bu durumun, konu sahibinin bir adet belgesindeki tüm sorunların çözülmesinden başka sonucu olmayacağı gibi
diğer forumdaşlara ve internet arama motorları üzerinden arama yapanlara da bir katkısı olmayacaktır.

Kaldı ki; mevcut veya hayal edilecek bir belge ile ilgili bütüncül (proje bazlı talep diyebiliriz, zaten belgeniz de kurumsal bir raporlama),
çok sayıda ve birbirini etkileyen işlemlerin bir arada olduğu, özel bilgiler/işlemler içeren istekler için, diğer klasik forum sitelerinden farklı olarak
projenin bütünü üzerindeki tüm isteklerin karşılanacağı ÜCRETLİ EXCEL DESTEĞİ bölümü mevcut .

İşlem bazında konu açıldığında; benzer sorunla karşılaşacak diğer üyelerimiz veya internet kullanıcılarının
forum içinde veya internet arama motorlarında arama yaptıklarında bu konu sayfasına kolaylıkla erişebilmesi sağlanmış olur,
adım adım, konu/işlem bazlı sorunların giderilmesi yolu da her zaman açık.

Ayrıca bu konu sayfasındaki son mesajınızda linkini verdiğiniz konu sayfasında yazdığım son mesaja cevap vermiş de değilsiniz.
O konu sayfasında çözülecek şey nedir anlayamadım. İlgili sayfadaki mesajıma cevap yazarsanız bakılır elbet.


Anlayışınız için teşekkürler.

.
 
Moderatörün son düzenlenenleri:
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