‘ha ugyanabba a mappában van:
wb = ActiveWorkbook.Path
wbn = wb & „\Celfajl.xlsx”
‘ha máshol van írd be, hogy wbn=”X:\valami\valami\Celfajl.xlsx”
‘Megnyitod a fájlt:
Workbooks.Open Filename:=wbn
‘élesíted a lapot:
Sheet(„Céllap”).select
‘Megkeresed az utolsó sort az A oszlopban:
utolso = Cells(Rows.Count, „A”).End(xlUp).Row
‘beadod a célcellát egy változónak:
celcell=”A” & (utolso+1)
‘most kimásolod a cellát az alapfájlodból:
Windows(„Alapfajl.xlsx”).Activate
Cells(i,j).select
Selection.copy
‘ visszagyalogolsz a célfájlba:
Windows(„Celfajl.xlsx”).Activate
Bemásolod értékként:
Range(celcell).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
‘mented a fájlt
ActiveWorkbook.SaveAs wbn
‘Bezárod a fájlt
ActiveWindow.Close
.
