Çözüldü Tarih Formatı

[okan32]

Arkadaşlar Kolay gelsin. Benim basit ama yapamadığım bir sorum olacaktı.
sayfamda b sütununa 11022019 tarih yazdığımda makro ile 11.02.2019 formatında olmasını istiyorum Şimdiden teşekkür ediyorum.

 

[okan32]

AŞAĞIDAKİ KOD İLE PROBLEM ÇÖZÜLDÜ ARKADAŞLAR

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To Range("b65536").End(3).Row
Range("b" & i).Value = Format(Range("b" & i).Value, "##"".""##"".""####")
Next i
End Sub

 

[turist]

Alternatif olarak aşağıdaki kodu deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
On Error Resume Next
Target.Value = CDate(WorksheetFunction.Text(Target, "00 00 0000"))
End Sub