DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub sayfa_Kopyala()
If MsgBox("[ " & Sheets.Count + 1 & " ] İsminde Yeni bir sayfa Oluşturulacak." & vbLf & _
"Yeni Sayfa Oluşturulsunmu ?", vbYesNo) = vbNo Then Exit Sub
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets.Count
Sheets("1").Range("A1:DH155").Copy
Range("A1").PasteSpecial
application.cutcopymode=false
Range("A1").Select
Range("A7").Value = Sheets.Count
End Sub
Sheets("1").Range("A1:DH155").Copy
Sheets((Sheets.Count) - 1).Range("A1:DH155").Copy