Buton ile Hücredeki Sayıyı Artırma

[ormann]

İyi geceler,
A sayfasında J5 hücresindeki herhangi bir sayıyı 1 artırmak için nasıl bir makro uygularız.Örnegin J5 hücresinde 500 rakamı var.Butona bastığımızda bu rakam 501 olacak.

 

[muygun]

Merhaba;

Sub artır()
Sheets("A").Range("J5") = Sheets("A").Range("J5") + 1
End Sub