tarihi otomatik açma.

[EXCELL PLATİNİUM]

Merhaba arkadaşlar. Benim excel çalışma sayfamda her güne bir sayfa çalışmalarım var. ben otomatik olarak exceli açtığımda o günki tarihte açmasını istiyorum. Yarımcı olursanız sevinirim. örnek çalışmamı incelerseniz sevinirim.

 

[Necdet]

Merhaba,

Aşağıdaki kod ThisWorkbook'un kod bölümünde olmalı

Private Sub Workbook_Open()
Sayfa = Format(Day(Date), "00") & "." & Format(Month(Date), "00")
Sayfa_Olustur_Aktar (Sayfa)
End Sub

Aşağıdaki Kodları ise bir modülün içine kopyalayınız.

Sub Sayfa_Olustur_Aktar(SyfAdi As String)
If Not SayfaVarMi(SyfAdi) Then
    Sheets.Add After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = SyfAdi
End If
Sheets(SyfAdi).Select
End Sub

Function SayfaVarMi(SayfaAdi As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

 

[dEdE]

Merhaba,
Bir örnek te ben hazırlamıştım.