Zoeken, kopieren, plakken (VBA excel)

[rvt1982]

Beste Mensen,

Ik ben opzoek naar een script die voor mij een bepaalde cel waarde zoekt en de cellen die er naast staan kopieert (bijvoorbeeld 12 naar rechts t/m 15 naar beneden) en dan op een andere locatie weer plakt.


Het is hetzelfde idee als de script hieronder (kopieren, zoeken, plakken) alleen andersom (waarde zoeken, kopieren, plakken)

    Sheets("process-plan").Range("D3:CI11").Copy
    Windows("DATA.xls").Activate
    With Sheets("Data Crewing").Columns(1).Find(ThisWorkbook.Sheets("process-plan").Range("B17"), , xlValues, xlWhole)
        .Offset(0, 2).PasteSpecial Paste:=xlPasteValues
    End With

wie kan mij hier mee helpen?

alvast bedankt.

 

[rvt1982]

Iemand ??