• 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ü Aktif Sayfayı Açık Durumda Diğer Dosyaya Kopyalamak

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.
V

vernel

Yeni Üye
Katılım
12 Ağu 2021
Mesajlar
321
Çözümler
1
Aldığı beğeni
127
Excel V
Office 2013 TR
Konu Sahibi
Merhabalar, ekranda 2 excel dosyası açık. bu kodla aktif dosyadaki SATISLAR sayfasını yeni bir dosyaya kopyalıyor.
Yeni bir dosyaya değil de, açık olan diğer dosyaya kopyalanması için kodu nasıl değiştirmemiz lazım acaba!

Sub Makro1()
Sheets("SATISLAR").Select
Sheets("SATISLAR").Copy
End Sub
 
Tarihe göre sırala Oylara göre sırala
Yapmak istediğiniz tam anlaşılmıyor. Bir kitaptaki bir sekmeye başka bir kitaba mı yoksa çalışma sayfasındaki belli bir aralığımı kopyalamak istiyorsunuz. Örnek dosya üzerinde açıklar mısınız.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
MYAZICI' Alıntı:
Yapmak istediğiniz tam anlaşılmıyor. Bir kitaptaki bir sekmeye başka bir kitaba mı yoksa çalışma sayfasındaki belli bir aralığımı kopyalamak istiyorsunuz. Örnek dosya üzerinde açıklar mısınız.
Genişletmek için tıkla...
MYAZICI ilgine teşekkür ederim. SATISLAR isimli sayfayı komple ama Hücre alanı seçerek değil, sayfa olarak komple diğer Excel dosyasına kopyalamak/aktarmak
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
asi_kral' Alıntı:
Kopyalayanacak dosya adi B sayfa adi bb olsun
A1 ile b9 arasını kopyalasin
C1 e yapistirsin

HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
AsiKral teşekkür ederim. Kısmi aktarma olsaydı bu kod harika olurdu. 2 durum var
1. SATISLAR sayfası belli bir hücre aralığı değil, komplesi aktarılacak
2. Açık olan diğer dosyanın adı her seferinde değişik olabiliyor
 
Olumlu oy 0 Negatif oyla
vernel' Alıntı:
AsiKral teşekkür ederim. Kısmi aktarma olsaydı bu kod harika olurdu. 2 durum var
1. SATISLAR sayfası belli bir hücre aralığı değil, komplesi aktarılacak
2. Açık olan diğer dosyanın adı her seferinde değişik olabiliyor
Genişletmek için tıkla...
Yanlış anlamadı isem 2 açık Excel dosyanız var. A dosyasında ki sayfa1 i B dosyasına komple taşımak istiyorsunuz.
Bunun için neden formül yapıyorsunuz. A dosyasında iken Sayfa1 ikonu üzerinde sağ tıklayıp taşı/kopyala seçeneği ile kopyalasanız olmuyor mu?
 
Olumlu oy 0 Negatif oyla
Şimdiye kadar böyle birşey hiç denemedim.
ADO ile götür getir topla çıkar işimi görüyor.
Haliyle nasıl yapılır diye arama yaptım.
Sayın asi_kral'ın aşağıdaki kodlarına rastladım.

Set S1 = Sheets(ActiveCell.Text) satırı için
kopyalamak istediğiniz sayfa adını yazın.

Set KTP = Workbooks.Open("D:\rapor.xls") satırı yeterince açık sanırım.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
excelcan' Alıntı:
Şimdiye kadar böyle birşey hiç denemedim.
ADO ile götür getir topla çıkar işimi görüyor.
Haliyle nasıl yapılır diye arama yaptım.
Sayın asi_kral'ın aşağıdaki kodlarına rastladım.

Set S1 = Sheets(ActiveCell.Text) satırı için
kopyalamak istediğiniz sayfa adını yazın.

Set KTP = Workbooks.Open("D:\rapor.xls") satırı yeterince açık sanırım.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Teşekkür ederim excelcan.
Set KTP = Workbooks.Open("D:\rapor.xls")
satırı yerine zaten açık durumda olan dosyanın koda uygulanması mümkün mü!
 
Olumlu oy 0 Negatif oyla
Sayın Vernel ben kodları denedim. Çalıştı. Sıkıntı yok.
asi_kral bu kodaları daha derli toplu hale getirecektir diye düşünüyorum.
Mesela açık olan dosyayı bir değişkene atamak gibi. Böylelikle
ikide bir modülden adres değiştirmeye gerek kalmaz.
Sorunun bu kısmı benim boyumu aşıyor. Dediğim gibi hiç kullanmadım.
Kolay gelsin. :)
 
Olumlu oy 0 Negatif oyla
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
kodu işinize yarayabilir
eğer diğer kitabın ismi değişkense ve sadece 2 kitap açıksa, kitapların adı döngüyle alınıp o isim diğer kitap olarak atanabilir. Ama açık kitap sayısı 2den fazlaysa hangi kitap olduğu nasil anlaşılacak?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
halily' Alıntı:
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
kodu işinize yarayabilir
eğer diğer kitabın ismi değişkense ve sadece 2 kitap açıksa, kitapların adı döngüyle alınıp o isim diğer kitap olarak atanabilir. Ama açık kitap sayısı 2den fazlaysa hangi kitap olduğu nasil anlaşılacak?
Genişletmek için tıkla...
halily teşekkür. Açık dosya sayısı kesinlikle 2 adet oluyor.
"Sheets("Sheet1").Copy Before:=Workbooks("diger kitap").Sheets(1)"
Bu kodu bu haliyle kullanmak için açık olan diğer dosyanın adını bilmek gerekiyor sanırım. Ama diğer dosya adları sürekli değişiyor.
 
Olumlu oy 0 Negatif oyla
Açık olan dosyanın ismini aşağıdaki kodla belirleyebilirsiniz

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Olumlu oy 0 Negatif oyla
eğer sayfa en sona eklenecekse
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst