[vb:1:306f188bd2]Sub tarih()
For a = 2 To [b65536].End(3).Row
deg = Cells(a, "b")
Cells(a, "c") = DateSerial(Year(deg), Month(deg) + 1, 20)
Next
End Sub
[/vb:1:306f188bd2]
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.