sjonnie1974
Gebruiker
- Lid geworden
- 19 okt 2011
- Berichten
- 177
Hoi,
onderstaande stukje in rood aangegeven werkt niet... wat moet ik dan daar tussen haakjes zetten? iemand een idee?
onderstaande stukje in rood aangegeven werkt niet... wat moet ik dan daar tussen haakjes zetten? iemand een idee?
Code:
'Import AL066
vind1 = Sheets("Data_x").Range("AH2")
vind2 = Sheets("Data_x").Range("AI2")
vindk1 = Sheets("Data_x").Range("AH2:AI2").Find(vind1).Column
vindk2 = Sheets("Data_x").Range("AH2:AI2").Find(vind2).Column
al066path = Range("settings!H25")
Workbooks.Open Filename:=al066path
al066naam = ActiveWorkbook.Name
For i = 1 To 2
Windows(al066naam).Activate
Sheets("Data").Select
foundRng = Sheets("Data").Range("A1:AZ1").[COLOR="#FF0000"]Find(vind & i).[/COLOR]Column
Range(Cells(2, foundRng), Cells(20000, foundRng)).Copy
Windows(toolnaam).Activate
Sheets("Data_x").Select
Range(vindk & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next i