Başka Çalışma Kitabına Sayfa Kopyalama Sorunu

[crion]

Herkese selamlar... Benim küçük bir sorunum var. Aşağıdaki kodun normalde Aderans ana çalışma kitabındaki "teslim" isimli sayfayı başka bir excel çalışma kitabı olan Rapor Teslim Defteri altına kopyalaması gerekiyor. Ama ne yazık ki boş bir sayfa kopyalıyor . Satırları tek tek denedim ve teslim sayfasını seçmediğini farkettim (sanırım sorun orda) çünkü geri kalan herşey çalışıyor. 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.Select ("teslim")                                                        'sayfayı seçmiyor boş sayfa kopyalıyor?
Sheets("teslim").Copy Before:=Workbooks("Rapor Teslim Defteri.xls").Sheets(1) 'teslim sayfasını kopyala
Windows("Rapor Teslim Defteri.xls").Activate                        'ikinci çalışma kitabını aktif
ActiveSheet.Name = today                                            'Aktif Sayfanın adı bugünün tarihi
Worksheets.Add().Name = "Sayfa1"                                    'rapor teslim defterinde yeni sayfa aç (sayfa1)
Workbooks("Rapor Teslim Defteri.xls").Close True                   'kaydet ve kapat
MsgBox ("Yeni kayıt rapor teslim defterine kaydedildi.")
End Sub

 

[halit3]

Herkese selamlar... Benim küçük bir sorunum var. Aşağıdaki kodun normalde Aderans ana çalışma kitabındaki "teslim" isimli sayfayı başka bir excel çalışma kitabı olan Rapor Teslim Defteri altına kopyalaması gerekiyor. Ama ne yazık ki boş bir sayfa kopyalıyor . Satırları tek tek denedim ve teslim sayfasını seçmediğini farkettim (sanırım sorun orda) çünkü geri kalan herşey çalışıyor. 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.Select ("teslim")                                                        'sayfayı seçmiyor boş sayfa kopyalıyor?
Sheets("teslim").Copy Before:=Workbooks("Rapor Teslim Defteri.xls").Sheets(1) 'teslim sayfasını kopyala
Windows("Rapor Teslim Defteri.xls").Activate                        'ikinci çalışma kitabını aktif
ActiveSheet.Name = today                                            'Aktif Sayfanın adı bugünün tarihi
Worksheets.Add().Name = "Sayfa1"                                    'rapor teslim defterinde yeni sayfa aç (sayfa1)
Workbooks("Rapor Teslim Defteri.xls").Close True                   'kaydet ve kapat
MsgBox ("Yeni kayıt rapor teslim defterine kaydedildi.")
End Sub

Bunu denermisiniz.

Private Sub CommandButton105_Click()                    'rapor teslim backup
On Error Resume Next
dosya_adı = ActiveWorkbook.Name
Dim today As Date
today = Date                                                                    'bugünün tarihi
Workbooks.Open ("[URL="file://\\DELL\proex\data\Rapor"]\\DELL\proex\data\Rapor[/URL] Teslim Defteri.xls")                   'Rapor Teslim Defterini aç
yeni_dosya_adı = ActiveWorkbook.Name
Windows(dosya_adı).Activate                                              'Ana çalışma kitabı
'Sheets.Select ("teslim")                                                        'sayfayı seçmiyor boş sayfa kopyalıyor?
Sheets("teslim").Copy Before:=Workbooks(yeni_dosya_adı).Sheets(1) 'teslim sayfasını kopyala
Windows(yeni_dosya_adı).Activate                        'ikinci çalışma kitabını aktif
Sheets(ActiveSheet.Name).Name = today                                            'Aktif Sayfanın adı bugünün tarihi
'Worksheets.Add().Name = "Sayfa1"                                    'rapor teslim defterinde yeni sayfa aç (sayfa1)
Workbooks(yeni_dosya_adı).Close True                   'kaydet ve kapat
Windows(dosya_adı).Activate
MsgBox ("Yeni kayıt rapor teslim defterine kaydedildi.")
End Sub

 

[crion]

Bunu denermisiniz.

Private Sub CommandButton105_Click()                    'rapor teslim backup
On Error Resume Next
dosya_adı = ActiveWorkbook.Name
Dim today As Date
today = Date                                                                    'bugünün tarihi
Workbooks.Open ("[URL="file://\\DELL\proex\data\Rapor"]\\DELL\proex\data\Rapor[/URL] Teslim Defteri.xls")                   'Rapor Teslim Defterini aç
yeni_dosya_adı = ActiveWorkbook.Name
Windows(dosya_adı).Activate                                              'Ana çalışma kitabı
'Sheets.Select ("teslim")                                                        'sayfayı seçmiyor boş sayfa kopyalıyor?
Sheets("teslim").Copy Before:=Workbooks(yeni_dosya_adı).Sheets(1) 'teslim sayfasını kopyala
Windows(yeni_dosya_adı).Activate                        'ikinci çalışma kitabını aktif
Sheets(ActiveSheet.Name).Name = today                                            'Aktif Sayfanın adı bugünün tarihi
'Worksheets.Add().Name = "Sayfa1"                                    'rapor teslim defterinde yeni sayfa aç (sayfa1)
Workbooks(yeni_dosya_adı).Close True                   'kaydet ve kapat
Windows(dosya_adı).Activate
MsgBox ("Yeni kayıt rapor teslim defterine kaydedildi.")
End Sub

hemen denedim ancak ne yazık ki sonuç değişmedi

 

[halit3]

hemen denedim ancak ne yazık ki sonuç değişmedi

Ne hatası alıyorsunuz.?

Ben denedim gayet güzel çalışıyor.
hata aşağıdaki adreste olabilir

("[URL="file://\\DELL\proex\data\Rapor"]\\DELL\proex\data\Rapor[/URL] Teslim Defteri.xls")

Ben kendi bilgisayarımdaki dosyayı başka bilgisayardaki

("[URL="file://\\Oda\SharedDocs\Rapor"]\\Oda\SharedDocs\Rapor[/URL] Teslim Defteri.xls")

yukarıdaki adresdeki Rapor Teslim Defteri.xls dosyasının içine 18.11.2011 tarihli teslim sayfasını kopyaladı.

 

[halit3]

("\\DELL\proex\data\Rapor Teslim Defteri.xls")
bu adresin açılımı
DELL Bilgisayar adı
proex klasör adı
data klasör adı
Rapor Teslim Defteri.xls dosya adı

Yani
DELL bilgisayarın içindeki proex klasörünün içindeki data kalasörünün içindeki Rapor Teslim Defteri.xls
dosyası

 

[crion]

Ne hatası alıyorsunuz.?

Ben denedim gayet güzel çalışıyor.
hata aşağıdaki adreste olabilir

("[URL="file://\\DELL\proex\data\Rapor"]\\DELL\proex\data\Rapor[/URL] Teslim Defteri.xls")

Ben kendi bilgisayarımdaki dosyayı başka bilgisayardaki

("[URL="file://\\Oda\SharedDocs\Rapor"]\\Oda\SharedDocs\Rapor[/URL] Teslim Defteri.xls")

yukarıdaki adresdeki Rapor Teslim Defteri.xls dosyasının içine 18.11.2011 tarihli teslim sayfasını kopyaladı.

Dediğim gibi adım adım kontrol ettim kodu, normalde çalışması gerekli çünkü daha önce çalışıyordu... Hata vermiyor; DELL adresindeki dosyayı açıyor, ancak ana çalışma kitabındaki "teslim" sayfasını seçip de kopyalamıyor, boş bir sayfa kopyalıyor :dusun: geri kalan herşey doğru... Yani sorun kopyaladığı sayfa bomboş :???:

 

[halit3]

Dediğim gibi adım adım kontrol ettim kodu, normalde çalışması gerekli çünkü daha önce çalışıyordu... Hata vermiyor; DELL adresindeki dosyayı açıyor, ancak ana çalışma kitabındaki "teslim" sayfasını seçip de kopyalamıyor, boş bir sayfa kopyalıyor :dusun: geri kalan herşey doğru... Yani sorun kopyaladığı sayfa bomboş :???:

bu kodu teslim sayfası içindeyken çalıştırın.

 

[crion]

bu kodu teslim sayfası içindeyken çalıştırın.

Onu da denedim, belki sayfayı seçmede sorun yaşıyordur diye. Teslim sayfasını açtım ve kodu o şekilde çalıştırdım ama yine kopyalanan sayfa boştu sizce sorun Rapor Teslim Defteri.xls'te olabilir mi? O dosyayı tekrar oluştursam sorun çözülür mü?

 

[halit3]

Onu da denedim, belki sayfayı seçmede sorun yaşıyordur diye. Teslim sayfasını açtım ve kodu o şekilde çalıştırdım ama yine kopyalanan sayfa boştu sizce sorun Rapor Teslim Defteri.xls'te olabilir mi? O dosyayı tekrar oluştursam sorun çözülür mü?

Bence sorun teslim sayfasına ait dosya bu dosyanın uzantısı xlsm siz bu dosyayı xls olarak kayıt edin ve kayıt ettiğiniz xls uzantılı dosyayı açın ve onunla deneyin

 

[halit3]

dosya silindi

 

[crion]

Bence sorun teslim sayfasına ait dosya bu dosyanın uzantısı xlsm siz bu dosyayı xls olarak kayıt edin ve kayıt ettiğiniz xls uzantılı dosyayı açın ve onunla deneyin

XLSM uzantılı ana çalışma kitabını XLS olarak tekrardan oluşturdum kod çalıştı. Yardımınız için teşekkürler.

 

[halit3]

XLSM uzantılı ana çalışma kitabını XLS olarak tekrardan oluşturdum kod çalıştı. Yardımınız için teşekkürler.

İyi çalışmalar