macro voor data in tabbladen

[gerritveldwijk]

Ik ben op zoek naar een macro, die zoekt in verschillende tabbladen van een bepaald excel-bestand en de data kopieert in een sheet.

heeft iemand een voorbeeld of kan iemand zeggen hoe ik die maak?

 

[jzeedijk]

Hoi Gerrit,

For i=2 to Worksheets.count
Cells(10+i,2)=Worksheets(i).Cells(11,2) (of Range(B11) natuurlijk)
Next i

De macro kijkt in alle sheets vanaf werkblad 2 naar het veld B11 en zet de gevonden waarde vanaf veld B12 in werkblad1 (als hier de macro gestart wordt natuurlijk).

Jeroen

 

[gerritveldwijk]

deze werkt wel, maar hoe kan ik de data in een range kopieren. ?
Oftewel tot de macro een leeg veld tegenkomt moet die de data kopieren naar de sheet

 

[jzeedijk]

Hoi Gerrit,

Door bijvoorbeeld
of meerdere directe verwijzingen te maken
Cells(10+i,2)=Worksheets(i).Cells(11,2)
Cells(10+i,3)=Worksheets(i).Cells(20,8)
Cells(10+i,4)=Worksheets(i).Cells(15,5)

of een For next lus te maken
For j=1 to 10
Cells(10+i,j+1)=Worksheets(i).Cells(10+j,2)
Next j

Jeroen

 

[gerritveldwijk]

ok, dit werkt wel, maar hoe krijg ik de data onder elkaar ipv naast elkaar.