Eğer Sayfadaki Tarih Bugüne Eşitse Label'a Yaz

[Astalavista58]

Merhabalar, herkese hayırlı akşamlar ekteki örnek dosyada, "D" sütunundaki tarih, bugüne eşitse Label1'in Caption'una isim ve soyisim sütunlarını birleştirip yazdırıyorum. Ancak bugüne eşit birden fazla tarih olunca, ikinci tarihe denk gelen isim soyismi Label2'ye, üç varsa üçüde aynı şekilde yazdırmak istiyorum. Yardımcı olabilir misiniz. Aslında bugüne eşit ikinci tarihi bulamıyorum.

Private Sub UserForm_Initialize()
Dim ss As Integer
Dim ws As Worksheet
Dim say As Integer

Set ws = Sheets("Sayfa1")
ss = ws.Cells(Rows.Count, "a").End(xlUp).Row

For i = 2 To ss
If Date = ws.Cells(i, 4) Then

Label1.Caption = Cells(i, 2) & " " & Cells(i, 3)

End If
Next i
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub UserForm_Initialize()
    Dim Rng As Range, Say As Byte
    
    With Sheets("Sayfa1")
        For Each Rng In .Range("D2:D" & .Cells(.Rows.Count, 1).End(3).Row)
            If Rng.Value = Date Then
                Say = Say + 1
                Me.Controls("Label" & Say).Caption = .Cells(Rng.Row, 2) & " " & .Cells(Rng.Row, 3)
            End If
        Next
    End With
End Sub

 

[Astalavista58]

Sayın Korhan hocam çok teşekkür ediyorum elinize sağlık

 

[sentooki]

Değerli
Korhan Ayhan hocam

"Sayfa açıldığında; E1 hücresindeki tarihe ait ay, içinde bulunduğumuz (bu gün) aydan farklı ise 'msgbox' ile uyarı ver" şeklinde özetleyebileceğim bir kod yazmaya çalıştım. (Örneğin bu gün 13.04.2023. E1 hücresinde ise 13.02.2023 yazıyor olsun. Nisan ayı ile Şubat ayı aynı değil. Bu yüzden beni uyar.)

kod şöyle:

Sub AUTO_OPEN()
Dim KOMUT As String


GEAY = Format(Sheets("ÇİZELGE").Range("E1").Value, "MMMM")
CEAY = Format(Date, "MMMM")

KOMUT = MsgBox("Ait Olduğu Ay alanında ( " & GEAY & " ) ayı görünüyor. Şimdi ( " & CEAY & " ) ayındayız. Tarihi düzeltmek ister misiniz?", 4 + vbQuestion)


If Format(Sheets("ÇİZELGE").Range("E1").Value, "MMMM") <> Format(Date, "MMMM") Then



If KOMUT = 6 Then

Sheets("ÇİZELGE").Range("E1") = Now

Range("B10") = Sheets("ÇİZELGE").Range("E1").Value
Range("B11") = Sheets("ÇİZELGE").Range("E1").Value
Range("B12") = Sheets("ÇİZELGE").Range("E1").Value
Range("B13") = Sheets("ÇİZELGE").Range("E1").Value
Range("B14") = Sheets("ÇİZELGE").Range("E1").Value


End If
End If
End Sub

Bu kod sürekli uyarı veriyor. E1 hücresindeki ay ile içinde bulunduğumuz ay aynı olsa da uyarı veriyor. Farklı olsa da uyarı veriyor. İçinde bulunduğumuz ay ile E1 hücresindeki tarihin ayı farklı ise mesaj kutusu ile uyarsın, aynı ise işlem yapmadan çıksın istiyorum. Yardımcı olur musunuz?
Teşekkürler.

 

[Korhan Ayhan]

@sentooki,

Sorunuzun bu başlıkla bağlantısı nedir?