belli bir tarihe gün ekletme?

Katılım
28 Aralık 2005
Mesajlar
52
Altın Üyelik Bitiş Tarihi
22-04-2020
Merhabalar,

Ekteki dosyada B4 hücresinin A4 hücresindeki tarihten 90 gün sonrasının tarihini vermesini istiyorum.

Bunu yaparken de ayların 30 ve 31 gün çekmesinin hesaba katılması gerekiyor.
Ben uğraştım ama çözüm bulamadım. Yardım edebilirmisiniz?

Saygılar,teşekkürler...
 

İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
17,104
Excel Vers. ve Dili
Excel, 365 - İngilizce
=A4+90

Hücre biçimi genel veya sayı olmuyor mu?

.
 
Katılım
28 Aralık 2005
Mesajlar
52
Altın Üyelik Bitiş Tarihi
22-04-2020
Sn. yurttas aslında şunu sormak istiyordum:
e5 hücresi örnekte verdiğim şekilde kalan gün sayısı için belirttiğim renklerde gözüksün. Tabi ben bayağı bir eksik sordum soruyu:)
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,542
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Gerçi siz sorunuzu fonksiyonlar bölümüne sormuşsunuz ama ben size kodla çözüm önereceğim. Aşağıdaki kodu boş bir modüle ekleyip dosyanızı kaydedin ve kapatın. Dosyanızı her açışınızda durum sütunu tarihlere göre kontrol edilip yeniden renklendirilecektir.

Kod:
Sub AUTO_OPEN()
    [E5:E65536].Interior.ColorIndex = xlNone
    For X = 5 To [A65536].End(3).Row
    GÜN = Cells(X, 3) - Date
    If G&#220;N >= 61 And G&#220;N <= 90 Then
    Cells(X, 5).Interior.ColorIndex = 6
    ElseIf G&#220;N >= 31 And G&#220;N <= 60 Then
    Cells(X, 5).Interior.ColorIndex = 44
    ElseIf G&#220;N >= 16 And G&#220;N <= 30 Then
    Cells(X, 5).Interior.ColorIndex = 45
    ElseIf G&#220;N >= 8 And G&#220;N <= 15 Then
    Cells(X, 5).Interior.ColorIndex = 46
    ElseIf G&#220;N < 7 Then
    Cells(X, 5).Interior.ColorIndex = 4
    ElseIf G&#220;N = 0 Then
    Cells(X, 5).Interior.ColorIndex = 3
    End If
    Next
End Sub
 
Üst