Çö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
37
En iyi yanıt
0
Puanları
8
Yaş
39
Konum
Isparta
Ad Soyad
Ali Koç
Office Versiyon
Office 365 TR
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
37
En iyi yanıt
0
Puanları
8
Yaş
39
Konum
Isparta
Ad Soyad
Ali Koç
Office Versiyon
Office 365 TR
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

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,293
En iyi yanıt
9
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
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
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt