FARKLI GÜNLERE TARİH YAZDIRMA

[kemalist]

[TR][TD]
Merhaba Arkadaşlar aşağıdaki kodla bugünün tarihini yazabiliyorum .


Benim istediğim bir gün öncesinin;iki gün öncesinin;üç gün öncesinin ;


Bir gün sonrasının; iki gün sonrasının; üç gün sonrasının tarihlerini yazdıracak makrolar.


Toplamda 6 farklı makro.


İlginiz için şimdiden teşekkür ederim.
[/TD][/TR]
[TR][TD]

[/TD][/TR]

 

[ÖmerFaruk]

Makronuzda düzeltme yaptım.

Sub BUGUN()
    For i = -3 To 3
        Range("F3").Offset(0, i).Value = Date + i
        Range("F3").Offset(0, i).NumberFormat = "dd.mm.yyyy"
    Next i
    Application.CutCopyMode = False
End Sub

 

[kemalist]

İlk önce ilginiz için teşekkür ederim yanlız Ben makroları ayrı ayrı yerlerde kullanacağımdan altı farklı makro istemiştim.Farklı çalışma sayfalarındada kullanacağım.

 

[Korhan Ayhan]

@kemalist,

Bunun için aşağıdaki kod satırıyla oynamanız yeterlidir. Bold bölümleri değiştirerek istediğiniz sonucu elde edebilirsiniz.

Range("F3").Value = Date + 1


Ek olarak aşağıdaki satır gereksiz gibi duruyor.

Application.CutCopyMode = False

 

[kemalist]

teşekkürler korhan hocam işlem tamam

 

[kemalist]

Sub TARIH()
Range("O2").Value = Date
Range("O2").NumberFormat = "dd.mm.yyyy"
Range("O2").Select
Range("S2").Value = Date - 1 '-- + VE (EKSİ) İLE ÖNCEKİ VE SONRAKİ GÜN 151 'E KADAR AYARLANABİLİR
Range("W2").Value = Date - 2
Range("AA2").Value = Date - 3
Range("A2").Value = Date + 1
Range("A6").Value = Date + 2
Range("G5").Value = Date + 3
End Sub

Korhan hocamın müsadesiyle başkalarına da yararlı olmak açısından paylaşıyorum.