işgünlerine ait yeni sayfa oluşturma

Katılım
18 Aralık 2005
Mesajlar
12
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....
 
Katılım
18 Aralık 2005
Mesajlar
12
cevap verebilecek kimse yokmu arkadaşlar yardımlarınızı bekliyorum... :yardim: :agla:
 
X

xxrt

Misafir
Avatarın da çok güzelmiş.. :D
Forumda Sayfa ekle diye arattırırmısınız?..Kullandığınız kod'dan daha değişik kod'lar mevcut.
 
Katılım
18 Aralık 2005
Mesajlar
12
xxrt' Alıntı:
Avatarın da çok güzelmiş.. :D
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Kopyalanmasını istediğiniz sayfa hangisidir? En son kullandığınız sayfamıdır?
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sanıyorum sorunuzu anladım. Aşağıdaki kodu deneyin.

[vb:1:387248656a]Sub Auto_Open()
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Format(Date, "dd mm yy")
End Sub
[/vb:1:387248656a]
 
Katılım
18 Aralık 2005
Mesajlar
12
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 Auto_Open()
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
 
Üst