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

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

okan32

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
25
En İyi Yanıtlar
1
Beğeniler
1
Puanları
3
Yaş
37
Konum
Isparta
#1
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

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
25
En İyi Yanıtlar
1
Beğeniler
1
Puanları
3
Yaş
37
Konum
Isparta
#2
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
 

Admin

Yönetici
Site Sahibi
Katılım
25 May 2018
Mesajlar
1,000
En İyi Yanıtlar
72
Beğeniler
773
Puanları
113
Konum
İstanbul
#3
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.

VBA:
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
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt