sayfa ismine göre dosya açmak

[marimar]

merhaba arkadaşlar ekteki dosyada olduğu gibi sayfa isimlerine tarih yazıyorum.
excell çalışma kitabı açıldığı zaman günün tarihine eşit olan sayfanın açılmasını sağlayabilirmiyiz.
teşekkürler

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu; VBE'de, Thisworkbook kod sayfasına kopyalayınız.

Private Sub Workbook_Open()
gun = Day(Date): ay = Month(Date): yil = Year(Date)
If Len(gun) = 1 Then: gun = "0" & gun
If Len(ay) = 1 Then: ay = "0" & ay
For i = 1 To Sheets.Count
   If Sheets(i).Name = gun & "." & ay & "." & yil Then GoTo sonuc
Next i
MsgBox "Dosyada eşleşen bir gün bulunamadı", vbCritical, "UYARI"
Sheets(1).Select
Exit Sub
sonuc:
Sheets(i).Select
End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub Auto_Open()
Dim tarih As Date, syf As String
tarih = Format(Date, "dd.mm.yyyy")
syf = Format(tarih, "@")
Sheets(syf).Select
End Sub

 

[marimar]

teşekkürler arkadaşlar dosya üzerinde biraz birşeyler yapmaya çalıştım.
ekteki gibi birşey oldu.
Dosyayı açınca açılan formda göster butonuna basınca bu günkü notları görmek istiyorum.olurmu bilmiyorum ama not ekle butonuna basınca not ekleyeceğim tarihi yani sayfayı seçebilmek istiyorum.
teşekkürler

 

[Orion1]

Göster butonuna basarak listbox'ta görebiliyorsunuz.Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
ListBox1.RowSource = "A1:B" & Cells(65536, "A").End(xlUp).Row
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
End Sub

 

[marimar]

not yazmak istediğimiz sayfayı seçebilirmiyiz peki.mesela bugün ayın altısı ben ayın yirmisine not eklemek istiyorum,not ekle butonuna basınca sayfa isimlerinden not eklemek istediğimiz sayfayı seçebilirmiyiz.

 

[marimar]

ve form açılınca göster butonunun açılıştan aktif olmasını nasıl sağlayabiliriz.
yani form açılınca bu günkü notlarımı göster butonuna basmadan nasıl görebilirim.
teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[marimar]

Yardımlarınız için teşekkür ederim arkdaşlar biraz üzerinde çalıştım ve ekteki programı tasarladım.tek sorunum listboxta silmek istediğim notu sil butonuna basınca nasıl sileceğim.
birde sn=orion2 nin userform açılınca göster butonunu nasıl aktif ettiğini çözemedim bir türlü.
teşekkürler

 

[marimar]

yardımlarınızı bekliyorum

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton5_Click()
Dim sat As Long
If ListBox1.ListIndex < 0 Then Exit Sub
sat = ListBox1.ListIndex + 1
ListBox1.RowSource = ""
Range(Cells(sat, "A"), Cells(sat, "B")).Delete (xlUp)
ListBox1.RowSource = "A1:B" & Cells(65536, "A").End(xlUp).Row
End Sub

 

[marimar]

teşekkürler sn. orion2