is er logica aanwezig ?

[Willem Blaas]

geacht forum,

afgelopen dagen prima geholpen door div vrijwilligers cq medewerkers.
uiteindelijk kwam een code tevoorschijn die goed werkte , maar :
voor de nieuwe code kon ik t nog aardig volgen cq uitleggen over hoe en wat
maar met de onderstaande code heb ik toch wel wat moeite bv met de vierkante haakjes en de kreet offset en ook de -1 , vroeger kon het zijn dat je relatieve
regel cq cel bewoog maar nu ?

is hier een simpele (?) voor of kan ik dat ergens vinden want ik wil wel een beetje bijbliven

met vr groet willem blaas

With Sheets("kengetal_01").Columns(2).Find(Txtzkplaats, , xlValues, xlPart)
.Copy [kengetal_03!B14]
.Offset(, -1).Copy [kengetal_03!B9]
.Offset(, 1).Copy [kengetal_03!B19]
End With

 

[Roncancio]

1. With Sheets("kengetal_01").Columns(2).Find(Txtzkplaats, , xlValues, xlPart)
2. .Copy [kengetal_03!B14]
3. .Offset(, -1).Copy [kengetal_03!B9]
4. .Offset(, 1).Copy [kengetal_03!B19]
5. End With

Uitleg per regel:
1. Zoeken naar Txtzkplaats op het werkblad kengetal_01 in kolom B
2. De gevonden cel kopiëren naar cel B14 van kengetal_03.
3. Cel 1 kolom vóór gevonden cel (op dezelfde regel dus) kopiëren naar cel B9 van kengetal_03.
4. Cel 1 kolom ná gevonden cel (op dezelfde regel dus) kopiëren naar cel B19 van kengetal_03

Met vriendelijke groet,


Roncancio

 

[Willem Blaas]

1. With Sheets("kengetal_01").Columns(2).Find(Txtzkplaats, , xlValues, xlPart)
2. .Copy [kengetal_03!B14]
3. .Offset(, -1).Copy [kengetal_03!B9]
4. .Offset(, 1).Copy [kengetal_03!B19]
5. End With

Uitleg per regel:
1. Zoeken naar Txtzkplaats op het werkblad kengetal_01 in kolom B
2. De gevonden cel kopiëren naar cel B14 van kengetal_03.
3. Cel 1 kolom vóór gevonden cel (op dezelfde regel dus) kopiëren naar cel B9 van kengetal_03.
4. Cel 1 kolom ná gevonden cel (op dezelfde regel dus) kopiëren naar cel B19 van kengetal_03

Met vriendelijke groet,


Roncancio

bedankt tot zover, ga ermee aan de slag want stilstaan is achteruitgang he, vandaar

groet willem blaas