Bu Uyarı Çıktığında Ne yapmalıyım??

[easycafe]

Merhaba,

forumdan aldığım bir makroyu kaydetmeye çalıştığımda ekteki hatayı alıyorum. Ne yapmalıyım?

Teşekkür ederim.

 

[Huseyinkis]

dosyayı Xlsx değil Xlsm olarak kaydedin.

 

[suleyman242]

Merhaba,

forumdan aldığım bir makroyu kaydetmeye çalıştığımda ekteki hatayı alıyorum. Ne yapmalıyım?

Teşekkür ederim.

Makro içerebilen Excel Çalışma Kitabı olarak yani .xlsm formatında kaydetmeniz gerekir

 

[easycafe]

tekrar merhaba, yaptım ancak olmadı. aslında aşağıdaki makroyu eklemek istiyorum ama başarılı olamıyorum.

Private Sub Workbook_Open()
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
End Sub

yardımcı olabilir misiniz?

istediğim hatırlatma yapması excel de ekte. bu excele oturtmak istiyorum.

 

[suleyman242]

Kodunuzu
ALT+F11 tuşuna basarak VBA düzenleyici açıp

Bu Çalışma kitabı kısmına yapıştırın (İngilizce karşılığı neyse)
Sonra makro içeren excel olarak kaydedin

Ayrıca Tarih sutununuz B değil E olarak değiştirdim.

 

[easycafe]

harika oldu. ellerinize sağlık.
kolay gelsin. çiçek verdim size. kabul edin lütfen.

 

[suleyman242]

harika oldu. ellerinize sağlık.
kolay gelsin. çiçek verdim size. kabul edin lütfen.

Teşekkür ederim
çiçek

 

[easycafe]

tekrar merhaba,

ben şimdi excel üzerinde biraz oynadım. dosyayı kaydettiğim zaman o hatırlatma iptal oldu. çalıştıramıyorum.
ekte görebilirsiniz.
nasıl işler hale getirebilrim.
birde geçmiş tarihli olanları ayrı bir sheette göstermesi mümkün müdür?

 

[easycafe]

yardım var mı acaba?

 

[Huseyinkis]

yardım var mı acaba?

kodları ekteki ile değiştirip denermisiniz.

Private Sub Workbook_Open()
On Error Resume Next
bulunan = ""
bul = Sheets("Sheet1").Range("F1:F100").Find(What:=Date, LookIn:=xlValues).Row
If bul > 0 Then
With Sheets("Sheet1").Range("F1:F100")
Set c = .Find(What:=Date, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
bulunan = bulunan & Sheets("Sheet1").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
End Sub

 

[easycafe]

merhaba,

bilemedğimden dolayı yapamadım. ekte dosyanın son halini gönderiyorum.
İstediğim şudur;
1- sadece çıkış sheetinde uyarı versin istiyorum.
2-birde uyarı verirken b sütununda bulunan ad soyad ve iab nın yapılması gereken tarihi göstersin istiyorum.

yardımlarınızı rica ederim.

 

[Huseyinkis]

merhaba,

bilemedğimden dolayı yapamadım. ekte dosyanın son halini gönderiyorum.
İstediğim şudur;
1- sadece çıkış sheetinde uyarı versin istiyorum.
2-birde uyarı verirken b sütununda bulunan ad soyad ve iab nın yapılması gereken tarihi göstersin istiyorum.

yardımlarınızı rica ederim.

Ekli dosyayı inceler misiniz.

 

[easycafe]

teşekkür ederim.