sheet Free Excel Macros (VBA) | Excel Programs

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

No	Macro 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

Excel Free Macros (VBA)

Sheet

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords