Kezdőlap › Fórumok › Excel programozás › [Resolved] Adatok kigyűjtése több excel állományból. › Hozzászólás: [Resolved] Adatok kigyűjtése több excel állományból.
2019-08-14-12:08
#6149
A Range(„A2:E” kezdetű sor elején is kijavítottad az ActiveSheet.UsedRange.Rows.Count részt?
Nem lenne világosabb 2 változót felvenni?
Pl. a megnyitott füzet lapján az eddig-, a Célmunkalapon pedig az ide változót adhatnád meg.
A másolandó füzet megnyitásakor
eddig=range(„A” & rows.count).end(xlup).row
ide=wb.worksheets(„Célmunkalap”).range(„A” & rows.count).end(xlup).row+1
Másolás:
range(„A2:E” & eddig).copy wb.worksheets(„Célmunkalap”).range(„A” & ide)