işgünlerine ait yeni sayfa oluşturma

[murat42]

Sevgili arkadaşlar daha önceden yayınlanan ekteki dosyada iş günlerine ait yeni sayfa oluşturuyor fakat oluşturduğu dosya yeni bir sayfa ben ise kullandığım sayfanın kopyasını oluşturmasını istiyorum. dosya üzerinde
kendim bu şekilde değiştirdim

Sayfaadi = Format(tarih, "dd mm yy")
Worksheets(Sheets.Count).Copy After:=Worksheets(Sheets.Count)
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

orjinali;

Sayfaadi = Format(tarih, "dd mm yy")
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

sayfayı kopyalıyor ama aynı isimle yardım edermisiniz nerede hata yapıyorum....

 

[murat42]

cevap verebilecek kimse yokmu arkadaşlar yardımlarınızı bekliyorum... :yardim: :agla:

 

[murat42]

5 kere indirlmiş kise yardım etmiyormu arkadaşlar.... :sinirli:

 

[xxrt]

Avatarın da çok güzelmiş..
Forumda Sayfa ekle diye arattırırmısınız?..Kullandığınız kod'dan daha değişik kod'lar mevcut.

 

[murat42]

Avatarın da çok güzelmiş..
Forumda Sayfa ekle diye arattırırmısınız?..Kullandığınız kod'dan daha değişik kod'lar mevcut.

sayın xxrt; avatar konusunda haklısınız galiba... ikinci husus açmış olduğum topic bir başka topicde yayınlandı dosyayı gönderen arkadaş ile de özelden mesaj attım ama cevap gelmedi dikkat etti iseiniz 8 mesajım var araştırmadan topic açmama ya gayret gösteriyorum ben isterdimki yölendirme yapacağınıza yardımcı olsa idiniz. forumda araştırdım ama benim bilgilerim yeterli gelmedi ve siz ustalardan yardım istedim sanırım forumun gayeside bu...yinede bir cevap yazdığınız için teşekkür ederim 6 kere indirilen bir dosyaya bir kimse yardımcı olmaya çalışmış paylaşmak ne güzel. :bravo: :bravo: :bravo:

 

[Levent Menteşoğlu]

Kopyalanmasını istediğiniz sayfa hangisidir? En son kullandığınız sayfamıdır?

 

[Levent Menteşoğlu]

Sanıyorum sorunuzu anladım. Aşağıdaki kodu deneyin.

[vb:1:387248656a]Sub Autpen()
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Format(Date, "dd mm yy")
End Sub
[/vb:1:387248656a]

 

[murat42]

sayın leventm, :arkadas: cevabınız için çok teşekkür ederim formül çalıştığı zaman hem benim sayfayı hemde yeni bir sayfa açıyordu benim üstünde çalıştığım sayfanında isimin04 05 06(2) şeklinde atıyordu.
yeni bende sizin verdiğiniz formüle yakın yaptım ve nasıl olduğunu bilmiyorum ama becerebildim :hihoho: :hihoho:
----------------------------------------------
Sub Autpen()
Dim tarih As Date, i As Integer
tarih = isgunu(Date)
If Format(tarih, "mm yyyy") & (" ") & ("TABUR YOKLAMASI") & ".xls" <> ThisWorkbook.Name Then
If MsgBox("Bu aya ait bir çalışma kitabı olmadığı için yeni sayfa açmadım.Şimdi farklı kaydet yapacağım kabul mü?", vbYesNo) = vbYes Then
ThisWorkbook.SaveAs ThisWorkbook.Path & Application.PathSeparator & Format(Date, "mm yyyy") & (" ") & ("TABUR YOKLAMASI") & ".xls"
ActiveSheet.Name = Format(tarih, "dd mm yy")
For Each sh In ThisWorkbook.Sheets
If sh.Name <> Format(tarih, "dd mm yy") Then
Application.DisplayAlerts = False 'veri varsa sormadan silecek.
sh.Delete
End If
Next
Exit Sub
Else
MsgBox "bu kitaba 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 yy")
Application.DisplayAlerts = True
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Sayfaadi Then Exit Sub
Next i
ThisWorkbook.Sheets(Worksheets.Count).Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Sayfaadi
End Sub
------------------------------------------------------------
şeklinde yaptım