Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Sub işlem()
For i = 2 To Range("d65536").End(xlUp).Row
If Cells(i, "d") <> "" Then
Cells(i, "d") = Format(Cells(i, "d"), "d.mm.yyyy")
End If
Next i
End Sub
Kodlarını ekleyin ve bir butona bağlayarak deneyin.
İyi çalışmalar.
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.