Soru Dakika Olarak Değiştirmek

[Quented]

Sub üçyıl()
Dim cell As Range
    For Each cell In Sayfa1.Range("D2:D" & Sayfa1.Range("D" & Rows.Count).End(xlUp).Row)
    
    If Not IsDate(cell.Value) Then GoTo X:
    
    If IsEmpty(cell.Value) Then GoTo X:
              
        If cell.Value = DateAdd("yyyy", 3, Date) Then
                            
            cell.Font.ColorIndex = 3
        
        Else
X:
        cell.Interior.ColorIndex = 0
        
        End If
 
Next cell
End Sub

ben bunu nasıl dakika formatında çalıştırabilirim

 

[systran]

bu nasıl bir koddur? aman yarabbi

 

[Quented]

bu nasıl bir koddur? aman yarabbi

buradan bir arkadaş yardımcı olmuştu bana bu kod hakkında

 

[Quented]

bu nasıl bir koddur? aman yarabbi

excelde girilen veriden sonra 3 yıl geçtiğinde fontun kırmızı olmasını sağlayan bir kod

 

[uKiGS]

tamamen fikir yürüterek söylüyorum.

If cell.Value = DateAdd("yyyy", 3, Date) Then

bu kodda ki "yyyy" kısmını dakika ile değiştirek olabilir diye düşünüyorum. bir denemek gerek.

 

[Quented]

tamamen fikir yürüterek söylüyorum.

If cell.Value = DateAdd("yyyy", 3, Date) Then

bu kodda ki "yyyy" kısmını dakika ile değiştirek olabilir diye düşünüyorum. bir denemek gerek.

ilginiz için teşekkür ederim tam olarak koddaki "yyyy" kısmını "ss" olarak değiştirmem gerekiyor değil mi ben yanlış bilmiyorum

 

[Korhan Ayhan]

Linki inceleyiniz.

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/dateadd-function

 

[Quented]

Linki inceleyiniz.

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/dateadd-function

Teşekkür ederim yardımı oldu ilginiz için teşekkürler

 

[uKiGS]

ilginiz için teşekkür ederim tam olarak koddaki "yyyy" kısmını "ss" olarak değiştirmem gerekiyor değil mi ben yanlış bilmiyorum

Korhan hocam gerekli açıklamayı yapmış.

 

[Quented]

e

Korhan hocam gerekli açıklamayı yapmış.

evet kendisine çok teşekkür ederim tekrardan