waarde plaatsen in een andere cel

[Roncancio]

Ha, met trial en error heb ik het zelf opgelost.
Nogmaals enorm bedankt voor al je hulp. Zoveel onbaatzuchtigheid kom je niet vaak tegen.

JPP

Graag gedaan.
Gaarne nog de vraag op opgelost zetten (bovenaan deze pagina).
Bvd.

@JackNouws
Je codes zijn met sprongen vooruitgegaan!:thumb:
Geen .Select e.d.

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Je codes zijn met sprongen vooruitgegaan!:thumb:
Geen .Select e.d.

@Roncancio
Laten we eerlijk, zijn om deze code goed te krijgen was toch een inkoppertje :d
Alle credits gaan naar jou natuurlijk.

Private Sub Worksheet_Calculate()
Dim iKolom As Integer
For iKolom = 6 To 13
If Cells(12, iKolom) <> Cells(24, iKolom) Then Cells(12, iKolom) = Cells(24, iKolom)
Next
Dim iKolom As Integer
For iKolom = 6 To 13
If Cells(22, iKolom) <> Cells(26, iKolom) Then Cells(22, iKolom) = Cells(26, iKolom)
Next
End Sub

Met vr gr
Jack