• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Başka bir klasör içerisindeki Excel çalışma kitabının sayfasındaki verileri diğer bir Excel çalışma kitabına aktarmak

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
E

ERDAL

Gold Üye
Katılım
3 Nis 2021
Mesajlar
293
Çözümler
1
Aldığı beğeni
51
Excel V
Office 2013 TR
Gold Bitiş
21 Mart 2027
Konu Sahibi
Merhaba Değerli ExcelCozum.Com kullanıcıları;

"D:\1- BELGELERİM\2021- 2022 İSTATİSTİKLERİ (GÜNCEL)\6- VERİ TABLOLARI\DENEME\RAPORLAR (DÜZENLENEN)\KURUM.xlsx" çalışma kitabının "Rapor" sayfasındaki verileri,

"D:\1- BELGELERİM\2021- 2022 İSTATİSTİKLERİ (GÜNCEL)\6- VERİ TABLOLARI\DENEME\LİSTE.xlsm" çalışma kitabındaki Sheets("ANA_LİSTE")' sayfasına aktarmak
(Eğer Sheets("ANA_LİSTE") baş ise)

Yardımlarınız için şimdiden teşekkür ederim.


Üzerinde çalıştığım kod;

HTML:
AppleScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.


Ekli dosyalar​

 
Çözüm
mozuer
ERDAL' Alıntı:
Yusuf Bey, teşekkür ederim.

Ben FileDialog kullanmadan sadece belirtilen sayfadaki verileri almak istiyorum.


Hocam teşekkür ederim elinize emeğinize sağlık.

Benim Excel dosyaları farklı klasörlerde, yapmak istediğim; iki farklı klasördeki Excel dosyalarından birinin Sayfa1 deki verilerinin tamamını diğer Excel dosyasının sayyfa1' ne kopyalamak/almak.

Ben kopyalamayı işlemini yaptım ama, her defasında aralık belirtmek zorundayım. Her defa aralık belirtmeden bu sayfadaki verilerin tamamını nasıl kopyalarım/aktarırım.

Aralık seçerek kopyalama yaptığım Kod;

Sub LİSTE_DÜZENLE()

With Application
.DisplayAlerts = False
.ScreenUpdating = Fal
.EnableEvents = False
.Calculation = xlCalculationManual
End With

Dim fso...
Genişletmek için tıkla...
Tarihe göre sırala Oylara göre sırala
Kendim için yapmış olduğum çalışmayı gönderiyorum incele. Gönderdiğim örnekleri iki ayrı klasör açıp içine kaydet ona göre incele.Kolay gelsin.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
D:\1- BELGELERİM\2021- 2022 İSTATİSTİKLERİ (GÜNCEL)\6- VERİ TABLOLARI\DENEME
klasörüne ekteki dosyaları atın...
Liste.xlsm dosyasındaki butonu kullanın...
Çalışmanıza uyarlarsınız...
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
Yusuf Bey, teşekkür ederim.

Ben FileDialog kullanmadan sadece belirtilen sayfadaki verileri almak istiyorum.
mozuer' Alıntı:
D:\1- BELGELERİM\2021- 2022 İSTATİSTİKLERİ (GÜNCEL)\6- VERİ TABLOLARI\DENEME
klasörüne ekteki dosyaları atın...
Liste.xlsm dosyasındaki butonu kullanın...
Çalışmanıza uyarlarsınız...
Genişletmek için tıkla...

Hocam teşekkür ederim elinize emeğinize sağlık.

Benim Excel dosyaları farklı klasörlerde, yapmak istediğim; iki farklı klasördeki Excel dosyalarından birinin Sayfa1 deki verilerinin tamamını diğer Excel dosyasının sayyfa1' ne kopyalamak/almak.

Ben kopyalamayı işlemini yaptım ama, her defasında aralık belirtmek zorundayım. Her defa aralık belirtmeden bu sayfadaki verilerin tamamını nasıl kopyalarım/aktarırım.

Aralık seçerek kopyalama yaptığım Kod;

HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
ERDAL' Alıntı:
Yusuf Bey, teşekkür ederim.

Ben FileDialog kullanmadan sadece belirtilen sayfadaki verileri almak istiyorum.


Hocam teşekkür ederim elinize emeğinize sağlık.

Benim Excel dosyaları farklı klasörlerde, yapmak istediğim; iki farklı klasördeki Excel dosyalarından birinin Sayfa1 deki verilerinin tamamını diğer Excel dosyasının sayyfa1' ne kopyalamak/almak.

Ben kopyalamayı işlemini yaptım ama, her defasında aralık belirtmek zorundayım. Her defa aralık belirtmeden bu sayfadaki verilerin tamamını nasıl kopyalarım/aktarırım.

Aralık seçerek kopyalama yaptığım Kod;

Sub LİSTE_DÜZENLE()

With Application
.DisplayAlerts = False
.ScreenUpdating = Fal
.EnableEvents = False
.Calculation = xlCalculationManual
End With

Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject

Dim yol As String
yol = "D:\1- BELGELERİM\2021- 2022 İSTATİSTİKLERİ (GÜNCEL)\6- VERİ TABLOLARI\DENEME\RAPORLAR (DÜZENLENEN)\KURUM.xlsx"
Set Wb1 = Workbooks.Open(Filename:=yol)
Set Syf = Wb1.Sheets(1)

'On Error Resume Next

For Each s In Wb1.Sheets(1)
If Sayfa1.Range(s, "A") = "" Then

Sayfa1.Range("A1:AA" & Rows.Count).Clear

'SonStr = SonSatir(Wb1.Sheets(1))
'son = Sayfa1.Cells(Rows.Count, 1).End(xlUp).Row

'Burada aralık belirterek kopyalama yapıyorum
Wb1.Sheets(1).Range("A1:AK35000").Copy Sayfa1.Range("A1:AK35000")
'Burada her defasında aralık girmeden sayfanın tümünü kopyalama yapabilir miyim

End If
'Next s

Wb1.Close saveChanges:=True

With Application
.DisplayAlerts = True
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With

MsgBox ("VERİLER GÜNCELLENDİ")

End Sub
Genişletmek için tıkla...
Sizin ilk mesajdaki tanımladığınız dosya yollarına göre çalışıyor olması lazım aslında...
"Sayfa1" dosyalarınızda farklı isimde ise değiştirin...
Kodu kopyalayıp yapıştıracağınız dosyada kullanın...
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Hocam teşekkür ederim elinize emeğinize sağlık.

'Burada aralık belirterek kopyalama yapıyorum

Wb1.Sheets(1).Range("A1:AK35000").Copy Sayfa1.Range("A1:AK35000")

Hocam, burada her defasında aralık girmeden sayfanın tümünü kopyalama yapabilir miyim

Bu kısmı düzenleyemedim.
 
Olumlu oy 0 Negatif oyla
ERDAL' Alıntı:
Hocam teşekkür ederim elinize emeğinize sağlık.

'Burada aralık belirterek kopyalama yapıyorum

Wb1.Sheets(1).Range("A1:AK35000").Copy Sayfa1.Range("A1:AK35000")

Hocam, burada her defasında aralık girmeden sayfanın tümünü kopyalama yapabilir miyim

Bu kısmı düzenleyemedim.
Genişletmek için tıkla...
Verdiğim kodu değiştirmeden deneyin lütfen...
Sadece dosya yolunu ve sayfa adını değiştirin, istediğinize cevap verecek diye umuyorum...
Ya da örneğinizi gönderin...
Wb1.Sheets(1).Range("A1:AK35000").Copy Sayfa1.Range("A1:AK35000")
Bu şekilde uzun verilerin kopyalanmasında copy yöntemi kodu yavaş çalıştırabilir...
.Resize(UBound(vntSrc), UBound(vntSrc, 2)).Cells.Value2 = vntSrc (en hızlısı)
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam denedim,
Teşekkür ederim elinize emeğinize sağlık.

.Resize(UBound(vntSrc), UBound(vntSrc, 2)).Cells.Value2 = vntSrc bunu

buna Wb1.Sheets(1).Range("A1:AK35000").Copy Sayfa1.Range("A1:AK35000") nasıl uyarlarım.

Birde,
src, myRng, vntSrc neyin kısaltmaları öğrenebilir miyim. İki dosyadaki sayfa adlarını mı set ettiniz.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Teşekkür ederim.
Öğrenmeye çalışan birisi olarak bilmeden açıklama istedim, kusura bakmayın.
 
Olumlu oy 0 Negatif oyla
ERDAL' Alıntı:
Hocam denedim,
Teşekkür ederim elinize emeğinize sağlık.

.Resize(UBound(vntSrc), UBound(vntSrc, 2)).Cells.Value2 = vntSrc bunu

buna Wb1.Sheets(1).Range("A1:AK35000").Copy Sayfa1.Range("A1:AK35000") nasıl uyarlarım.

Birde,
src, myRng, vntSrc neyin kısaltmaları öğrenebilir miyim. İki dosyadaki sayfa adlarını mı set ettiniz.
Genişletmek için tıkla...
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst