yeni sayfayı günün tarihi isminde açmak

[ckkaraca]

Gönderdiğim dosyada yeni sayfa açmak o sayfada toplam almak ve açtığım sayfanın ismi olarak ayarlayabilecek bir makro yazılabilir mi? Yardımlarınız için şimdiden teşekkür ederim.

 

[Kemal Demir]

İyi akşamlar

Ek'teki dosyayı inceleyiniz.Acılan yenı sayfa ismi ( gun-ay-saat-dakika-saniye) olarak yazılıyor.
Makronun kısayol tusu "Ctrl+r" dir

Umarım istediğinize yakın cevaptır.

 

[ckkaraca]

Kemal bey ilginize çok teşekkür ederim.Dosyayı yeniden ekliyorum istediklerimi daha açık yazdım yardımcı olursanız sevinirim.[

 

[fedeal]

Sub fedeal()
    Dim sayfa As Worksheet
    Dim i As Integer
    For Each sayfa In Worksheets
        Range("ee1").Offset(i) = sayfa.Name
        i = i + 1
    Next
    m = Application.WorksheetFunction.CountIf(Range("ee:ee"), Format(Date, "dd,mm"))
    If m > 1 Then
    ActiveSheet.Copy After:=Sheets(Cells(65536, "ee").End(xlUp).Row)
    ActiveSheet.Name = Format(Date, "dd,mm")
    Else
    On Error Resume Next
    ActiveSheet.Copy After:=Sheets(Cells(65536, "ee").End(xlUp).Row)
    ActiveSheet.Name = (Format(Date, "dd,mm") & " (" & m & ")")
    End If
    F = Cells(65536, "EE").End(xlUp).Row
    Range("G7").Value = Sheets(Cells(F, "EE").Value).Range("G61").Value
    Range("G1").Value = Date
    Range("D15:D58").ClearContents
    Range("D7:F12").ClearContents
    Range("G7:G13").ClearContents
End Sub

Ekteki dosyayı inceleyin istediginiz gibi olmuşmu?

 

[ckkaraca]

İlginize teşekkür ederim fedeal ancak sanırım tam olarak faydalanamadım.İlk olarak önceki sayfa g61 i sonraki sayfada g7 ye kopyalamıyor düzeltebilir miyiz? Oluştur butonu yerine kısa yol tuşu atamak mümkğn mü? Butona oluştur diye bastığımda(birden fazla) yeni sayfa açmıyor,nedeni ne olabilir?

 

[Kemal Demir]

Merhaba,

Sub Calistir()
    Sheets(1).Select
    Sheets(1).Copy After:=Sheets(Sheets.Count)
    Range("f4") = Date
    dakika = Time
    ActiveSheet.Name = Month(Date) & "_" & Day(Date) & "_" & Mid(dakika, 1, 2) & "_" & Mid(dakika, 4, 2) & "_" & Mid(dakika, 7, 2)
    Range("d7:d12").Select
    Selection.ClearContents
    Range("D15:D58,F15:F58").Select
    Selection.ClearContents
    Range("a1").Select
End Sub