Tarihi birer gün atlatmak

[Mdemir63]

arkadaşlar merhabalar

hücredemi tarihi değer değiştirici ekleyerek o hücreye birer gün arttırabilirmiyiz

örnek olsun diye dosya ekledim.

teşekkürler

 

[Ali]

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

olarak deneyin.

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Private Sub SpinButton1_SpinDown()
[B2] = [B2] + 1
End Sub

Private Sub SpinButton1_SpinUp()
[B2] = [B2] - 1
End Sub

Not:Kodlar sayfa modülünde olmalıdır.

 

[Merhum İdris SERDAR]

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

 

[Mdemir63]

Arkadaşlar hepsini denedim olmadı

 

[Recep İpek]

Eğer herhangi bir seçme işlemi yapmadığınızda güncel tarihin görünmesini istiyorsanız.

Private Sub SpinButton1_LostFocus()
[B2] = Date
End Sub

 

[Merhum İdris SERDAR]

Örnek dosya ekte.

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Private Sub SpinButton1_Change()
[A1] = [A1] + 1
[A1].Value = SpinButton1.Value
ActiveCell = Date + [A1]
End Sub

 

[Mdemir63]

hepinizin eline sağlık teşekkür ederim
Sn: Ripek son verdiğiniz kodlarıda sayfa1 modülüne mi kopyalayım

 

[Recep İpek]

.....Evet......

 

[Mdemir63]

iyiki sizler varsınız tüm arkadaşlara iyi günler
saygılar