Copy paste af 300000+ celler

Er cellerne i et samlet område?

ja

Kunne du vise koden?

Kører en with activeworkbook call data bearbejdning fra this workbook

* Noget data bearbejdning *

Range("A1", "H1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
Selection.Copy
ActiveWorkbook.Close False
ThisWorkbook.Activate
Sheets("12 month").Select
Range("a1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste

Tak - ser på det senere..

Denne kode (anbragt under Ark1) kopiere 300.000 celler fra Ark1 --> arket 12 month:

Sub test()
    sidsterække = ActiveCell.SpecialCells(xlLastCell).Row
    Range("A1:H" & CStr(sidsterække)).Select
    Selection.Copy
   
    Sheets("12 month").Select
    ActiveSheet.Range("a1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

kort kode

Public Sub Test()
Range(Range("A1", "H1"), Range("A1", "H1").End(xlDown)).Copy ThisWorkbook.Sheets("12 month").Range("a1").End(xlDown).Offset(1, 0)
ActiveWorkbook.Close False
End Sub

kabbak.. din virkede ..

men tak for forsøget supertekst

Ups.. den virkede ikke den går i stå ved kopien som ved tidligere kode stump..

prøv med Public Sub Test()
Dim Data As Variant
Data = Range(Range("A1", "H1"), Range("A1", "H1").End(xlDown))
ThisWorkbook.Sheets("12 month").Range("a1").End(xlDown).Offset(1, 0).Resize(UBound(Data, 1), UBound(Data, 2)) = Data
ActiveWorkbook.Close False

End Sub

Success .. :) ..

koden endte med at være
Dim Data As Variant
Data = Range(Range("A1", "H1"), Range("A1", "H1").End(xlDown))

ActiveWorkbook.Close False
ThisWorkbook.Sheets("12 month").Range("a1").End(xlDown).Offset(1, 0).Resize(UBound(Data, 1)

og så var jeg nød til at indsætte en dummy line efter 1 da det var første sæt data..

kabbak smider du et svar ..

et svar ;-))