Farklı Kaydet

[gecemavisi]

Saygıdeğer arkadaşlar;
Benim çalışma kitabım ve makrolarım var.

Windows("deneme.xls").Activate adlı kod her yerde kullanılmış mesela. Ben bu dosyayı farklı adla kaydettiğim zaman bu kodlarında değişmesini istiyorum. Sizce böyle bişi mümkün mü?

Teşekkür ederim...

 

[Recep İpek]

Koldlarınızı aşağıdaki gibi kullanabilirsiniz.

Dim dosya
dosya = Application.ActiveWorkbook.Name
Windows(dosya).Activate

 

[tlgtrn]

ctrl-H tuşu ile replace yapabilirsin..

 

[gecemavisi]

Sn Ripek,
elinize sağlık sağolun

 

[gecemavisi]

Userformdan girilen adla farklı kaydetme

Saygıdeğer arkadaşlar;
Userforma girdiğim adla aynı klasörün içindeki arşiv klasörünün içine otomatik olarak dosyayı nasıl farklı kaydederiz.
bu konuda yardımınızı rica ediyorum. kısacası aşağıdaki koda ne gibi ekleme - düzeltme yapılmalı...

On Error Resume Next
Sheets("kapak").[N19] = TextBox1.Text
Application.DisplayAlerts = False
Dim kitap As Workbook, sayfa As Worksheet
Set sayfa = Workbooks(dosya)
sayfaadi = TextBox1.Value
kitap.SaveAs sayfaadi & ".xls"
Application.DisplayAlerts = True
Unload Me
MsgBox "İş Bitti"
UserForm1.Show

Saygılarımla...