kitap ayın günündeki sayfada açılsın

[osmancig]

1'den 31 'e kadar sayfalar var. bir yerde gördüm kitap ayın kaçı ise o sayfadan açılıyor

örneğin 17/03/2006 ise direk kitap açılırken 17'inci sayfa açılıyor. bu nasıl yapılır?

 

[hamitcan]

Sub auto_open()
bugun = CStr(Day(Now()))
Sheets(bugun).Select
End Sub

Yukarıdaki kod işinizi görür herhalde.

İyi çalışmalar...

 

[hbasbay]

Sub auto_open()
bugun = CStr(Day(Now()))
Sheets(bugun).Select
End Sub

Yukarıdaki kod işinizi görür herhalde.

İyi çalışmalar...

Sayın Hamitcan,

Forumda bu konu ile arama yaparken bu mesajınıza rastladım.Benim buna benzer bir sorunum var.Paylaşımlı bir excel dosyası kullanıyorum.2 kullanıcım aktif, 1 kullanıcım pasif(sadece izliyor).Pasif kullanıcı dosyayı her açışında o günkü tarih ile aynı olan sayfayı açabilir mi? Yardımlarınız için şimdiden teşekkür ederim.

 

[hamitcan]

Sub auto_open()
    If Environ("USERNAME") = "kullanici ismi" Then
    bugun = Format(Date, "dd.mm.yyyy")
    Sheets(bugun).Select
    End If
End Sub

şeklinde dener misiniz ?

 

[hbasbay]

Sayın Hamitcan,

Söylediğiniz şekilde denedim ama maalesef olmadı.Bir yerde hata yapıyorum ama tam olarak nerede bulamadım.Bir de nette araştırma yaparken aşağıdaki kod'u buldum fakat çalıştıramadım.



Dim a as Long

a = ActiveWorkbook.Sheets.count

If ActiveWorkbook.Sheets(a).Name = date$ Then

ActiveWorkbook.Sheets(a).Activate

Range("A17").Activate

End If

 

[hamitcan]

Pasif kullanıcı dosyayı her açışında o günkü tarih ile aynı olan sayfayı açabilir mi?

Sub auto_open()
    If Environ("USERNAME") = "kullanici ismi" Then
    bugun = Format(Date, "dd.mm.yyyy")
    Sheets(bugun).Select
    End If
End Sub

Kodda, kullanıcı ismi olarak belirttiğim yere pasif kullanıcının ismini yazarak denediniz mi ?

 

[hbasbay]

Sayın Hamitcan,

sizi uğraştırıyorum kusura bakmayın.ama acemi biri olarak ben bu işi yapamadım.resimdeki hata ile karşılaşıyorum.

Notasif kullanıcının ismini belirttiğiniz yere yazdım.

 

[hamitcan]

Galiba bugüne ait bir sayfa yada belirttiğim formata uygun sayfa bulamadığı için böyle bir hata veriyor. Kontrol eder misiniz ?

 

[hbasbay]

Sayın Hamitcan,

Verdiğiniz kod'u yanlış yere yapıştırmışım.Doğru yere yapıştırınca çalıştı.Çok teşekkür ederim.