copy met VB met gebruik van celwaarde.

[Tegno]

Is hier een macro voor te maken

copy cellen I156:R156
waarde plakken naar kollom I + celwaarde I160 : kolom R +celwaarde I160

I160 haalt uit een tabel een rijnummer waar de vergelijking staat

dus bijvoorbeeld de vergelijking staat in rij 8 dan word er met waarde plakken I8:R8 geplakt

Bij voorbaat dank voor het lezen van mijn vraag.

 

[HSV]

Sub hsv()
 Cells(Range("i160"), 9).Resize(, 10) = Range("i156:R156").Value
End Sub

 

[Tegno]

Sub hsv()
 Cells(Range("i160"), 9).Resize(, 10) = Range("i156:R156").Value
End Sub

Dank je wel HSV
Het werkt perfect.