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

zaruri

Altın Üye
Altın Üye
Katılım
30 Kasım 2005
Mesajlar
158
Excel Vers. ve Dili
excell 2016
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,063
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
158
Excel Vers. ve Dili
excell 2016
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,063
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
158
Excel Vers. ve Dili
excell 2016


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

Üst