SG Fórum - Excel kérdés - #2183

SG Fórum - Excel kérdés - #2183

Fórum / Felhasználói programok

Delila1 2016. márc. 08. 15:02 | válasz | #2183
Sub Masolas()

Dim utvonal As String, WSE As Worksheet

Dim usor As Long

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Set WSE = ActiveWorkbook.Sheets(1)

utvonal = ActiveWorkbook.Path & "\"

Workbooks.Open Filename:=utvonal & "Az új munkafüzet neve.xlsx"

usor = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

Range("A8:C" & usor).Copy

WSE.Range("D10").PasteSpecial xlPasteValues

Application.CutCopyMode = False

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub