Çözüldü Aktif Sayfayı Açık Durumda Diğer Dosyaya Kopyalamak

[vernel]

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

 

[MYAZICI]

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.

 

[asi_kral]

Kopyalayanacak dosya adi B sayfa adi bb olsun
A1 ile b9 arasını kopyalasin
C1 e yapistirsin

HTML:

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

 

[vernel]

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.

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

 

[vernel]

Kopyalayanacak dosya adi B sayfa adi bb olsun
A1 ile b9 arasını kopyalasin
C1 e yapistirsin

HTML:

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

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

 

[tanrisever_37]

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

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?

 

[excelcan]

Ş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:

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

 

[vernel]

Ş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:

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

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ü!

 

[excelcan]

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.

 

[halily]

HTML:

İç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?

 

[vernel]

HTML:

İç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?

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.

 

[arschimet]

Açık olan dosyanın ismini aşağıdaki kodla belirleyebilirsiniz

HTML:

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

 

[halily]

arschimet hocama alternatif olarakHTML:

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

 

[halily]

eğer sayfa en sona eklenecekse
HTML:

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

 

[vernel]

Açık olan dosyanın ismini aşağıdaki kodla belirleyebilirsiniz

HTML:

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

Harika kod arschimet, aklınıza sağlık. destek için çok teşekkürler

 

[vernel]

eğer sayfa en sona eklenecekse
HTML:

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

halily çok teşekkür ederim. Harika bir kod olmuş. aklınıza sağlık,

 

[halily]

Rica ederim
İyi çalışmalar