dat komt door het rode gedeelte in de code.
probeer het eens zo:
p.s. probeer zelf maar eens te achterhalen waarom het fout ging.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Me.ListObjects(1).DataBodyRange
If Not Intersect(Target, .Columns(10)) Is Nothing Then
Target = "a"
Application.Wait DateAdd("s", 1, Now) 'deze regel kun je weghalen, maar zo zie je een beetje wat er gebeurt.
Sheets(2).ListObjects(1).ListRows.Add.Range = [COLOR="#FF0000"].Rows(Target.Row - 1)[/COLOR].Value
[COLOR="#FF0000"] .Rows(Target.Row - 1)[/COLOR].Delete
Cancel = True
End If
End With
End Sub
probeer het eens zo:
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Me.ListObjects(1).DataBodyRange
If Not Intersect(Target, .Columns(5)) Is Nothing Then
Target = "a"
Application.Wait DateAdd("s", 1, Now) 'deze regel kun je weghalen, maar zo zie je een beetje wat er gebeurt.
Sheets(2).ListObjects(1).ListRows.Add.Range = Cells(Target.Row, 1).Resize(, 5).value
Target.EntireRow.Delete
Cancel = True
End If
End With
End Sub
Laatst bewerkt: