Williewammes
Gebruiker
- Lid geworden
- 12 mei 2020
- Berichten
- 28
Ik heb een excel gemaakt waar er bij het klikken op een willekeurige cel in kolom D de waarde uit de cel in kolom E geplakt wordt in de cel in kolom D.
Vervolgens moet de hele rij gekopieerd worden en geplakt worden in de eerste lege rij in tabblad "Historie" (als log file).
Nu werkt het eerste kopieren en plakken prima en ook het selecteren en kopieren van de gehele rij werkt, alleen geeft hij de volgende foutmelding "Methode Activatie van klasse Range Mislukt".
Het eerste stuk van de code had ik een tijd geleden al via deze website verkregen en ik vermoed dat er aan het begin van de code iets staat waardoor dit laatste stukje code nu niet werkt.
graag jullie advies. Hieronder de code:
----------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 And Target.Row > 1 Then
If MsgBox("Opnieuw berekenen?", vbQuestion + vbYesNo, "Datum volgende controle") = vbYes Then Target = Target.Offset(, 1)
Cancel = True
ActiveCell.EntireRow.Select
Selection.Copy
Sheets("Historie").Activate
Range("A3").Activate
Selection.End(xlDown).Activate
ActiveCell.Offset(1, 0).Activate
ActiveCell.EntireRow.Select
Selection.Paste
End If
End Sub
--------------------
Vriendelijke groet,
W. Veldhuis
Vervolgens moet de hele rij gekopieerd worden en geplakt worden in de eerste lege rij in tabblad "Historie" (als log file).
Nu werkt het eerste kopieren en plakken prima en ook het selecteren en kopieren van de gehele rij werkt, alleen geeft hij de volgende foutmelding "Methode Activatie van klasse Range Mislukt".
Het eerste stuk van de code had ik een tijd geleden al via deze website verkregen en ik vermoed dat er aan het begin van de code iets staat waardoor dit laatste stukje code nu niet werkt.
graag jullie advies. Hieronder de code:
----------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 And Target.Row > 1 Then
If MsgBox("Opnieuw berekenen?", vbQuestion + vbYesNo, "Datum volgende controle") = vbYes Then Target = Target.Offset(, 1)
Cancel = True
ActiveCell.EntireRow.Select
Selection.Copy
Sheets("Historie").Activate
Range("A3").Activate
Selection.End(xlDown).Activate
ActiveCell.Offset(1, 0).Activate
ActiveCell.EntireRow.Select
Selection.Paste
End If
End Sub
--------------------
Vriendelijke groet,
W. Veldhuis