waarden uit een bestand overnemen in een ander

[emielDS]

zo.

eerste bestand (1) (1).xlsm

[bernie6]

dit is perfect; hoedje af voor jou

[bakerman]

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("b2")) Is Nothing Then
    With Sheets("blad2")
        .Range("A" & .Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = Range("a2").Resize(, 2).Value
    End With
End If

End Sub

 

[bernie6]

bedankt, klopt ook

[kweezie wabbit]

Als je verder geen vragen of problemen meer hebt, geef dan een seintje zodat we dit onderwerp kunnen afsluiten.

[bernie6]

bericht mag afgesloten worden; ik werd heel goed geholpen