Çözüldü Sayfa kopyalama hakkında

[Cengizhantr06]

Sayfa isimlerim tarihlerden oluşuyor mesala 28.11.2023
Bu sayfayı komple kopyalayıp yeni bir sayfa açmak
istiyorum ve yeni sayfa açınca sayfa adı bu tarihten 1 fazla olacak nasıl yapabilirim yani yeni sayfa adı 29.11.2023 olacak ve yeni sayfayı sol tarafa en başa açacak

 

[Necdet]

Merhaba,

Sub SayfaAc()

Dim syfAdi As String
Dim syfTar  As Date

syfAdi = CDate(ActiveSheet.Name) + 1

If SayfaVar(syfAdi) = True Then
    MsgBox syfAdi & "Zaten Var ......", vbCritical
    Exit Sub
Else
    ActiveSheet.Copy Before:=Sheets(1)
    ActiveSheet.Name = syfAdi
End If

End Sub

Function SayfaVar(ByRef shName As String) As Boolean

On Error Resume Next
SayfaVar = Len(Sheets(shName).Name) > 0

End Function

 

[Cengizhantr06]

E

Merhaba,

Sub SayfaAc()

Dim syfAdi As String
Dim syfTar  As Date

syfAdi = CDate(ActiveSheet.Name) + 1

If SayfaVar(syfAdi) = True Then
    MsgBox syfAdi & "Zaten Var ......", vbCritical
    Exit Sub
Else
    ActiveSheet.Copy Before:=Sheets(1)
    ActiveSheet.Name = syfAdi
End If

End Sub

Function SayfaVar(ByRef shName As String) As Boolean

On Error Resume Next
SayfaVar = Len(Sheets(shName).Name) > 0

End Function

Ellerinize sağlık çok güzel olmuş çok teşekkür ederim Necdet Bey