Sayıları 1er arttırma

[bthn35]

Merhaba,
EK'teki excel'de U5 hücresine yazdığımı V sütununda aratıp butona bastığımda W sütununda sayının 1 tane artmasını istiyorum. Mümkün mü acaba?

 

[ÖmerFaruk]

Aşağıdaki kodu modüle içine kopayalayıp butona atayın

Sub BulVeBirArtır()
Dim xCell As Range
For Each xCell In Range("V3:V9")
    If xCell = [U5] Then
        xCell.Offset(0, 1) = xCell.Offset(0, 1) + 1
        Exit Sub
    End If
Next xCell
End Sub

 

[ugrkrnfl]

Ömer Bey paylaşmış.

 

[nunikmakarios]

Bu uygun mu?

 

[bthn35]

Oldu, çok teşekkür ederim