Hücredeki Sayıya +1 Ekleme Butonu

[herkek76]

Merhaba bir hücrede yazılı olan bir rakama Yeni Bilet No Oluştur diye bir VB ile o hücrede yazılı olan rakama her seferinden yine o hücreye +1 koymak istiyorum.

Örnek A5 hücresinde 503 yazılı diyelim, Yeni Bilet No Oluştur butona tıklayınca A5 hücresindeki rakam 504 olsun ve her tıklandığında +1 diye devam etsin.

Yardımlarınızı rica ediyorum.

 

[tukayf]

Sub Artir()
[a5] = [a5] + 1
End Sub

 

[byfika]

Alternatif,

Sub yukselt()
arttir = Range("a5") + 1
Range("a5") = arttir
End Sub