Kayıt bulunamadı uyarısı

[muratozmenler]

Herkeze selamlarımı iletirim öncelikle..
Ekteki dosyanın içine gerekli açıklamayı yazdım.
Kısaca listboxa gerekli bilgi gelmez ise bugün yapılacak iş yoktur uyarısdını vermesi.....

 

[Korhan Ayhan]

Selamlar,

Kodlarınızı aşağıdaki şekilde düzenleyip denermisiniz.

Sub hatirlat()
    For X = 1 To [A65536].End(3).Row
        If Cells(X, 1).Value = Date Then
        Say = Say + 1
        tarih = Cells(X, 1).Value
        isadi = Cells(X, 2).Value
        merkez = Cells(X, 3).Value
                Cells(X, 1).Interior.ColorIndex = 3
                Cells(X, 2).Interior.ColorIndex = 3
                Cells(X, 3).Interior.ColorIndex = 3
                
        End If
    Next
    If Say = 0 Then
    MsgBox "Bugün yapılacak iş yoktur !", vbExclamation
    Else
    MsgBox "Bugün yapılacak " & Say & " adet iş var", vbCritical
    End If
End Sub

Private Sub CommandButton2_Click()
Call hatirlat
ListBox1.ColumnCount = 3
ListBox1.Clear
    y = 0
    For X = 1 To [A65536].End(3).Row
        If Cells(X, 1).Value = Date Then
        isadi = Cells(X, 2).Value
        merkez = Cells(X, 3).Value
        ListBox1.AddItem y + 1
        ListBox1.List(y, 1) = merkez
        ListBox1.List(y, 2) = isadi
        y = y + 1
        End If
    Next
End Sub

 

[muratozmenler]

uyarı veriyor ama herzaman yani kayıt bulunduktan sonrada veriyor kayıt varsa uyarı vermemesi gerekiyordu... kayıt varsa kayıt bulunmuştur uyarsı yada vermeyedebilir...

 

[muratozmenler]

konu hakkında bilgisi olan yokmu

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki ilk kodu revize ettim. Denermisiniz.

 

[muratozmenler]

SELAM
Aynı şekil hiçbir değişiklik yok...

 

[Korhan Ayhan]

Selamlar,

Önerdiğim kodları örnek dosyanıza uyarladım. İncelermisiniz.

 

[muratozmenler]

elinize sağlık sayın korhan bey biraz zahmet verdim ama kusura bakmayın çok teşekkür eder çalışmalarınızın ve yardımlarınızın devamını dilerim.....