Sub tarihduzelt()
For n = 2 To [a65536].End(xlUp).Row
Cells(n, 2) = DateSerial(Left(Cells(n, 1), 4), Mid(Cells(n, 1), 5, 2), Right(Cells(n, 1), 2))
Next
End Sub
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.