Çözüldü Çalışma Kitapları Arasında Veri Transferi Yapma

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

ERMAN.SAYINALP

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhabalar,

Tüm Sayfaları aynı Formatta olan iki ayrı Çalışma Kitabı arasında, Veri Transferi yapmak istemekteyim.

Gerekçe:
Makroları, Fonksiyonları bir şekilde hasar görmüş, bozulmuş, ancak verileri olduğu gibi duran bir Çalışma Kitabından, aynı Formatta hazırlanmış Makroları, Fonksiyonları düzgün çalışan içi veri içermeyen bir başka Çalışma Kitabına tüm veriler aktarılmak istenmektedir.

Çalışma Kitabının biri (bozuk olan) Kaynak-Veri Tabanı olarak kullanılacak, diğer (düzgün çalışan) Çalışma Kitabı Hedef-Veri Tabanının aktarılacağı olacak.

Oldukça fazla sayıda Sayfa, Sütun, Satır veri içermektedir. Bozuk Kitaptan KOPYALA, Sağlam Kitaba YAPIŞTIR yerine bu eylem Excele yaptırılabilir mi ?
 
Çözüm
Aşağıdaki güncel kodu kullanınız. Neler mi değişti?
  • Kopyalanacak dosya ismini otomatik almaktadır.
  • Hedef dosya için Gözat ekranı ile dosya seçimi yaptırılmaktadır. Bu sayede dosya ismi otomatik almaktadır.
  • İşlem sırasında excel programının görünümü gizlenmiştir. Ekran güncelleme kapatılmış, uygulama hesaplaması manuele çevrilmiştir. Bittiğinde tersine işlem yapılmaktadır..
  • Usedrange ile biçimi değişmiş ( varsayılan hücre değerlerinden başka bir değer, renk, hücre genişliği, hücre yüksekliği, vb...) tüm hücreleri almaktaydı. Küçük bir düzeltme ile boş hücreler atlanır oldu.

@Ömer BARAN hocama desteklerinden dolayı teşekkür ederim.

Herhalde bundan sonra kod kısmına güncelleme gelmez :) Aslında dosya açtırmadan...
Emre bey,

Emeğinize, ellerinize sağlık, muhteşem... Beklediğimin ötesinde oldu, elbette sevgili Ömer bey ile birlikte kollektif bir çalışma sergilediniz. Bu nedenle müteşekkirim.

Son bir şey istesem çok mu abartmış olurum ama hoş göreceğinizi umuyorum.

Malumunuz, zahmet vererek hazırladığınız KOD'lama KAYNAK Dosya üzerinde çalıştırılmakta ve Gözat komutu ile HEDEF Dosya gösterilmektedir. Bunun tam tersi olmak üzere;

KOD'lama HEDEF Dosya üzerine tesis edilerek, KAYNAK Dosyanın Gözat komutu ile gösterimi yöntemiyle çalıştırılabilir mi ?
 
Tabi yapılabilr. Kodu hedef dosyasının içerisine yapıştırınız.
kopyalanacakdosya = ThisWorkbook.Name hedefdosya = isim Kodun yukarıdaki kısımlarını aşağıdaki gibi değiştiriniz.
kopyalanacakdosya = isim hedefdosya =ThisWorkbook.Name
Not: Bulunduğu ilgili satıları da değiştiriniz.
 
Ya da daha kolayı etiketleri değiştiriniz.
kopyalanacakdosya => hedefdosya
hedefdosya => kopyalanacakdosya

Şeklinde isimleri değiştiriniz

Not: Kodu hedef dosyasının içerisine yapıştırınız.
 


1569880318185.webp


Değiştirme yaptığımda HATA aldım, bakabilir misiniz ?
 
Moderatörün son düzenlenenleri:
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Konuyu başlatan
Normal Üye
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
33
Üst