Macro aanpassen

[Drieband]

Kan deze macro aangepast worden zodat deze ook werkt in een beveiligd blad?
Zo hoef ik enkel de entertoets te gebruiken om van cel te wisselen.
En indien mogelijk kunnen de ingebrachte gegevens in A1 en A2 ook telkens weggeschreven worden naar Sheet 2?Bekijk bijlage Kopie van optellen-1.xlsm

 

[Cobbe]

Zo goed genoeg?

 

[E v R]

suggestie voor code achter sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo einde:
Select Case Target.Address
    Case "$A$1", "$A$2"
        Application.EnableEvents = False
        Cells(Target.Row, 2) = Cells(Target.Row, 2) + IIf(IsNumeric(Target.Value), Target.Value, 0)
        Target.ClearContents
    Case Else
End Select
einde:
 Application.EnableEvents = True
End Sub

 

[Drieband]

Zowel de code van Cobbe als die van EVR werken prima.
Hebben jullie misschien ook een suggestie voor mijn tweede vraag?
Na ingave zou ik willen dat deze worden weggeschreven naar Sheet2 en liefst onder mekaar en dit 20 maal.

 

[Cobbe]

Wellicht zo:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo einde:
Select Case Target.Address
    Case "$A$1", "$A$2"
        Application.EnableEvents = False
        Cells(Target.Row, 2) = Cells(Target.Row, 2) + IIf(IsNumeric(Target.Value), Target.Value, 0)
        Sheets(2).Range("A1").End(xlDown).Offset(1) = Target.Value
        Target.ClearContents
    Case Else
End Select
einde:
 Application.EnableEvents = True
End Sub

Wel cel A1 van tab2 vullen.