Farklı kaydet tuşu

[alper81]

kullandığım excel tablosununa farklı kaydetme tuşu eklemek istiyorum bunun için ne yapmam gerekiyor. yardımlarınız için şimdiden tşkler

 

[Ayhan Ercan]

Merhaba

Ek dosyayı inceleyiniz... Arzu ettiğiniz bölye birşeymi?

Private Sub CommandButton1_Click()
Dim dosya As String, yol As String
dosya = InputBox("Dosya adı belirleyiniz!", "FARKLI KAYDET")
[COLOR=red]yol = "C:\Documents and Settings\BAE\Desktop\"[/COLOR]
If dosya = "" Then MsgBox "Dosya ismi verilmedi!!!", vbCritical, "UYARI": Exit Sub
ActiveWorkbook.SaveAs yol & dosya & ".xls"
End Sub

Not: Kırmızı yazılı sütunda kendi yolunuzu belirtiniz....

 

[alper81]

Evet bu tşkler çok sağolun