Sayfa Uretme

[pelin5353]

Dosyada yer alan takvimden gun secildiginde, secilen tarihe ait sayfanin olusturulmasi mumkun mu?? Tabi ayni sayfa icerikleri ile..

 

[mehmett]

Takvime bağladığınız makroyu aşağıdaki gibi değiştirin.

Private Sub Calendar1_Click()
deg = Format(Calendar1, "dd.mm.yy")
say = Worksheets.Count
ActiveSheet.Copy After:=Sheets(say)
ActiveSheet.Name = deg
End Sub

 

[pelin5353]

Merhaba Mehmet Bey,

Bu Makro takvimde ayni gun secilince tekrar tekrar ayni gunden uretiyor. Ama ben mesela takvimde 20.02.07 yoksa bu sayfayi olusturmasini; eger varsa yeni sayfa olusturmadan sadece bu sayfaya gitmesini istiyorum..

 

[Korhan Ayhan]

Selamlar,

Sn. mehmett beyin önermiş olduğu kodu aşağıdaki şekilde değiştirp denermisiniz.

Private Sub Calendar1_Click()
    On Error GoTo Son
    Sayfa = Format(Calendar1, "dd.mm.yy")
    Sheets(Sayfa).Select
    Exit Sub
Son:
    Say = Worksheets.Count
    ActiveSheet.Copy After:=Sheets(Say)
    ActiveSheet.Name = Sayfa
End Sub

 

[pelin5353]

Sayin Cost Control,

Tam olarak istedigim bu.. Mehmet beye ve size cok tesekkur ederim..

 

[pelin5353]

Normalde asagidaki Macro ile hucre degerini, sayfa isminden aliyordu..

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("b2").Value = ActiveSheet.Name
End Sub

Ama simdi sayfa urettikce bu hucrenin degerleri ile ilgili ufak bir problem yasamaya basladim. Mesela ilk sayfa ilavesi yapıldıgı zaman sayfa ismi dogru gorunmesine karsin hucre degeri 15.01.07(2) tarzinda goruluyor. Ama baska sayfaya gidilip tekrar geri gelindiginde sorun ortadan kalkiyor.

Ayrica sayfa ismi 15.01.07 formatinda oluyor ve hucreye de ayni sekilde geciyor. Ama benim bu tarihe hucre icerisinde “15 Ocak 2007 Pazartesi” formatinda ihtiyacim var...

 

[Korhan Ayhan]

Selamlar,

Kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Calendar1_Click()
    On Error GoTo Son
    Sayfa = Format(Calendar1, "dd.mm.yy")
    Sheets(Sayfa).Select
    Exit Sub
Son:
    Say = Worksheets.Count
    ActiveSheet.Copy After:=Sheets(Say)
    ActiveSheet.Name = Sayfa
    [B2] = Format(ActiveSheet.Name, "dd mmmm yyyy dddd")
End Sub

Ayrıca ThisWorkbook bölümündeki koduda aşağıdaki ile değiştiriniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    [B2] = Format(ActiveSheet.Name, "dd mmmm yyyy dddd")
End Sub

 

[pelin5353]

Sayin Cost Control..

Yardimlariniz icin cok tesekkur ederim. Isimi ne kadar kolaylastiridinizi tahmin edemezsiniz..Sagolun.!