bugünün tarihine git makrosu

[OKUROGLU3375]

Selamlar

Ahmet - Mehmet - Hasan - Hüseyin gibi birçok dosya var

Bulunduğu dosyada (B) sütunundaki bugünün tarihine git makrosu yapabilirmiyiz.

Yardımlarınız için teşekkürler

 

[OKUROGLU3375]

...

 

[Necdet]

Merhaba,
Tarihlerin düzenli gittiğini ve B18 Hücresinin yılın ilk tarihi olduğu varsayılarak aşağıdaki kodu deneyiniz.

Sub Git()

Dim i As Long

i = Date - Range("B18")
Range("B" & i + 18).Select

End Sub

 

[OKUROGLU3375]

Teşekkürler. Hayırlı akşamlar olsun