Çözüldü Tarih Formatına Dönüştürme

okan32 · 11 Şub 2019

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 · 11 Şub 2019

Aşağıdaki Kod ile problem çözüldü arkadaşlar

Kod:

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

Murat OSMA · 14 Şub 2019

Merhaba,
Bu kodunuz, sayfadaki herhangi bir hücreyi seçtiğinizde, B sütununda 2. satırdan 65536. satıra kadar tek tek bakar ve istediğiniz formata çevirir.
Yani; gereksiz yere 65536 hücreye baktırma durumunuz oluşur. SelectionChange olayı burada tercih edilmemeliydi. Ayrıca sizin isteğiniz hücreye tarih yazdığımda belirtilen tarih formatına dönüşmesiydi.

Hücreye veri girişi olduğunda onu istediğiniz formata dönüştürmek ve diğer olası kontrolleri de gerçekleştirerek stabil bir şekilde çalışması için bu kodları kullanmanızı tavsiye ederim.

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Format(Target.Value, "##"".""##"".""####")
    If Not IsDate(Target.Value) Then Target.Value = "": Target.Select
    Application.EnableEvents = True
End Sub

Çözüldü Tarih Formatına Dönüştürme

okan32

okan32

Murat OSMA