[Yardım]  Çalışma Kitapları Arası Veri Kopyalama

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Çalışma Kitapları Arası Veri Kopyalama

İleti#1)  yuvenutu » 07 Kas 2019 15:51

Herkese merhaba.
Çalışma kitabındaki verileri başka bir çalışma kitabına sadece veriler kopyalanacak şekilde (biçimler olmayacak) kopyalayıp yapıştırmaya çalışıyorum fakat "Run-time error '1004': Application-defined or object-defined error" hatası alıyorum. Yardımlarınız için şimdiden teşekkür ederim.

Kod: Tümünü seç
Sub kopyala()
    rapor = Application.GetOpenFilename("Excel Files(*.xls;*.xlsx;*.xlm;*.xlsm),*.xls;*.xlsx;*.xlm;*.xlsm")
    Set raporKaynak = Workbooks.Open(rapor, False, False)
   
    ThisWorkbook.Worksheets(1).Range("A1", Range("C1").End(xlDown)).Select
    Selection.Copy
    raporKaynak.Worksheets(1).Range("D5").PasteSpecial xlPasteValues

    raporKaynak.Save
    raporKaynak.Close False
    Set raporKaynak = Nothing
   
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yuvenutu
 
Kayıt: 26 Tem 2019 18:25
Meslek: Öğrenci
Yaş: 33
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Isparta

Cevap: Çalışma Kitapları Arası Veri Kopyalama

İleti#2)  erseldemirel2 » 07 Kas 2019 15:55

Şunu dernermisin;


Kod: Tümünü seç
Sub kopyala()
    rapor = Application.GetOpenFilename("Excel Files(*.xls;*.xlsx;*.xlm;*.xlsm),*.xls;*.xlsx;*.xlm;*.xlsm")
    Set raporKaynak = Workbooks.Open(rapor, False, False)
   
    son = Worksheets(1).Range("C65536").End(3).Row
    ThisWorkbook.Sheets(1).Range("A1:C" & son).Select
    Selection.Copy
    raporKaynak.Worksheets(1).Range("D5").PasteSpecial xlPasteValues

    raporKaynak.Save
    raporKaynak.Close False
    Set raporKaynak = Nothing
   
End Sub



www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 487
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Çalışma Kitapları Arası Veri Kopyalama

İleti#3)  yuvenutu » 07 Kas 2019 17:31

Ersel bey merhaba. Yolladığınız kodu denedim şimdi de "Range sınıfının select yöntemi başarısız" hatası alıyorum. Sorunu farklı bir yöntem ile çözdüm. Cevabınız ve uğraşınız için teşekkür ederim.
Kullanıcı avatarı
yuvenutu
 
Kayıt: 26 Tem 2019 18:25
Meslek: Öğrenci
Yaş: 33
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Isparta

Cevap: Çalışma Kitapları Arası Veri Kopyalama

İleti#4)  erseldemirel2 » 07 Kas 2019 18:15

Şu satırı

Kod: Tümünü seç
ThisWorkbook.Sheets(1).Range("A1:C" & son).Select


Böyle yapın. Sayfayı select yapalım önce

Kod: Tümünü seç
ThisWorkbook.Sheets(1).Select
ThisWorkbook.Sheets(1).Range("A1:C" & son).Select
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 487
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Çalışma Kitapları Arası Veri Kopyalama

İleti#5)  yuvenutu » 07 Kas 2019 20:51

erseldemirel2 yazdı:Şu satırı

Kod: Tümünü seç
ThisWorkbook.Sheets(1).Range("A1:C" & son).Select


Böyle yapın. Sayfayı select yapalım önce

Kod: Tümünü seç
ThisWorkbook.Sheets(1).Select
ThisWorkbook.Sheets(1).Range("A1:C" & son).Select


Bu seferde Worksheet sınıfının Select yöntemi başarısız hatası veriyor. Üstteki posta belirttiğim gibi hatayı farklı bir yol ile çözdüm. Daha fazla vakit harcamanıza gerek yok. İlginiz için teşekkür ederim.
Kullanıcı avatarı
yuvenutu
 
Kayıt: 26 Tem 2019 18:25
Meslek: Öğrenci
Yaş: 33
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Isparta

Cevap: Çalışma Kitapları Arası Veri Kopyalama

İleti#6)  şahin » 08 Kas 2019 09:00

Ekte

yeni.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 824
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 1 misafir

Bumerang - Yazarkafe