compiliteits probleem excel 2007 -2003

[markmeijrink]

Beste,

deze code:

worksheets("Buffer1").Rows(2).Copy
worksheets("Vindplaatsenarchief").Select
laatsteRij = Range("A2").CurrentRegion.Rows.Count + 1
worksheets("Vindplaatsenarchief").Rows(laatsteRij).Select
worksheets("Vindplaatsenarchief").Paste

gebruik ik om steeds gegevens op te slaan in de eerst volgende lege rij. Echter in oudere excelversies werkt dit dus niet. Heeft iemand een suggestie voor een andere code die hetzelfde doet en wel compitabel is?

Alvast bedankt!

M.v.gr. Mark

 

[Wigi]

Worksheets("Buffer1").Rows(2).Copy Worksheets("Vindplaatsenarchief").Range("A" & Rows.Count).End(xlUp).Offset(1)

Hopelijk doe je hier de nodige kennis op om (andere) code uit te zuiveren: Select hoeft in heel veel gevallen niet gebruikt worden. Het maakt de code sneller en beeld flitst niet van "hot naar her".

Wigi

 

[snb]

of zelfs 'kopiëren' zonder copy

sheets("Vindplaatsenarchief").Range("A" & Rows.Count).End(xlUp).Offset(1).entirerow=sheets("Buffer1").Rows(2).Value

 

[markmeijrink]

Heren bedankt voor de suggesties. Werkt prima!

M.v.gr. Mark