Belirlediğim yola nasıl kayıt yapabilirim

[bmutlu966]

Arkadaşlar,

Programım bir tuşa bastığımda bir hücreden isim alarak kendini yedekleyecek.

Aşağıdaki kodlarda .SaveAs Filename:=fname satırı default klasöre kayıt yapıyor. Bu klasörün yolunu ben belirlemek istiyorum. Bu kodlara ne ilave etmem gerekiyor.


Private Sub CommandButton1_Click()

Const ERRSTR As String = "Dosya saklanamadı." & _
vbNewLine & vbNewLine
Dim fName As String
On Error GoTo Handler
With ActiveWorkbook
fName = .Sheets("Giriş").Range("B101").Text
If Len(Trim(fName)) = 0 Then _
Err.Raise 32769
If Mid(fName, Len(fName) - 3, 1) <> "." Then _
fName = fName & ".xls"
.SaveAs Filename:=fName

' MESELA DOSYAYI C:\\Yedekler\ KLASÖRÜNE YEDEKLEMESİNİ İSTİYORUM YUKARDAKİ SATIRA NASIL BİR KOD GİRMEM GEREKİYOR.

End With
Exit Sub
Handler:
If Err.Number = 32769 Then
MsgBox ERRSTR & "Giriş!B101 hücresi boş"
Else
MsgBox ERRSTR & "Lütfen yazdığınız tarihi kontrol edin."
End If
End Sub

 

[Recep İpek]

Private Sub CommandButton1_Click()
Const ERRSTR As String = "Dosya saklanamadı." & _
vbNewLine & vbNewLine
Dim fName,[COLOR=blue]MyPath,FullfName[/COLOR] As String
On Error GoTo Handler
With ActiveWorkbook
[COLOR=blue]MyPath="C:\\Yedekler\"[/COLOR]
fName = .Sheets("Giriş").Range("B101").Text
If Len(Trim(fName)) = 0 Then _
Err.Raise 32769
If Mid(fName, Len(fName) - 3, 1) <> "." Then _
fName = fName & ".xls"
[COLOR=blue]FullfName=MyPath & fName[/COLOR]
.SaveAs Filename:=[COLOR=blue]FullfName [/COLOR]
 
' MESELA DOSYAYI C:\\Yedekler\ KLAS&#214;R&#220;NE YEDEKLEMES&#304;N&#304; &#304;ST&#304;YORUM YUKARDAK&#304; SATIRA NASIL B&#304;R KOD G&#304;RMEM GEREK&#304;YOR.
 
End With
Exit Sub
Handler:
If Err.Number = 32769 Then
MsgBox ERRSTR & "Giri&#351;!B101 h&#252;cresi bo&#351;"
Else
MsgBox ERRSTR & "L&#252;tfen yazd&#305;&#287;&#305;n&#305;z tarihi kontrol edin."
End If
End Sub

Kodlar&#305;n&#305;z&#305; bu &#351;ekilde de&#287;i&#351;tirerek deneyiniz.

 

[bmutlu966]

Sn Ripek

Öncelikle alakan için çok teşekkürler. Satırı aşağıdaki gibi değiştirdiğimde de çalıştı. Ek bilgi olsun diye gönderiyorum.

Private Sub CommandButton1_Click()

Const ERRSTR As String = "Dosya saklanamadı." & _
vbNewLine & vbNewLine
Dim fName As String
On Error GoTo Handler
With ActiveWorkbook
fName = .Sheets("Giriş").Range("B101").Text
If Len(Trim(fName)) = 0 Then _
Err.Raise 32769
If Mid(fName, Len(fName) - 3, 1) <> "." Then _
fName = fName & ".xls"
'----------------------------------------------------
.SaveAs Filename:="c:\Yedekler\"& fName
'----------------------------------------------------
End With
Exit Sub
Handler:
If Err.Number = 32769 Then
MsgBox ERRSTR & "Giriş!B101 hücresi boş"
Else
MsgBox ERRSTR & "Lütfen yazdığınız tarihi kontrol edin."
End If
End Sub