fout F1004

[marccram]

Goede morgen,

Ik probeer een bepaalde range van werkblad A naar werkblad B te copieren
via de instructie : Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
( ik gebruik deze instructie ook in andere Excell sheets zonder problemen )

Ik ben nu bezig in een "nieuwe" excell sheet en gisteren kreeg ik de fout : F1004 Method PasteSpecial van klasse Range is mislukt
Ik had/heb de werkbladen A en B beveiligd met een passwoord en door in VBA de instructies unprotect en protect toe te voegen
werd deze fout opgelost. Het copieren van de range werkte zonder problemen.


Vandaag heb ik nog wat zitten werken/ wijzigen aan de excell sheet en VBA instructies en nu krijg ik : F1004 Door de toepassing of door object gedefinieerde fout
Maar heb geen idee waarom die fout nu komt.
'
' copy lijnen naar historiek shipments
'
' posities values from range voor de detail
'
Val5 = Range("incontprtverzendfrom").Value
Val6 = Range("incontprtverzenduntil").Value
'
' de from range voor de copy van de detail
'

Sheets("incon prt").Select
Range(Val5, Val6).Select
Selection.Copy
'
' the to sheet positioneer in de juiste kolom
' en volgende lege row vinden en de copy doen van waardes
'
Sheets("incon ship").Select
Range("D6").Select
Selection.End(xlDown).Select

ActiveCell.Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks_:=False, Transpose:=False

Application.CutCopyMode = False



Is er misschien een "methode / een manier" om te ontdekken waarom die fout nu gebeurd ?


Wanneer de fout voorkomt kan ik zien dat de "te copieren" range de correcte range is ,
de rij waar de range naar toe met gecopieerd worden is ook correct.


de excell sheet is te groot om toe te voegen, ik zou de sheet moeten "afslanken" ( maar daar ben je dan ook weer even mee bezig )
daarom wou ik de vraag eerst zo stellen.

 

[edmoor]

Haal die _ eens weg uit SkipBlanks_:=False

 

[marccram]

Bedankt Edmoor,

werkt nu terug perfect.
Ik weet dat ik ik die lijn heb aangepast : de instructie stond vroeger op "2 lijnen" en had dit op 1 lijn gezet om de leesbaarhied wat te vergroten.

Echt dom dat ik dit niet heb gezien.

Wel vreemd dat die _ geen compileerfout gaf ...

Veel dank voor de snelle reactie.

 

[edmoor]

Als je Option Explicit had gebruikt had je wel degelijk een compileerfout gekregen

 

[snb]

Kun je svp vanwege de leesbaarheid VBA code tags gebruiken in je berichten ?

Minder code verhoogt de leesbaarheid ook....

Sub M_snb()
  Sheets("incon ship").cells(rows.count,4).End(xlup).offset(1)=Sheets("incon prt").Range(Range("incontprtverzendfrom").Value, Range("incontprtverzenduntil").Value).value
end sub

PS. de zin van de 2 benoemde gebieden Range("incontprtverzendfrom") en Range("incontprtverzenduntil") ontgaat me ( veel codetekst voor waarschijnlijk 2 simpele getallen)