- Katılım
- 15 Temmuz 2012
- Mesajlar
- 2,790
- Excel Vers. ve Dili
- Ofis 2021 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 29.03.2025
Merhaba herkese hayırlı geceler.
Ekte gönderdiğim excel dosyamın sayfasında örnek olarak 21 ile 26'sı arasında tarihler var, hücre biçimlendirmede hücrelerin hepsi tarih formatında olduğu halde filtrede farklı tarih formatı çıkıyor.
Başka bir sayfada tarih aralıklarında toplama yapmak istediğimde normal tarih olarak yazılı olanları görmediği için toplamıyor. Tarihlerin bulunduğu hücre içerisine F2 ile girip Enter ile çıkış yapıldığı zaman filtrede farklı görünün tarihler düzeliyor. Bu işlemi yapmak için aşağıdaki kod var ancak bu işlemde bu sefer çok uzun sürüyor.
Bu işlemi yapmak için tek seferde hepsini aynı tarih formatına nasıl getirebilirim. Yardımcı olur musunuz?
Ekte gönderdiğim excel dosyamın sayfasında örnek olarak 21 ile 26'sı arasında tarihler var, hücre biçimlendirmede hücrelerin hepsi tarih formatında olduğu halde filtrede farklı tarih formatı çıkıyor.
Başka bir sayfada tarih aralıklarında toplama yapmak istediğimde normal tarih olarak yazılı olanları görmediği için toplamıyor. Tarihlerin bulunduğu hücre içerisine F2 ile girip Enter ile çıkış yapıldığı zaman filtrede farklı görünün tarihler düzeliyor. Bu işlemi yapmak için aşağıdaki kod var ancak bu işlemde bu sefer çok uzun sürüyor.
Bu işlemi yapmak için tek seferde hepsini aynı tarih formatına nasıl getirebilirim. Yardımcı olur musunuz?
Kod:
Sub SayıyaÇevir()
Application.Calculation = xlCalculationManual
ActiveSheet.Range("B2").Select
For i = 2 To ActiveSheet.Range("B" & Rows.Count).End(3).Row
SendKeys "{F2}"
SendKeys "{ENTER}"
If ActiveCell.Row > ActiveSheet.Range("B" & Rows.Count).End(3).Row Then Exit Sub
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
Ekli dosyalar
-
77.2 KB Görüntüleme: 10