Değer Değiştirici 3

[SamiDINCER]

Sayın Üstadlarımız,
Tek hücredeki bir tarihi, örneğin:13.12.2008 formatlı tarihi Gün Ay ve Yıl'ı ayrı ayrı üç adet buton (Değer değiştirici) koyarak değiştirmek mümkünmü. Yardımlarınız için şimdiden teşekkür ederim.

 

[Haluk]

Merhaba;

Ekli dosyaya bir ara göz atarsınız.

.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub SpinButton1_SpinDown()
Range("B2").Value = Range("B2").Value + 1
End Sub

Private Sub SpinButton1_SpinUp()
Range("B2").Value = Range("B2").Value - 1
End Sub

Private Sub SpinButton2_Change()

End Sub

Private Sub SpinButton2_SpinDown()
Range("B2").Value = DateSerial(Year(Range("B2").Value), Month(Range("B2").Value) + 1 _
, Day(Range("B2").Value))

End Sub

Private Sub SpinButton2_SpinUp()
Range("B2").Value = DateSerial(Year(Range("B2").Value), Month(Range("B2").Value) - 1 _
, Day(Range("B2").Value))
End Sub

Private Sub SpinButton3_Change()

End Sub

Private Sub SpinButton3_SpinDown()
Range("B2").Value = DateSerial(Year(Range("B2").Value) + 1, Month(Range("B2").Value) _
, Day(Range("B2").Value))
End Sub

Private Sub SpinButton3_SpinUp()
Range("B2").Value = DateSerial(Year(Range("B2").Value) - 1, Month(Range("B2").Value) _
, Day(Range("B2").Value))
End Sub

 

[Orion1]

Haluk hocam kusura bakmayın.Sizin cevabınızı görmedim.Yoksa sizin kodun üstüne kod yazmak haddime değil.İyi akşamlar.

 

[Haluk]

Evren bey, hiç olur mu öyle şey ?

Burada hepimiz birbirimizden birşeyler öğreniyoruz.

.

 

[SamiDINCER]

Değerli Üstadlarımız,
Sayın Haluk
Sayın Evren Gizlen verdiğiniz iki farklı cevap için çok teşekkür ederim. Allah çalışmalarınızı ve başarılarınızı daim etsin.