Çözüldü Userform üzerindeki spin buton ile sayfada tarih değiştirme?

[s.savas]

Merhaba arkadaşlar.
Excel sayfasındaki şablonda (imza föyü) bulunan spin buton ile c7 hücresindeki tarihi ay bazında ileri- geri değiştirebiliyorum.

Bu işlemi userform üzerine koyduğum spin button ile yapmak istiyorum. Yardımcı olurmusunuz.

 

[Mdemir63]

Selamlar
Ekteki dosyayı inceleyiniz

 

[s.savas]

Selamlar
Ekteki dosyayı inceleyiniz

Teşekkür ederim üstat.
Kod mevcut kod ile tarihteki gün değişiyor. Tarihin 01.01.2019 olduğunu kabul edersek burada sadece ay'ın değişmesini sağlayabilirmiyiz.

 

[Haluk]

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...

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

.

 

[s.savas]

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...

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.
Aşağıdaki şekilde kod çalıştı.

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

Burada 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.

 

[Haluk]

Private Sub UserForm_Initialize()
    TextBox5.Text = DateSerial(Year(Date), Month(Date), 1)
End Sub

.

 

[s.savas]

Private Sub UserForm_Initialize()
    TextBox5.Text = DateSerial(Year(Date), Month(Date), 1)
End Sub

.

Teşekkür ederim üstat. Sorun çözülmüştür.