Astalavista58
Altın Üye
- Katılım
- 20 Ocak 2020
- Mesajlar
- 242
- Excel Vers. ve Dili
- Office 2016 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 20-02-2025
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.
Kod:
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
Ekli dosyalar
-
16.1 KB Görüntüleme: 3
Son düzenleme: