• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sayfa ismine günün tarihine vermek

C

ckkaraca

Katılım
3 Eylül 2007
Mesajlar
45
Excel Vers. ve Dili
2006 türkçe
aşağıdaki makroda 21,12 tarihli sayfayı kopyalayıp yeni sayfaya yapıştırıp günün tarihini vermek istiyorum, ve bu işlemi hergün tekrarlayacağım





ActiveWindow.SmallScroll Down:=-35
Sheets("21,12").Select
Sheets("21,12").Copy After:=Sheets(5)
Range("J2").Select
ActiveCell.FormulaR1C1 = Date
Range("E2:G64").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-14
Range("C3:C64").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-7
Range("B4").Select
ActiveCell.FormulaR1C1 = "='21,12'!RC[7]"
Range("B4").Select
Selection.AutoFill Destination:=Range("B4:B64"), Type:=xlFillDefault
Range("B4:B64").Select
ActiveWindow.SmallScroll Down:=-7
Sheets("21,12 (2)").Select
Sheets("21,12 (2)").Name = "22,12"
Range("G53").Select
End Sub
 
Merhaba,

Aşağıdaki kodlar ile günün tarihi olarak sayfa oluşturabilirsiniz.

Sub auto_open()
Sayfaadi = Format(Now, "dd-mm-yyyy")
For i = 1 To Sheets.Count
If Sheets(i).Name = Sayfaadi Then Exit Sub
Next i
Sheets.Add.Name = Sayfaadi
End Sub
 
Merhaba,


Kod: 
Sub SayfaKopyala()
    Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Format(Date, "dd,mm")
End Sub
 
peki bir önceki günün tarihinden değerler alıyorum,yukarıdaki formülde önceki günün değerini nasıl belirleyeceğim
 
Hergün bir önceki günden kopya çıkartıldığına göre ve cumartesi, pazartesi ve tatil günlerini de düşünürsek ve yine oluşturulan sayfanın hep en sonda olacağını varsayarsak 3. mesajımdaki kodu düzelttim.
 
makro yu aşağıdaki şekilde değiştirdim ama sorunu tam olarak çözemedim
bir önceki sayfanın değerini kopyala yapıştır değilde 21,12 nin değerini kapyalıyor ActiveCell.FormulaR1C1 = "='21,12'!RC[7]" bu satır yerine ne yazmalıyım?






Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(Date, "dd,mm")
Range("J2").Select
ActiveCell.FormulaR1C1 = Date
Range("E2:G64").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-14
Range("C3:C64").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-7
Range("B4").Select
ActiveCell.FormulaR1C1 = "='21,12'!RC[7]"
Range("B4").Select
Selection.AutoFill Destination:=Range("B4:B64"), Type:=xlFillDefault
Range("B4:B64").Select
ActiveWindow.SmallScroll Down:=-7
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst