farklı kaydet sorunu

[mbattal]

Arkadaşlar Merhaba,

Sub kaydet()
Sheets("TEKLİF FORMU").Copy
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\muharrem\Desktop\2010\" & [ı5].Value
ActiveWindow.Close
ThisWorkbook.Save
End Sub

kodu ile çalıştığım dosyanın içindeki bir sayfayı (TEKLİF FORMU sayfasını) yolunu belittiğim klasöre farklı kaydet yapıyorum. Fakat 2-3 farklı kaydeti sorunsuz yapıyor daha sonrasında ise :
Run-time error '-2147417848 (80010108)':
Method 'Close' of object 'Window' failed

Hatasını veriyor.

Benim anladığım kadarı ile " ActiveWindow.Close" komutunda problem var sanki.

bu sorunu düzeltmek için neler yapmalıyım. Yardımcı olursanız sevinirim.

Saygılarımla

 

[halit3]

bunu denermisiniz.

Sub kaydet()
On Error Resume Next
Dim sayfa As Worksheet
For Each sayfa In Worksheets
MsgBox Worksheets
If sayfa.Name = Sayfa_adı Then
sayfa.Copy
ActiveWorkbook.SaveAs "C:\Documents and Settings\muharrem\Desktop\2010\" & Range("I5").Value & ".xls"
ActiveWorkbook.Close False
Exit Sub
End If
Next sayfa
End Sub

 

[mbattal]

sayın halit3 öncelikle zaman ayırıp cevap verdiğiniz için çok teşekkür ederim.
sizin vermiş olduğunuz aşağıdaki kodu :

Sub kaydet()
On Error Resume Next
Dim sayfa As Worksheet
For Each sayfa In Worksheets
MsgBox Worksheets
If sayfa.Name = ("TEKLİF FORMU") Then
sayfa.Copy
ActiveWorkbook.SaveAs "C:\Documents and Settings\muharrem\Desktop\2010\" & Range("I5").Value & ".xls"
ActiveWorkbook.Close False
Exit Sub
End If
Next sayfa
End Sub

uyarladım fakat yine hata veriyor. Dosyayı ekleyemiyorum eğer dosya üzerinden çözülecekse ne yapıp edip dosyayı eklemeye çalışacağım.
Saygılarımla

 

[halit3]

esasında kodunuzdan anladığım kadarı ile yardımcı olmaya çalıştım. örnek dosya ile desdekliyerek ve ne yapmak istediğinizi kısa açıklama ile yapsaydınız yardımcı olmamız kolaylaşacaktı

 

[mbattal]

sayın halit3

ilgili dosyayı ekledim (umarım hata yapmamışımdır)
içinde açıklama yazdım ilgilenirseniz sevinirim.

Saygılarımla

 

[halit3]

bu kodu denermisiniz.

Sub kaydet()
Dim ds, a
Set ds = CreateObject("Scripting.FileSystemObject")
deger = Range("I5").Value
Sayfa_adı = "TEKLİF FORMU"
Kaynak = "C:\Documents and Settings\muharrem\Desktop\2010"
a = ds.FileExists(Kaynak & "\" & deger & ".xls")
If a = True Then
MsgBox deger & " Bu isimde bir dosya var"
Else
ActiveWorkbook.Save
On Error Resume Next
Dim sayfa As Worksheet
For Each sayfa In Worksheets
MsgBox Worksheets
If sayfa.Name = Sayfa_adı Then
sayfa.Copy
ActiveWorkbook.SaveAs Kaynak & "\" & deger & ".xls"
ActiveWorkbook.Close False
Exit Sub
End If
Next sayfa
End If
End Sub