ik ben op zoek naar een tegenovergestelde code VBA

[vio]

Geachte helpemijer,
Onderstaande code haalt een copy uit blad 2 en plaatst die in blad1 in en afgebakende plaats. (Vb kun je vinden in http://www.helpmij.nl/forum/showthread.php?t=507435)
Deze copy wil ik bewerken en nadien terug plaatsen in het orginele blad met de veranderingen dus. Kan me iemand de code schrijven die dit mogelijk maakt.

vio

On Error Resume Next
Sheets("blad 1").[D1949].NumberFormat = "0"
Sheets("blad 2").Range("C23:C" & Sheets("blad2")
.[C65536].End(xlUp).Row).NumberFormat = "0"
For Each cl In Sheets("blad 1").[D1949]
c0 = Sheets("blad2").Columns(3).Find(cl.Value, , xlValues, xlWhole).Address
If Err.Number = 0 Then Sheets("blad 2").Range(c0).Offset(, 1).Resize(, 30).Copy cl.Offset(, 1)
Err.Clear
Next
Sheets("blad 1").[D1949].NumberFormat = "ddd) d/mm/yyyy"
Sheets("blad2").Range("C23:C" & Sheets("blad2").[C65536].End(xlUp).Row).NumberFormat = "ddd) d/mm/yyyy"

 

[Hoornvan]

vio,

Selecteer je geplaatste code en klik dan boven in het menu op #, dan komt de code tussen de tags te staan.

 

[huijb]

Het is onnodig om je vraag twee keer te plaatsen. Je mag hier verder http://www.helpmij.nl/forum/showthread.php?p=3271957#post3271957