Şartlı hatırlatma hk.

[KAYA212]

Merhaba,
Öncelikle forumda yaklaşık 1 saatlik bir arama yaptım ve bunun gibi bir format bulamadım.
Çok iyi bilmediğim içinde diğer örneklerden feyz alarak dönüştürme yapamadım.

Sorum;
Verme tarihi hücresi boş ise ve alma tarihi hücresindeki tarihten bugünü baz alarak geçmişse her excel açılışta aşağıdaki gibi bir hatırlatma yapılabilir mi?

Ayrıca not olarak; En eski tarihli ürünleri kontrol ediniz notu yazabilir mi?

Örnek ektedir.

 

[Ömer]

Merhaba,

Dosyanıza Userform ekleyip form içine Listbox yerleştirin.

Userformun kod bölümüne;

Private Sub UserForm_Initialize()

    Dim S1 As Worksheet, i As Long, s As Long

    Set S1 = Sheets("Sayfa1")
    
    With ListBox1
    
        .Clear
        .ColumnCount = 5
        .ColumnWidths = "40;30;80;80;10"
    
        For i = 2 To S1.Cells(Rows.Count, "B").End(xlUp).Row
            If S1.Cells(i, "M") = "" Then
                .AddItem
                .List(s, 0) = S1.Cells(i, "B")
                .List(s, 1) = S1.Cells(i, "C")
                .List(s, 2) = S1.Cells(i, "D")
                .List(s, 3) = S1.Cells(i, "H")
                .List(s, 4) = Val(S1.Cells(i, "L") - Date)
                s = s + 1
            End If
        Next i
    
    End With
    
End Sub

Yazın.

Daha sonra Kod ekranındaki "Bu çalışma kitabı" sayfasına;

Private Sub Workbook_Open()
    UserForm1.Show 0
End Sub

Ekleyin.

Artık açılışta istediğiniz uyarı ekrana gelecektir.

.

 

[ÖmerBey]

Merhaba,
Dosyanız ektedir.

 

[KAYA212]

Merhaba,
Dosyanız ektedir.

Ömer bey merhaba,
Dosya için teşşekkrü ederim fakat hata veriyor.
Bakabilirmisiniz.Anlayamadım.

teşekkür ederim

 

[ÖmerBey]

Merhaba,
Şu linkte pencere gizlendiği zaman bu problemle karşılaşıldığı, görünüm>Pencere göster ile problemin çözüldüğü anlatılmış.
Ya da ilgili satırı aşağıdaki şekilde düzenlerseniz sanırım bu hatayı almazsınız.

Set s1 = [COLOR="Red"]ThisWorkbook.[/COLOR]Sheets("Sayfa1")

 

[KAYA212]

Merhaba,
Şu linkte pencere gizlendiği zaman bu problemle karşılaşıldığı, görünüm>Pencere göster ile problemin çözüldüğü anlatılmış.
Ya da ilgili satırı aşağıdaki şekilde düzenlerseniz sanırım bu hatayı almazsınız.

Set s1 = [COLOR="Red"]ThisWorkbook.[/COLOR]Sheets("Sayfa1")

Ömer bey,
Teşekkür ederim.Çözüldü.

hayırlı geceler.