Soru Excel sekmesini başka excel dosyasına kopyalama ve otomatik toplamlarını alma

[Sebahattinnn]

Sorgu proğramı dosyamda toplamları alan bir excel sekmem var. Aynı hücrelere sahip aylık analiz adlı dosyam var. Ben sorgu proğramı dosyamdaki tarih içeren sekmeyi değer olarak Aylık analiz sekmeme kopyalamasını ve aynı hücrelerdeki verileri toplayarak aylık analiz dökümü sekmesine toplamlarını almasını istiyorum. Sorgu programında günlükleri tutup, aylık analize gün gün taşıyıp, toplam aldırarak ay sonunda çizelgemin ototmatik hazır hale gelmesini istiyorum. Emekleriniz için şimdiden teşekkürler. Sorgu programı dosyamın boyutuna büyük dediği için sekmelerle birlite yükleyemedim. formül hatası alıyor şu anda ama sekmeler olunca sorgu programı dosyam normal çalışıyor.

 

[Sebahattinnn]

bir makro buldum, ancak bu yeni excel olarak kaydediyor, ben aylık analiz adlı excel dosyama sekme olarak kaydetsin istiyorum. ve kaydettiğim sekmelerin aynı hücrelerinin verilerini toplayıp aylık analiz dökümünde göstersin istiyorum. teşekkürler.


Sub SayfalarıKaydet()
Dim KaydetKitap As Workbook
Dim Sayfa As Worksheet
Dim KaydetYolu As String
Dim KaydetAdi As String

' Kaydetme konumu ve dosya adını belirleyin
KaydetYolu = "C:\Users\KULLANICIADI\Desktop\" ' Masaüstü konumunu değiştirebilirsiniz
KaydetAdi = "YeniKitap.xlsx" ' Yeni dosya adını belirleyin

' Yeni kitap oluşturun ve kaydetme konumuna yerleştirin
Set KaydetKitap = Workbooks.Add
KaydetKitap.SaveAs KaydetYolu & KaydetAdi

' Her bir sayfayı kopyalayın ve yeni kitaba yapıştırın
For Each Sayfa In ThisWorkbook.Sheets(Array("Sayfa1", "Sayfa2")) ' Sayfa isimlerini değiştirebilirsiniz
Sayfa.Copy After:=KaydetKitap.Sheets(KaydetKitap.Sheets.Count)
Next Sayfa

MsgBox "Sayfalar başarıyla kaydedildi."
End Sub

 

[alicimri]

#2 mesajınızdaki yeni kitap değilde beli bir dosyaya sayfa kopyalama kodu, kendinize uyarlayın.

Sub Makro1()
Workbooks.Open Filename:="C:\Users\user\Desktop\dene.xlsm" 'dosya adı yolu
   Workbooks(1).Sheets("aa").Copy before:=Workbooks(2).Sheets(1) 'kopyalanacak sayfa adı aa yı kendinize uyarlayın.
Workbooks(2).Save
Workbooks(2).Close
End Sub

 

[Sebahattinnn]

Ali bey sorumu mazur görün. Kodu kopyalanmasını istediğim dosyamda yeni bir modüle yapıştırdım. doya adı yolumda C:\Users\ASUS\Desktop\ümit\AYLIK ANALİZ dosyası. buraya yeni bir sekme olarak atar diye düşündüm ancak kod çalışmadı. Hatam nerdedir acaba? Kodu bu çalışma kitabınada yapıştırdım olmadı. Sadece aylık analiz dosyasını açıyor. kopyalama yapmıyor. uayarladığım kod aşağıdadır.


Sub Makro1()
Workbooks.Open Filename:="C:\Users\ASUS\Desktop\ümit\AYLIK ANALİZ.xlsm" 'dosya adı yolu
Workbooks(1).Sheets("GÜNLÜK TAKİP").Copy After:=Workbooks(2).Sheets(3) 'kopyalanacak sayfa adı aa yı kendinize uyarlayın.
Workbooks(2).Save
Workbooks(2).Close
End Sub

 

[alicimri]

Örnek dosya ekledim. Deneyin

alver.zip dosyasını indir - download

alver.zip dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[Sebahattinnn]

Örnek dosya ekledim. Deneyin

alver.zip dosyasını indir - download

alver.zip dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

Gecenin bir yarısı emekleriniz için çok teşekkür ederim Ali bey. Çok sağolun. kodu kendime uyarladım. Ancak birşey daha sorsam, veren olarak adlandırdığınız klasördeki verilerim formüllü. Alan klasörünede Taşıma işlemi formüllü olarak yapılınca ben kopya üzerinde değişiklik yapınca taşıdığım verilerde değişiyor. Amacım aynı çizelgemi başka dosyaya gün gün taşıyıp, orada aylık analizi, toplamı çıkarmak. Formülsüz taşımak mümkünmüdür acaba?

 

[alicimri]

Deneyin
CODE]
Sub Makro1()
Workbooks.Open Filename:=ThisWorkbook.Path & "\alan.xlsx" 'dosya adı yolu
Workbooks(2).Sheets.Add
Workbooks(2).ActiveSheet.Name = "kopya"
Workbooks(1).Sheets("kopya").Cells.Copy
Workbooks(2).Sheets("kopya").Cells.PasteSpecial Paste:=xlPasteValues
Workbooks(2).Sheets("kopya").Cells.PasteSpecial Paste:=xlPasteFormats
Workbooks(2).Sheets("kopya").Cells.PasteSpecial Paste:=xlPasteColumnWidths
Workbooks(2).Save
Workbooks(2).Close
End Sub
[/CODE]

 

[Sebahattinnn]

Değerli Ali abim emeğin için çok ama çok teşekkür ederim. Bir sorun ortaya çıktı şimdi, çizelgeyi günlük tutup aylık analizi alacağımı belirtmiştim ya üstadım 1 kez aktarıyor ancak 2. kaydetmeyi yapmıyor. Zaten taşıdın bunu diyor. ilk formül (1), (2),(3) diye sıralayarak kopyalıyordu üstadım.

 

[alicimri]

Eski sayfa silinsin, aynı isimle yeniden mi kopyalasın. Sayfa isimlerini nereden alıyor.
Daha doğrusu düzenlediğin kodu cevabına eklersen

 

[Sebahattinnn]

hayır üstadım. veren olarak adlandırdıgınız listede ben 01 kasımı oluşturup alan adlı listeye kaydedicem. 02 kasımda yine verende liste oluşturup alan adlı listeye kaydedicem. böyle böyle 30 günü kaydedip, genel tplamını alıcam Üstadım.

 

[Sebahattinnn]

ilk formül veren adlı listede her aktara bastığımda kopya1, kopya2, kopya3 diye sırasıyla kendisi kaydediyordu. Formüllü alan ilk kod bu anlamda işimi görüyor yani üstadım. İkinci yazdığınız koda ekleme yapim dedim olmadı.

bu bölümü eklemiştim ikinci koda

before:=Workbooks(2).Sheets(1)

 

[Sebahattinnn]

Eski sayfa silinsin, aynı isimle yeniden mi kopyalasın. Sayfa isimlerini nereden alıyor.
Daha doğrusu düzenlediğin kodu cevabına eklersen

kod sorunsuz çalışıyor üstadım. ben bu kodu kasım 30 çektiği için kasımın her günü oluşturup kaydedicem. En sağındada aylık toplamlarımı aldırcam. Ancak ikincikez çalışmıyor. Aynı adda bir sekme kopyaladın zaten diyor

Sub Makro1()
Workbooks.Open Filename:=ThisWorkbook.Path & "\AYLIK ANALİZ.xlsm" 'dosya adı yolu
Workbooks(2).Sheets.Add
Workbooks(2).ActiveSheet.Name = "GÜNLÜK TAKİP"
Workbooks(1).Sheets("GÜNLÜK TAKİP").Cells.Copy before:=Workbooks(2).Sheets(1)
Workbooks(2).Sheets("GÜNLÜK TAKİP").Cells.PasteSpecial Paste:=xlPasteValues
Workbooks(2).Sheets("GÜNLÜK TAKİP").Cells.PasteSpecial Paste:=xlPasteFormats
Workbooks(2).Sheets("GÜNLÜK TAKİP").Cells.PasteSpecial Paste:=xlPasteColumnWidths
Workbooks(2).Save
Workbooks(2).Close
End Sub

 

[Sebahattinnn]

ilk yazdığınız koddaki Workbooks(1).Sheets("GÜNLÜK TAKİP").Copy After:=Workbooks(2).Sheets(3) buna benzer bir bölüm son koda mı eklenecek acaba üstadım. Kusura bakmayın derdimi anlatmak adına işinize karışıyorum.

ilk yazdığınız koda kaç defa basarsam aylık analiz dosyama GÜNLÜK TAKİP, GÜNLÜK TAKİP(1), GÜNLÜK TAKİP(2),GÜNLÜK TAKİP(3) düiye atıyordu üstadım.

 

[alicimri]

Peki Aralık ayında ne yapacaksınız. GÜNLÜK TAKİP(32), GÜNLÜK TAKİP(33)..........diye gider.

 

[Sebahattinnn]

hayır üstadım o zaman, kasım ayı bitince bu çizelgemi farklı yere kopyalıcam kasım ayı arşiv olarak kalacak. Bu sefer aralık ayında baştan başlayıp, temiz çizelgemi klasöre atıp, genel toplam sekmem oluyor başlangıçta sadece, baştan hergün GÜNLÜK TAKİP, GÜNLÜK TAKİP(1), GÜNLÜK TAKİP(2),GÜNLÜK TAKİP(3) diye kaydedicem.

 

[alicimri]

Bu işlemi günü gününe mi yapıyorsun.
Veren dosyasında tek bir sayfa yada sabit sayfa var ona günlük veri işleyip, alan dosyasına aktarıp, ertesi gün, dünkü verileri silip tekrar veri mi giriyorsunuz.

 

[Sebahattinnn]

aynen dediğiniz gibi üstadım. Günlük yapıyorum. Başka yere kaydedip silip tekrar o günün verilerini giriyorum. Kusura bakmayın tam anlatamadım kendimi.

 

[alicimri]

veren dosyasında verileri soldaki ilk sekmeye (ilk sayfaya) yazıyor ve her günün akşamı işlemler bittikten sonra aktarma yapıyorsanız. Yeni sayfanın adını Kasım04 Kasım05.....şeklinde oluşturan kod aşağıda.

Sub Makro1()
ad = Format(Range("G1"), "mmmmdd")
Workbooks.Open Filename:=ThisWorkbook.Path & "\alan.xlsx" 'dosya adı yolu
Workbooks(2).Sheets.Add
Workbooks(2).ActiveSheet.Name = ad
Workbooks(1).Sheets(1).Cells.Copy
Workbooks(2).Sheets(ad).Cells.PasteSpecial Paste:=xlPasteValues
Workbooks(2).Sheets(ad).Cells.PasteSpecial Paste:=xlPasteFormats
Workbooks(2).Sheets(ad).Cells.PasteSpecial Paste:=xlPasteColumnWidths
Workbooks(2).Save
Workbooks(2).Close
End Sub

 

[Sebahattinnn]

Allah razı olsun üstadım. Çok sağolun. Uğraştırdım sizi. Ancak bu uyarının sebebi günlük 1 defamı kayıt yapabilirim acaba ? Haftasonları mesaide olmadığımdan pazartesi 3 günlük yapıyorum ( cumartesi, pazar, pazartesi) Yukarıda hergün dedim kusura bakmayın, kodun bu şekilde çalışacağını düşünmemiştim. Hakkınızı helal edin, bu şekilde kalırsa da ben uğraşırım bi şekilde., emekleriniz için Allah razı olsun tekrardan. Çok sağolun

 

[alicimri]

Veren dosyasında verilerde tarih sütrunu varmı?