Farklı Dizine Belirtilen Sayfanın Kaydedilmesi

[RALKAN]

Günaydın arkadaşlar ,

Ek'te örneğini eklediğim çalışmanın sadece rapor sayfasının "D:\Idari\2009\ALACAK_BORC_TAKIP " dizininin altına Haftalık Ödeme Talep adı ile kaydedilmesi için yardımlarınızı rica ediyorum.

Teşekkürler

(Not:Sayın muygun hocamızın örneklerinden yararlanılmıştır )

 

[ersoyalan]

Merhaba,

İlgili kodu denermisiniz.

Sub Sayfa_Yedek_Al()
Dim evn As Object, yol As String, klasor As String, dosya As String
Set evn = CreateObject("Scripting.FileSystemObject")
yol = "d:\Documents and Settings\atmyonetimiizleme\My Documents\İdari\2009\ALACAK_BORC_TAKİP\"
klasor = Format(Date, "mmmm yyyy")
dosya = Format(Date, "dd mmmm yyyy") & " " & ThisWorkbook.Name
If Not evn.FolderExists(yol) Then
evn.CreateFolder (yol)
End If
If Not evn.FolderExists(yol & klasor) Then
evn.CreateFolder (yol & klasor)
End If
Sheet3.Copy
With Application
.DisplayAlerts = False
ActiveWorkbook.SaveAs (yol & klasor & .PathSeparator & dosya)
ActiveWorkbook.Close
.DisplayAlerts = True
End With
Set evn = Nothing
yol = vbNullString
klasor = vbNullString
dosya = vbNullString
End Sub

 

[RALKAN]

Sayın Ersoyalan merhaba ,

Aşağıda belirttiğim alanda kod devam etmiyor .

Sub Sayfa_Yedek_Al()
Dim evn As Object, yol As String, klasor As String, dosya As String
Set evn = CreateObject("Scripting.FileSystemObject")
yol = "D:\Idari\2009\ALACAK_BORC_TAKIP"
klasor = Format(Date, "mmmm yyyy")
dosya = Format(Date, "dd mmmm yyyy") & " " & ThisWorkbook.Name
If Not evn.FolderExists(yol) Then
evn.CreateFolder (yol)
End If
If Not evn.FolderExists(yol & klasor) Then
evn.CreateFolder (yol & klasor)
End If
Sheet3(Rapor).Copy
With Application
.DisplayAlerts = False
ActiveWorkbook.SaveAs (yol & klasor & .PathSeparator & dosya)
ActiveWorkbook.Close
.DisplayAlerts = True
End With
Set evn = Nothing
yol = vbNullString
klasor = vbNullString
dosya = vbNullString
End Sub

 

[ersoyalan]

Kod devam etmiyor derken tam anlıyamadım.Detay yazarmısınız hata mesajımı veriyor.Bende problem yok.


Sayfa yolunu tekrar kontrol edin ve,

On error resume next
Sheet3(Rapor).Copy


bu şekilde kullanın.

 

[RALKAN]

Kod devam etmiyor derken tam anlıyamadım.Detay yazarmısınız hata mesajımı veriyor.Bende problem yok.

Önceki mesajımda kırmızı ile olan yerde işlem devam etmiyor.

 

[ersoyalan]

Dosyayı denermisiniz.

 

[ersoyalan]

Merhaba,

ralkan sayfa isminde oynama yapmamanız gerekiyor.Sheet3.Copy Rapor sayfası yani 3.sayfa anlamına geliyor.

 

[RALKAN]

Merhaba,

ralkan sayfa isminde oynama yapmamanız gerekiyor.Sheet3.Copy Rapor sayfası yani 3.sayfa anlamına geliyor.

Sayın ersoyalan merhaba ,

Teşekkür ederim işlem tamamdır.

 

[ersoyalan]

Rica ederim iyi çalışmalar dilerim.