Dosyayı istenilen sayfa ile açma

[momoli]

Merhaba,

Benim bir dosyam var, sayfa isimleri 01.02.2011, 02.02.2011 şeklinde tarih formatında. Dosyama tıkladığımda bugünün tarihi safyası ile açılmasını nasıl sağlarım.

Kolay Gelsin

 

[Ömer]

Merhaba,

ThisWorkbook sayfasına;

Private Sub Workbook_Open()
 
Dim i As Integer
 
For i = 1 To Worksheets.Count
    With Sheets(i)
        If .Name = Format(Date, "dd.mm.yyyy") Then
            .Select
        End If
    End With
Next i
 
End Sub

.

 

[momoli]

Teşekkür ederim oldu.