aşağıdaki kod ile A1 hücresindeki değerle yeni bir sayfa açar
umarım işinize yarar
Kod:
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
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.