çalışma sayfasının bir kopyasını yeni bir excel dosyasına nasıl taşırız?

[olymposss]

sn hocalarım , arkadaşlar herkese iyi çalışmalar

makroları kullandığım bir çalışma kitabım var.bu kitapta sayfa3 e bazı verileri yükleterek rapor alıyorum ve yazdırıyorum.ancak sayfa3 ü başka bir excel kitabına (sayfa3 ün kopyasını aynı klasörde rapor adlı excel kitabına alacağım) kopyalamak istiyorum.

şimdiden yardımlarınız için çok teşekkür ederim

saygılar:yardim:

 

[Levent Menteşoğlu]

Rapor dosyası açık olmak kaydı ile aşağıdaki kodu deneyin.

Sheets("Sayfa3").Copy Before:=Workbooks("Rapor").Sheets(1)

 

[olymposss]

sn leventm

ilginize çok teşekkür ederim. tam istediğim gibi.emeğinize sağlık.
affınıza sığınarak birşey daha sormak istiyorum. sayfa3 ü rapor adlı çalışma kitabına farklı bir isimle kaydedebilirmiyiz. mesela ocak ayı raporunu ocak yazarak kaydetsin.

çok teşekkürler

saygılar:yardim:

 

[sheetsMaster]

Sayın leventm nin vermiş olduğu kopyalama kodunun altına şunu ekle

Workbooks("Rapor").Sheets(1).Name = Format(Date, "mmmm")

 

[olymposss]

sn hocalarım

herkese çok teşekkür ederim. emeğinize sağlık. saygılar.:hey: