DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Liste.SubItems(22) = Cells(i, 23).Value
If IsDate(Cells(i, 3)) Then
If Cells(i, 3) < Date Then
lcolor = vbRed
ElseIf Cells(i, 3) = Date Then
lcolor = vbBlue
Else
lcolor = vbBlack
End If
Else
lcolor = vbBlack
End If
ListView1.ListItems(i - 1).ForeColor = lcolor
For j = 1 To 22
Liste.ListSubItems(j).ForeColor = lcolor
Next j