Otomatik sheet oluşturma hk.

[talebeyim]

Aşağıdaki Otomatik sayfa oluşturmayı makro kodunu şu şekilde değiştirmek istiyorum.

mevcut günün bir gün öncesi olacak şekilde ay.gün
ve kopyayı sayfa sonuna değilde aktif sayfanın bir önüne yerleştirsin.

ve kopyalarken makrolarıda kaldırsın.

ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(Now, "dd." + "mm")

 

[asi_kral]

Merhaba
Bu kodu dener misiniz_?

Option Explicit
Sub sayfa_ekle()
ActiveSheet.Copy before:=ActiveSheet
ActiveSheet.Name = Format(Now - 1, "dd. " + "mm")
ActiveSheet.Shapes("[COLOR="Red"]Düğme 1[/COLOR]").Delete
End Sub

Kırmızı yere Butonun adını yazmayı unutmayın.

 

[talebeyim]

teşekkür ederim.