seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
Merhaba.Aşağıdaki kod ile Tablo sayfası B11 arası hücrelere artan şekilde günlük tarihleri yazdırıyorum.Ancak Tarihleri 01.01.2023 formatında yazdırıyor.Benim istediğim 01.01.23 şeklinde yazdırmak.Yardımcı olabilirseniz sevinirim.
Private Sub TextBox2_Change()
Sheets("Tablo").Range("B1") = DateSerial(TextBox1.Value, Split(TextBox2.Value, " ")(0), 1)
Sheets("Tablo").Range("B11").DataSeries Date:=xlDay
End sub
Private Sub TextBox2_Change()
Sheets("Tablo").Range("B1") = DateSerial(TextBox1.Value, Split(TextBox2.Value, " ")(0), 1)
Sheets("Tablo").Range("B11").DataSeries Date:=xlDay
End sub