Sheet Online Excel and Excel Macro (VBA) Courses Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Sub Auto_Open() Dim tarih As Date, i As Integer 'tarih olarak sizin isgunu fonksiyonundan çıkan 'tarihi kullandım tarih = isgunu(Date) If Format(tarih, "mmmm-yy") & ".xls" ThisWorkbook.Name Then If MsgBox("Bu aya ait bir çalışma kitabı olmadığı için yeni sayfa açmadım.Şinci farklı kaydet yapacağım kabul mü?", vbYesNo) = vbYes Then ThisWorkbook.SaveAs ThisWorkbook.Path & Application.PathSeparator & Format(Date, "mmmm-yy") Sheets.Add.Name = Format(tarih, "dd-mm-yyyy") For Each sh In ThisWorkbook.Sheets If sh.Name Format(tarih, "dd-mm-yyyy") Then Application.DisplayAlerts = False 'veri varsa sormadan silecek. sh.Delete End If Next Exit Sub Else MsgBox "bu kitaba da yeni sayfa açmadım, farklı kaydette yapmadım, hiç bir şey yapmadım" Exit Sub End If End If Sayfaadi = Format(tarih, "dd-mm-yyyy") Application.DisplayAlerts = true For i = 1 To Sheets.Count If Sheets(i).Name = Sayfaadi Then Exit Sub Next i Sheets.Add.Name = Sayfaadi End Sub Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro Name 1 selects all cells in the worksheet. 2 Count column a 3 imprison 4 sheet / page naming 5 Opening sheet / page 1 6 Change the value of a cell in another file 7 print the active sheet / page 8 sheet / page1 printing 9 array method select sheet / page 10 printing the selected area as 2 sheet / pages 11 show sheet / page2 12 opening with the same sheet / page 13 show sheet / page in combobox in listbox 14 hides sheet / page2 15 pivot tables data iteration 16 print full area 17 indisin vba macro 18 close my workbook with a button on my sheet / page 19 Leaf Dialog Window 20 one click output