VBA de tarih formatı nasıl?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Hücreye =bugün() yazdığımızda 09.06.2016 geliyor, eğer hücre sayı göstermeye ayarlı ise bu sefer de 42530 geliyor. verilen tarih yazı arasında ise metneçevir(42530;"gg.aa.yyyy") ifadesi ile düzeltiyoruz.
VBA de tarihi kopyalarken sayı olarak kopyalıyor. Bunu nasıl "gg.aa.yyyy" formatında kopyalatabilirim?
Saygılarımla

 

[YUSUF44]

Aşağıdaki kod satırı, A1 hücresine o günün tarihini cümle içinde kullanır:

[a1] = WorksheetFunction.Text(Date, "dd/mm/yyyy") & " günü işe başlandı."

 

[Tevfik_Kursun]

Merhaba Sayın Yusuf44 Arkadaşım,
Hazırladığınız, cümle içinde kullanmak için. A1 hücresinde tarih var ben onu C2 hücresine kopyaladığımda tarih sayısı olarak kopyalıyor. Bunu doğru formatta kopyalatmak istiyorum.
İlginize teşekkür ederim.
Saygılarımla

 

[YUSUF44]

[C2] =WorksheetFunction.Text([A1], "dd/mm/yyyy")

 

[Tevfik_Kursun]

Şimdi oldu, çok teşekkür ederim Yusuf44 Hocam.
Saygılarımla

 

[yusuf1284]

[C2] =WorksheetFunction.Text([A1], "dd/mm/yyyy")

Hocam bu şekilde hücreye veri yazdırdım fakat hücre tarih formatına dönmedi genelde kaldı hücreye çift tıklama yapıp çıkınca düzeldi çözümü var mı

 

[yusuf1284]

DateValue(Format(Now, "dd.mm.yyyy"))
Bu şekilde çözdüm hocam teşekkür ederim

 

[Korhan Ayhan]

Böylede olabilir.

Range("A1") = CDate(Now)

 

[YUSUF44]

Hocam bu şekilde hücreye veri yazdırdım fakat hücre tarih formatına dönmedi genelde kaldı hücreye çift tıklama yapıp çıkınca düzeldi çözümü var mı

Hayırlı bayramlar.

Sorun çözülmüş, ben nedenini belirteyim:

Text ifadesi metin anlamına geliyor, yani bu özelliği kullanarak sayıları metin biçimine çeviriyoruz. Dolayısıyla hücrede metin olarak görünmesi çok normal. Çift tıklayınca artık hücreye yeni bir veri girmiş oluyoruz, Excel tarih olduğunu algılıyor.

 

[yusuf1284]

YUSUF44 @Korhan Ayhan Hocam burada nerede hata yapıyorum

SonSat = Cells(Rows.Count, "H").End(3).Row

Range("H4:H" & SonSat).Value = CDate(Format(Range("H4:H" & SonSat), "dd.mm.yyyy"))

 

[YUSUF44]

YUSUF44 @Korhan Ayhan Hocam burada nerede hata yapıyorum

SonSat = Cells(Rows.Count, "H").End(3).Row

Range("H4:H" & SonSat).Value = CDate(Format(Range("H4:H" & SonSat), "dd.mm.yyyy"))

Bununla ne yapmaya çalışıyorsunuz?

 

[yusuf1284]

Bununla ne yapmaya çalışıyorsunuz?

Hocam bir programdan çıktı alıyorum tarih filtresi yapamıyorum

 

[yusuf1284]

Hocam bir programdan çıktı alıyorum tarih filtresi yapamıyorum

Ekli dosyayı görüntüle 238026

2000 e yakın veri var bu şekilde

 

[Korhan Ayhan]

Görseldeki tarih gibi görünen veriyi yanındaki boş bir hücrede 1 ile çarptığınızda doğru tarih bilgisini alabiliyor musunuz? Bunu bir test ediniz.

Örnek;

=A2*1

Bu işlem size hücredeki doğru tarihi döndürüyor mu?

 

[yusuf1284]

Görseldeki tarih gibi görünen veriyi yanındaki boş bir hücrede 1 ile çarptığınızda doğru tarih bilgisini alabiliyor musunuz? Bunu bir test ediniz.

Örnek;

=A2*1

Bu işlem size hücredeki doğru tarihi döndürüyor mu?

Evet döndü hocam kod olarak toplu nasıl yaptırabilirim hocam

 

[Korhan Ayhan]

O zaman şu işlemi yapabilirsiniz.

Boş hücreye 1 yazın.
Sonra bu hücreyi kopyalayın.
Sonra bozuk formattaki tarih olan alanı mouse ile seçin.
Sonra seçtiğiniz alan üzerinde sağ tıklayın ve ÖZEL YAPIŞTIR menüsünü açın.
Açılan menüden DEĞERLERİ ve ÇARP seçeneğini seçerek işlemi tamamlayın.

Bu aşamadan sonra filtre uygulayabilirsiniz.

 

[yusuf1284]

Her ay bu işlemi yapmam gerekiyor o zaman kod olarak yapamayız değil mi

 

[Korhan Ayhan]

MAKRO KAYDET yöntemini kullanarak işlemi koda dönüştürüp kullanabilirsiniz.

 

[yusuf1284]

Deniyorum hocam teşekkür ederim

 

[yusuf1284]

Bu şekilde çözdüm teşekkür ederim