Informatika és tudomány

megoldást keresek erre a problémára
  • Delila1
    #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
    Program az, ami az adatokat hibaüzenetté konvertálja.
    Lassú munkához idő kell.