Verkorten....

[rvt1982]

Goedenavond,

De volgende code moet volgens mij vast wel korter kunnen. gezien ik dit met zo'n 100 regels moet doen....

Wie kan mij hier mee helpen ?

    With Workbooks("DATA.xls").Sheets("DATA").Columns(1)
        Workbooks("Home.xls").Sheets("Zoeken").Range("AX3") = .Find(Workbooks("Home.xls").Sheets("Zoeken").Range("AW3"), , xlValues, xlWhole).Offset(0, 4).Text
        Workbooks("Home.xls").Sheets("Zoeken").Range("AX4") = .Find(Workbooks("Home.xls").Sheets("Zoeken").Range("AW4"), , xlValues, xlWhole).Offset(0, 4).Text
        Workbooks("Home.xls").Sheets("Zoeken").Range("AX5") = .Find(Workbooks("Home.xls").Sheets("Zoeken").Range("AW5"), , xlValues, xlWhole).Offset(0, 4).Text
        Workbooks("Home.xls").Sheets("Zoeken").Range("AX6") = .Find(Workbooks("Home.xls").Sheets("Zoeken").Range("AW6"), , xlValues, xlWhole).Offset(0, 4).Text
        Workbooks("Home.xls").Sheets("Zoeken").Range("AX7") = .Find(Workbooks("Home.xls").Sheets("Zoeken").Range("AW7"), , xlValues, xlWhole).Offset(0, 4).Text
        Workbooks("Home.xls").Sheets("Zoeken").Range("AX8") = .Find(Workbooks("Home.xls").Sheets("Zoeken").Range("AW8"), , xlValues, xlWhole).Offset(0, 4).Text
        Workbooks("Home.xls").Sheets("Zoeken").Range("AX9") = .Find(Workbooks("Home.xls").Sheets("Zoeken").Range("AW9"), , xlValues, xlWhole).Offset(0, 4).Text
    End With

 

[HSV]

Dan kan het zoiets worden.

With Workbooks("DATA.xls").Sheets("DATA").Columns(1)
set Wbhome = Workbooks("Home.xls").Sheets("Zoeken").Range("AX3")
on error resume next
 for i = 0 to 100
        Wbhome.offset(i) = .Find(Wbhome.offset(i, -1), , xlValues, xlWhole).Offset(, 4).Text
 next i

 

[rvt1982]

Thanks :thumb:

Precies wat ik zoek