Aşağıdaki kodu dosyanızda bir butona bağlayarak çalıştırın.
[vb:1:bf4329f382]Sub tarih()
For a = 3 To [a65536].End(3).Row
deg = Cells(a, "a")
Cells(a, "b") = DateSerial(Year(Date), Month(deg), Day(deg))
Next
End Sub[/vb:1:bf4329f382]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.