Hangi alanı seçersem atadığım buton değeri bir arttırsın

[aboneo]

Hücreleri belirterek değil de benim o anda seçeceğim hücrelerdeki sayılar makro atadığım sayı arttırma butonuna basınca değer 1 artsın. Yardımcı olursanız sevinirim.

Kod: Sub YukarıOk1_Tıklat() Selection.Cells.Value = Selection.Cells.Value + 1 End Sub
Sub AşağıOk1_Tıklat() Selection.Cells.Value = Selection.Cells.Value - 1 End Sub

Bu makroyu kullanarak birden çok hücre seçtiğimde hata veriyor. Değer bulunan herhangi bir tek hücre seçtiğimde ise çalışıyor. Ben o an için seçtiğim (birden fazla) hücrelerdeki değerlerin 1 artmasını istiyorum.

 

[Korhan Ayhan]

Merhaba,

Kullandığınız ofis sürümü ve dili nedir?

 

[aboneo]

Merhaba,

Kullandığınız ofis sürümü ve dili nedir?

Merhaba Korhan Bey, office 2016 dil Türkçe, şuan işyerinde değilim.

 

[Korhan Ayhan]

Rica etsem bu bilgiyi profilinizde yazan aşağıdaki bilgi yerine yazarak güncelleyebilirmisiniz.

Excel Vers. ve Dili Bilmiyorum

 

[aboneo]

Office 2016 Excel VBA. Teşekkürler.

 

[Korhan Ayhan]

Çoklu hücre seçimleri için döngü kullanabilirsiniz..

Option Explicit

Sub YukarıOk1_Tıklat()
    Dim Rng As Range
    For Each Rng In Selection
        Rng.Value = Rng.Value + 1
    Next
End Sub

Sub AşağıOk1_Tıklat()
    Dim Rng As Range
    For Each Rng In Selection
        Rng.Value = Rng.Value - 1
    Next
End Sub

 

[aboneo]

Teşekkürler Korhan Bey, ilk fırsatta deneyip dönüş yapacağım.

 

[aboneo]

Korhan bey kod çalıştı, işimi gördü. Çok teşekkür ederim.