Mesajın excel gizlenerek gösterilmesi.

[İsmail Küçükşengün]

Merhabalar.
Bir çalışma kitabının bir sayfasında bulunan Ekteki hatırlatma mesajının çalışma kitabı açıldığında, excel sayfası gizlenerek SADECE MASAJ kısmının görünmesi ve tamam butonuna basıldığında direk ANA SAYFA'nın açılması mümkün müdür?

 

[mehmett]

Kodlarınıza aşağıdaki (kırmızı) satırları ekleyin;


[vb:1:ab405639c7]Private Sub Workbook_Open()
Application.Visible = False
On Error Resume Next
bulunan = ""
bul = Range("B1:B100").Find(Date).Row

If bul > 0 Then
With Range("B1:B100")
Set c = .Find(Date)
If Not c Is Nothing Then
firstAddress = c.Address
Do

bulunan = bulunan & Cells(c.Row, 1) & " --> " & c.Text & Chr(13)

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress

End If
End With

MsgBox bulunan, vbInformation, "Hatırlanması Gerekenler"

End If
Application.Visible = True
End Sub[/vb:1:ab405639c7]

 

[İsmail Küçükşengün]

Sayın Mehmett,
Çok teşekkür ediyorum.
Bir de 2. sorumla ilgilenebilir misiniz?
"Tamam butonuna basıldığında, excelin sayfa.1 de değil de, direk anasayfada" açılması mümkün müdür?
Selam ve saygılarımla.

 

[mehmett]

Örnek dosyanızda "Anasayfa" yok ama eğer Anasayfa oluşturursanız yukarıdaki kodlara aşağıdaki (kırmızı) satırı ekleyin.


[vb:1:77d0c8f90d].
.
.
Application.Visible = True
Sheets("Anasayfa").Select
End Sub[/vb:1:77d0c8f90d]

 

[İsmail Küçükşengün]

Sayın Mehmett;
Harikasınız. Kısa sürede çözüm bulduğunuz için teşekkürlerimi sunuyorum.