Cel met 1 ophogen

[ewh]

een voorbeeldje is bijgesloten

als je een cel in kolom B selecteert en dan de button gebruikt zal de bijbehorende cel in kolom C met 1 verhogen

iemand een idee?

Bekijk bijlage 1 OPHOGEN.xlsx

 

[edmoor]

Zoiets:

Private Sub CommandButton1_Click()
    If ActiveCell.Column = 2 And ActiveCell.Row > 1 Then
        ActiveCell.Offset(, 1) = ActiveCell.Offset(, 1).Value + 1
    End If
End Sub

 

[ewh]

top

bedankt

 

[edmoor]

Dit is wat netter:

Private Sub CommandButton1_Click()
    With ActiveCell
        If .Column = 2 And .Row > 1 Then .Offset(, 1) = .Offset(, 1).Value + 1
    End With
End Sub

 

[snb]

Mijn voorkeur (zonder extra knop)
dubbelklik in kolom B

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 2 And Target.Count = 1 And Target <> "" Then
        Target.Offset(, 1) = Target.Offset(, 1) + 1
        Cancel = True
    End If
End Sub