Przy założeniu, że obydwa skoroszyty są otwarte,
i chcesz zaimportować dane ze skoroszytu Test_1.xls
do skoroszytu Test_2.xls,
w którym masz przycisk, do którego przypisz makro:
Sub Skopiuj_dane()
Application.ScreenUpdating = False
Workbooks("Test_1.xls").Activate
Range("B2:E14").Copy
Workbooks("Test_2.xls").Activate
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B2").Select
Application.ScreenUpdating = True
End Sub
Razem z zawartością jest przenoszone także formatowanie.
--
Powodzenia
Stanislaw
stanislaw_@op.pl |