Excel Sayfasını Başka Bir Excel Çalışma Kitabı Altına Yeni Sayfa İle Kopyalama

[crion]

Selamlar, aşağıdaki kodda ana excel çalışma kitabımdaki bir sayfayı başka bir excel çalışma kitabı altına kopyalama yapmaya çalışıyorum. Ancak bu kod sadece diğer excel çalışma kitabında Sayfa1 mevcutsa doğru çalışıyor.

Benim istediğim ana kitaptan mevcut sayfayı kopyalamadan önce ikinci çalışma kitabı içinde bir sayfa yaratmak (adı sayfa1 olmalı ki kod çalışsın) ve ondan sonra bu kopyalamayı bu sayfaya gerçekleştirmek. Yardımcı olabilir misiniz?

Private Sub CommandButton105_Click()                    'rapor teslim backup
On Error Resume Next
Dim today As Date
today = Date                                                                    'bugünün tarihi
Workbooks.Open ("\\DELL\proex\data\Rapor Teslim Defteri.xls")                   'Rapor Teslim Defterini aç
Windows("Aderans.xlsm").Activate                                                'Ana çalışma kitabı
Sheets("teslim").Copy Before:=Workbooks("Rapor Teslim Defteri.xls").Sheets(1) 'Ana çalışmadaki sayfayı sayfa1 e kopyala
Windows("Rapor Teslim Defteri.xls").Activate                        'ikinci çalışma kitabını aktif
ActiveSheet.Name = today                                            'Aktif Sayfanın adı bugünün tarihi
Workbooks("Rapor Teslim Defteri.xls").Close False                   'kaydet ve kapat
End Sub

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Private Sub CommandButton105_Click()
On Error Resume Next
Dim today As Date
today = Date                                                                    'bugünün tarihi
'Workbooks.Open ("\\DELL\proex\data\Rapor Teslim Defteri.xlsx")                   'Rapor Teslim Defterini aç

Windows("Aderans.xlsm").Activate                                                'Ana çalışma kitabı
Sheets("teslim").Copy After:=Workbooks("Rapor Teslim Defteri.xlsx").Sheets(1) 'Ana çalışmadaki sayfayı sayfa1 e kopyala
Windows("Rapor Teslim Defteri.xlsx").Activate                        'ikinci çalışma kitabını aktif
ActiveSheet.Name = today                                            'Aktif Sayfanın adı bugünün tarihi
Workbooks("Rapor Teslim Defteri.xlsx").Save
Workbooks("Rapor Teslim Defteri.xlsx").Close False                   'kaydet ve kapat

End Sub

 

[crion]

Merhaba

Bunu deneyiniz.

Private Sub CommandButton105_Click()
On Error Resume Next
Dim today As Date
today = Date                                                                    'bugünün tarihi
'Workbooks.Open ("\\DELL\proex\data\Rapor Teslim Defteri.xlsx")                   'Rapor Teslim Defterini aç

Windows("Aderans.xlsm").Activate                                                'Ana çalışma kitabı
Sheets("teslim").Copy After:=Workbooks("Rapor Teslim Defteri.xlsx").Sheets(1) 'Ana çalışmadaki sayfayı sayfa1 e kopyala
Windows("Rapor Teslim Defteri.xlsx").Activate                        'ikinci çalışma kitabını aktif
ActiveSheet.Name = today                                            'Aktif Sayfanın adı bugünün tarihi
Workbooks("Rapor Teslim Defteri.xlsx").Save
Workbooks("Rapor Teslim Defteri.xlsx").Close False                   'kaydet ve kapat

End Sub

ne yazık ki çalışmadı.

 

[crion]

koda çeşitli şeyler ekledim ama artık hiçbirşey yapmıyor... Yardımcı olursanız memnun olurum. Yapması gereken şu aslında:

Rapor teslim kitabını aç, yeni bir sayfa oluştur (Sayfa1)
Ana kitaptaki Teslim sayfasını kopyala, Rapor teslim kitabındaki Sayfa1'e kopyala
Sayfa1'i bugünün tarihi ile yeniden adlandır
Rapor teslim kitabını kapat.