Excelde girilen satır numarasına göre hücre değerini 1 artıran makro lazım...

[spustu]

Hazırlamış olduğum sınıf anketinde satır numarasını girdiğimde girilen satırdaki hücre değerini bir artıran bir formül veya makro lazım... Yardımlarınızı bekliyorum... Çok acil...

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("F32")) Is Nothing Then Exit Sub
    If Target <> "" And IsNumeric(Target) Then
        Cells(Target.Value, "F") = Cells(Target.Value, "F") + 1
    End If
End Sub