Butonla Sayıyı Bir Arttırma

[vimpir]

Arkadaşlar elimizde bir sayfa da numalar var ve bir buton ile hücre içindeki sayının bir bölümünü 1 arttırmamız gerekiyor bunu nasıl yapabilirim.


Örnek A1 Hücresinde 29.10.12 yazıyor butona basıldığında 29 değişip 30 olucak ama 10 ve 12 sabit kalıcak bunlar bir hücrede gözüküyor.

 

[caneryamac]

Arkadaşlar elimizde bir sayfa da numalar var ve bir buton ile hücre içindeki sayının bir bölümünü 1 arttırmamız gerekiyor bunu nasıl yapabilirim.


Örnek A1 Hücresinde 29.10.12 yazıyor butona basıldığında 29 değişip 30 olucak ama 10 ve 12 sabit kalıcak bunlar bir hücrede gözüküyor.

Merhaba,

İstediğiniz ekteki gibi bir excel mi?

 

[vimpir]

hocam mantık olarak doğru ama uygulamada hata var 2 buton yerine tek buton olacak ve

GT-20.2017

20 değişicek yani ne yazarsam yazayım - den sonraki ilk iki rakam değişcek

 

[caneryamac]

hocam mantık olarak doğru ama uygulamada hata var 2 buton yerine tek buton olacak ve

GT-20.2017

20 değişicek

Ben ekte bir sayfa daha gönderiyorum , tek buton nasıl yapılır bilemedim. Dediğiniz gibi ekte yapmaya çalıştım.

 

[Korhan Ayhan]

Alternatif;

Kod A1 hücresi için çalışır.

Sub BİR_ARTTIR()
    Veri1 = Split(Range("A1").Value, ".")
    Veri2 = Split(Veri1(0), "-")
    Sayi = Veri2(1) + 1
    Veri = Veri2(0) & "-" & Sayi & "." & Veri1(1)
    Range("A1").Value = Veri
End Sub

 

[vimpir]

Ben ekte bir sayfa daha gönderiyorum , tek buton nasıl yapılır bilemedim. Dediğiniz gibi ekte yapmaya çalıştım.

Caner Hocam İstediğimiz gibi olmuş ama bunu kopyalayıp ikinci bir numaratör yaptığımda butonlar yine ilk numaratörü tetikliyor

 

[caneryamac]

Caner Hocam İstediğimiz gibi olmuş ama bunu kopyalayıp ikinci bir numaratör yaptığımda butonlar yine ilk numaratörü tetikliyor

Kaç tane numaratör istiyorsanız gizli olan sütünları açıp kendinize göre ayarlayabilirsiniz.Yada örnek koyun ve kaç tane gerekdiğini gösterirseniz yardımcı olayım