- Katılım
- 12 Ocak 2009
- Mesajlar
- 838
- Excel Vers. ve Dili
- 2003
- Altın Üyelik Bitiş Tarihi
- 07-02-2024
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Teşekkür ederim üstat.Selamlar
Ekteki dosyayı inceleyiniz
Private Sub UserForm_Initialize()
TextBox1 = "01.01.2019"
End Sub
Private Sub SpinButton1_SpinDown()
TextBox1 = Format(WorksheetFunction.EDate(CDate(TextBox1.Text), -1), "dd.mm.yyyy")
End Sub
Private Sub SpinButton1_SpinUp()
TextBox1 = Format(WorksheetFunction.EDate(CDate(TextBox1.Text), 1), "dd.mm.yyyy")
End Sub
Haluk hocam teşekkür ederim.Sayfa üzerinde tarih değişimi için sanırım aşağıdaki linkten yararlandınız.
https://www.excel.web.tr/threads/ileri-geri-butonuyla-tarihin-ay-kismini-atlatma.180738/
Aynı işi UserForm üzerinde yapmak için; önce UserForm'un açılışında TextBox1 nesnesine "01.01.2019" tarihini yükledikten sonra aşağıdaki ufak kodla bu işi yapabilirsiniz...
.Kod:Private Sub UserForm_Initialize() TextBox1 = "01.01.2019" End Sub Private Sub SpinButton1_SpinDown() TextBox1 = Format(WorksheetFunction.EDate(CDate(TextBox1.Text), -1), "dd.mm.yyyy") End Sub Private Sub SpinButton1_SpinUp() TextBox1 = Format(WorksheetFunction.EDate(CDate(TextBox1.Text), 1), "dd.mm.yyyy") End Sub
Private Sub UserForm_Initialize()
TextBox5.Text = DateSerial(Year(Date), 1, 1)
End Sub
Private Sub SpinButton1_SpinDown()
TextBox5 = Format(WorksheetFunction.EDate(CDate(TextBox5.Text), -1), "dd.mm.yyyy")
Worksheets("IMZA FOYU").Range("C7") = TextBox5.Text
End Sub
Private Sub SpinButton1_SpinUp()
TextBox5 = Format(WorksheetFunction.EDate(CDate(TextBox5.Text), 1), "dd.mm.yyyy")
Worksheets("IMZA FOYU").Range("C7") = TextBox5.Text
End Sub
TextBox5.Text = DateSerial(Year(Date), 1, 1)
kodu içerisinde bulunduğumuz yılın ilk ayının 1.gününü gösteriyor. Şu şekilde düzeltebilirmiyiz. İçerisinde bulunduğumuz yılın ve ayın ilk günü gösterilsin.Teşekkür ederim üstat. Sorun çözülmüştür..Kod:Private Sub UserForm_Initialize() TextBox5.Text = DateSerial(Year(Date), Month(Date), 1) End Sub