ulucd
13-05-2006, 09:04
Private Sub CommandButton1_Click()
ChDir "C:\Documents and Settings\USER\Belgelerim\DENEME"
Dosya = Application.GetSaveAsFilename([E6].Value & ".xls")
If Dosya = False Then Exit Sub
ActiveWorkbook.SaveAs (Dosya)
End Sub
2 Satırda yazan yolu oluştursamda bu yol için hata veriyor. ("Debug") Zaten bilgisayarda "Document and Settings diye bir klasör ya da dosya yok. My Documents var. Bunu yazsamda bu çalışmadı. Acaba hata nereden kaynaklanıyor. ActiveWorkbook yerine sheet adını girmek de bişey değiştirmedi. 3. Satırı yazmamızın nedeni ne buradaki parantez içindeki [E6] neyi ifade ediyor. Yardımınızı bekliyor teşekkür ediyorum şimdiden. kolay gelsin herkese :hey:
ChDir "C:\Documents and Settings\USER\Belgelerim\DENEME"
Dosya = Application.GetSaveAsFilename([E6].Value & ".xls")
If Dosya = False Then Exit Sub
ActiveWorkbook.SaveAs (Dosya)
End Sub
2 Satırda yazan yolu oluştursamda bu yol için hata veriyor. ("Debug") Zaten bilgisayarda "Document and Settings diye bir klasör ya da dosya yok. My Documents var. Bunu yazsamda bu çalışmadı. Acaba hata nereden kaynaklanıyor. ActiveWorkbook yerine sheet adını girmek de bişey değiştirmedi. 3. Satırı yazmamızın nedeni ne buradaki parantez içindeki [E6] neyi ifade ediyor. Yardımınızı bekliyor teşekkür ediyorum şimdiden. kolay gelsin herkese :hey:
