Çalışma kitabını farklı kaydetmek.

[kutlu]

Selam Arkadaşlar!..

Daha önce içeriğini hazırladığım "müşteri kartı" adında bir excel dosyası var.

Yapmak istediğim; bu dosyayı farklı kaydetmek. Yalnız bunu yaparken bir textbox' a gireceğim ismi dosya adı olarak atayıp bu adla farklı kaydetmek istiyorum.

Yardımlarınız için şimdiden çok teşekkür ederim. Saygılarımla.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:a78463dead]Sub farklikaydet()
ad = InputBox("Kayıt ismini yazın.")
ActiveWorkbook.SaveAs Filename:="C:\" & ad & ".xls"
End Sub
[/vb:1:a78463dead]

 

[Korhan Ayhan]

Selamlar,

Bende örnek bir çalışma hazırlamıştım eklemek istedim umarım işinize yarar.

Örnekteki dosya yolunu kendinize göre uyarlarsınız.

C:\Documents and Settings\Korhan\Belgelerim\" & Dosya_Adı

 

[kutlu]

Teşekkür ederim arkadaşlar. Olay anlaşılmıştır.