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

[metinak]

Merhaba arkadaşlar,

Çalışma kitabını yeni adla kaydederken (makro ile) dosya ismini otomatik olarak günün tarihi olarak nasıl belirleyebiliriz.

 

[trafikci]

aşağıdaki kod ile A1 hücresindeki değerle yeni bir sayfa açar

umarım işinize yarar

Sub CreateSheet()
Dim nRow As Integer, nColumn As Integer
Dim i As Byte
Dim MyShName As String
On Error GoTo ErrorHandler:
MyShName = ActiveSheet.Name
nRow = Sheets(MyShName).UsedRange.Rows.Count
nColumn = Sheets(MyShName).UsedRange.Columns.Count
For i = 1 To Worksheets.Count
If Sheets(i).Name = Sheets(MyShName).Range("A1").Value Or _
Sheets(MyShName).Range("A1").Value = Empty Then
MsgBox "Lütfen A1 hücresine, yeni sayfa ismini giriniz !", vbCritical, "Dikkat !"
Exit Sub
End If
Next
Sheets(MyShName).Copy after:=Sheets(Worksheets.Count)
ActiveSheet.Name = Sheets(MyShName).Range("A1").Value
Sheets(MyShName).Select
Exit Sub
ErrorHandler:
Application.CutCopyMode = False
Sheets(MyShName).Select
MsgBox "Hata No = " & Err.Number & vbCrLf & vbCrLf & "Açıklama :" & vbCrLf & Err.Description, vbApplicationModal, "HATA !"
End Sub

 

[metinak]

ilgine teşekkürler, sorum yanlış anlaşıldı her halde, sheet ismine tarih atamak değil bie excel dosyasını günün tarihi ile isimlendirerek kayıt etmek istiyorum. örnek: 10.02.2006.xls
teşekkürler.
veriğin örnek te çok işe yarayacak.