Tarih geldiğinde, açılışta uyarı mesajı

zaruri

Altın Üye
Altın Üye
Katılım
30 Kasım 2005
Mesajlar
256
Excel Vers. ve Dili
excell 2019 Türkçe
dEdE ve Ömer Baran Hocalarımızın 2013 tarihinde yaptığı; Tarihe göre uyarı çalışması görsel ve işlevsel olarak gayet başarılı olmuş.
Çoğu çalışmalarda , A sütununda aynı günün tarihi bir adetten fazla oluyor.
Yatay arama değil dikey arama yapması için çok bakındık, fakat bizleri aşan bir konu olduğu için siz üstadların yardımını bekliyoruz..

İlginize şimdiden teşekkür ederiz.
 

Ekli dosyalar

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,520
Excel Vers. ve Dili
Office 365 Türkçe
Merhaba , önceki "UserForm_Initialize" kodlarını silin ve bu kodları deneyin.

Kod:
Private Sub UserForm_Initialize()
UserForm1.Caption = Format(Now, "dd mmmm yyyy dddd") & "ödemeler"
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "30;70;30"
Set bul = Range("A1:A100000").Find(Date, , xlValues, xlWhole)
If Not bul Is Nothing Then
    firstAddress = bul.Address
    Do
        ListBox1.AddItem
        ListBox1.Column(0, ListBox1.ListCount - 1) = ListBox1.ListCount
        ListBox1.Column(1, ListBox1.ListCount - 1) = Cells(bul.Row, 2).Value
        ListBox1.Column(2, ListBox1.ListCount - 1) = Cells(bul.Row, 3).Value
        Set bul = Range("A1:A100000").FindNext(bul)
    Loop While Not bul Is Nothing And bul.Address <> firstAddress
End If
End Sub
 

zaruri

Altın Üye
Altın Üye
Katılım
30 Kasım 2005
Mesajlar
256
Excel Vers. ve Dili
excell 2019 Türkçe
Listbox Boş olduğunda; (o güne dair bir hatırlatma olmadığında) Userform başlangıçta açılmasın. mümkün mü?
 

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,520
Excel Vers. ve Dili
Office 365 Türkçe
Listbox Boş olduğunda; (o güne dair bir hatırlatma olmadığında) Userform başlangıçta açılmasın. mümkün mü?
"Workbook_Open" Prosedüründeki kodları da aşağıdaki gibi değiştiriniz.

Kod:
Private Sub Workbook_Open()
Dim Tarihbul
Set Tarihbul = Range("A1:A100000").Find(Date, , xlValues, xlWhole)
If Not Tarihbul Is Nothing Then
    Application.Visible = False
    UserForm1.Show
End If
End Sub
 

zaruri

Altın Üye
Altın Üye
Katılım
30 Kasım 2005
Mesajlar
256
Excel Vers. ve Dili
excell 2019 Türkçe


EmrExcel16
Dediğiniz kodu değiştirdim ve mükemmel çalıştı.
teşekkür ederim. tarih yok ise uyarı açılmıyor.​
Emeğinize sağlık.

 

Ekli dosyalar

Katılım
14 Şubat 2012
Mesajlar
25
Excel Vers. ve Dili
mic. of. 2016
"Workbook_Open" Prosedüründeki kodları da aşağıdaki gibi değiştiriniz.

Kod:
Private Sub Workbook_Open()
Dim Tarihbul
Set Tarihbul = Range("A1:A100000").Find(Date, , xlValues, xlWhole)
If Not Tarihbul Is Nothing Then
    Application.Visible = False
    UserForm1.Show
End If
End Sub
Hocam sayfa seçerek uyarı verdirme nasıl yapabiliriz. 12 ye yakın sayfa var çünkü. Tarihleri ilgiilendiren kısım bi sayfada var. Bide listbox 5 sütuna çıkarsak çok güzel olur.
 
Katılım
14 Şubat 2012
Mesajlar
25
Excel Vers. ve Dili
mic. of. 2016
Yardım edecek yok mu acaba? Sayfa aktifken veri alıyor. ne yaptıysam olmadı hiç, kusura bakmayın.
 
Üst