Soru Kısa Bir Döngü

[Quented]

herkese merhabalar do while döngüsü ile 36 aydan fazla olan verileri renklendiren bir tablo yapmam gerekiyor ve bunun çalıştığını göstermem adına dakika formatınada çevirebilmem gerekiyor şimdiden teşekkür ederim yardımınız için

 

[Quented]

Buda örnek dosyasıdır
https://dosya.co/5yuqk5yawkrt/3yıl.xlsm.html
sadece renklendirme var bunda

 

[metehan8001]

Koşullu biçimlendirme ile yapmak istersen aşağıdaki resimde görüldüğü gibi formülü uygulayın.

=TARİH(YIL(BUGÜN());AY(BUGÜN())-36;GÜN(BUGÜN()))<A1

 

[metehan8001]

Koşullu biçimlendirme ile yapmak istersen aşağıdaki resimde görüldüğü gibi formülü uygulayın.

=TARİH(YIL(BUGÜN());AY(BUGÜN())-36;GÜN(BUGÜN()))<A1

makro kodu:

Sub Deneme()
i = 2
Do
If Cells(i, 1) < DateSerial(Year(Date), Month(Date) - 36, Day(Date)) Then
Cells(i, 1).Font.Color = vbGreen
Else
Cells(i, 1).Font.Color = vbBlack
End If
i = i + 1
Loop While Cells(i, 1).Value <> ""
End Sub

 

[Quented]

makro kodu:

Sub Deneme()
i = 2
Do
If Cells(i, 1) < DateSerial(Year(Date), Month(Date) - 36, Day(Date)) Then
Cells(i, 1).Font.Color = vbGreen
Else
Cells(i, 1).Font.Color = vbBlack
End If
i = i + 1
Loop While Cells(i, 1).Value <> ""
End Sub

teşekkür ederim 1 haftadır üstünde uğraşıyordum yeni başladım visual basic yazmaya çok yardımcı oldunuz teşekkürler