• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çö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ş
42
Konum
Isparta
Ad Soyad
Ali Koç
Office Vers.
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ş
42
Konum
Isparta
Ad Soyad
Ali Koç
Office Vers.
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,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
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