Fout in het zoeken en opslaan

[rvt1982]

Beste leden,

Ik heb de volgende code, maar ik doe iets fout, maar weet niet wat.

Wie kan mij helpen?

Alvast bedankt.

    Sheets("PersoneelWijzigen").Range("Q2:Q385").Copy
    Windows("DATA.xls").Activate
    With .Sheets("Personeel").Rows(1).Find(ThisWorkbook.Sheets("PersoneelWijzigen").Range("H2"), , xlValues, xlWhole)
        .Offset(0, 1).PasteSpecial xlPasteValues
        .Offset(3, 1) = "=CONCATENATE(R[-2]C,"" "",R[-1]C)"
        .Offset(58, 1) = "=IF(SUMPRODUCT((R[-24]C:R[-1]C=""v"")*(R[-24]C:R[-1]C=""v""))=0,"""",R1C)"
    End With

 

[HSV]

Haal de rode punt eruit, volgens mij moet het zo wel kloppen.

Sheets("PersoneelWijzigen").Range("Q2:Q385").Copy
    Windows("DATA.xls").Activate
    With [COLOR="red"][SIZE="5"].[/SIZE][/COLOR]Sheets("Personeel").Rows(1).Find(ThisWorkbook.Sheets("PersoneelWijzigen").Range("H2"), , xlValues, xlWhole)
        .Offset(0, 1).PasteSpecial xlPasteValues
        .Offset(3, 1) = "=CONCATENATE(R[-2]C,"" "",R[-1]C)"
        .Offset(58, 1) = "=IF(SUMPRODUCT((R[-24]C:R[-1]C=""v"")*(R[-24]C:R[-1]C=""v""))=0,"""",R1C)"
    End With

 

[rvt1982]

Thnx Harry, dat is hem... :thumb: