Cellenbereik kopiëren naar ander werkblad.

[Roggebot]

Als ik een cellenbereik kopieer naar een andere plek op dezelfde sheet (Sheet_1), dat lukt dat. Ook als ik in het bereik een variabele gebruik.
Als ik dezelfde actie wil doen naar een ander sheet (Sheet_2), dan krijg ik bij uitvoeren foutmelding 1004. Ik begrijp niet waarom.
Ik heb een voorbeeld .xlsm bijgevoegd.
Bekijk bijlage Cellenbereik kopieeren naar ander werkblad .xlsm

 

[VenA]

Beetje vreemde constuctie maar zo werkt het wel

Worksheets("Sheet_1").Range(Cells(REGEL, 1), Cells(REGEL, 3)).Copy Worksheets("Sheet_2").Cells(REGEL, 5)

 

[Roggebot]

Beste venA,

Inderdaad vreemd, maar bij mij werkt het op deze manier ook.

Weglaten is de kunst van de meester .

Bedankt!

 

[VenA]

Waarom wil je dan regel voor regel kopiëren? Kan toch in 1 keer? En waarom kopiëren?

Sub VenA()
  With Sheets("Sheet_1").Cells(1).CurrentRegion
    Sheets("Sheet_2").Cells(1, 5).Resize(.Rows.Count, .Columns.Count) = .Value
  End With
End Sub

 

[Roggebot]

Ik doe dat regel-voor regel omdat ik selectief wil kopiëren. Alleen regels die voldoen aan een bepaalde datum gaan naar Sheet_2.
In het voorbeeld .xlsm heb ik dat voor de duidelijkheid weggelaten.

De vraag waarom kopiëren ligt voor de hand, al zie ik dat je daar een alternatief voor hebt. Alleen moet ik die -met mijn bescheiden kennis van VBA- nog even bestuderen.

 

[VenA]

Voor de duidelijkheid kan je het beste niets weglaten. Al eens iets gelezen over een filter? Rij voor rij is zeker bij veel data heel traag.