Sayfa oluşturma Kodlarina İlave

[ridvan2111]

Selam arkadaşlar
makro ile otomatik sayfa oluşturuyorum.
Benim istediğim oluşturulan yeni sayfaya bir önceki sayfanın tüm biçimlendirme ve formülleride kopyalasın

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SAYFA_EKLE()
    On Error GoTo Hata
    Set S1 = Sheets("Sayfa ekle")
    For X = 1 To S1.[A65536].End(3).Row
    If S1.Cells(X, 1) <> "" Then
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = S1.Cells(X, 1)
    End If
    Next
    ActiveSheet.Previous.Cells.Copy ActiveSheet.[A1]
    S1.Select
    Set S1 = Nothing
    MsgBox "Bug&#252;n tarihli sayfa eklendi.", vbInformation, "SAYFA EKLEND&#304; !"
    Exit Sub
Hata:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    S1.Select
    Set S1 = Nothing
    MsgBox "Ayn&#305; isimde sayfa zaten var.", vbCritical, "SAYFA EKLENEMED&#304; !"
End Sub

 

[ridvan2111]

SN KorhanAyhan çok teşekkür ederim
iyi çalışmalar

 

[h.aykol_]

değerli uzman bu konuya benzer bir sorunda bende var.

lütfen yardımcı olurmusunuz.Ekte sunacağım toplu giriş icmali sayfasında açıklama yaptım.ilgilenirseniz sevinirim.