excel 2010 dynamische range kopiëren naar andere werkmap

[HWV]

Beste,

Ik werk met excel 2010 en loop tegen het volgende aan.
Ik wil vanuit ZNP 008 Standaard Bestelformulier, en dynamische range kopiëren naar mijn werkmap Offerte
Ik heb daar de volgende code voor

Workbooks("ZNP 008 Standaard Bestelformulier").Sheets("Bestellijst1").Range ("B19:R" & .Range("R" & Rows.Count).End(xlUp).Row)
Workbooks("Offerte").Sheets("Offerte").[A20].Offset(1).PasteSpecial xlValues

Nu krijg ik de volgende foutmelding

Compileerfout

Ongeldige of niet -gekwalificeerde verwijzing

Kan iemand mij aangeven waar ik iets fot doet

Groet HWV

 

[snb]

Je gebruikt .Range("B19:R") zonder with... end with

sub snb()
  with Workbooks("ZNP 008 Standaard Bestelformulier").Sheets("Bestellijst1")
     with .Range("B19").resize(.cells(rows.count,18).end(xlup).row-18)
        Workbooks("Offerte").Sheets("Offerte").range("A21").resize(.rows.count,.columns.count)=.value
     end with
  end with
end sub

 

[HWV]

werkt nog niet helemaal

Bedankt voor uw reactie SNB,

Helaas kopieer hij nu enkel kolom B en niet de gehele reeks B t/m R van boven tot onder

Groet HWV

 

[snb]

Dat had je zelf eenvoudig kunnen verhelpen met:

sub snb()
  with Workbooks("ZNP 008 Standaard Bestelformulier").Sheets("Bestellijst1")
     with .Range("B19").resize(.cells(rows.count,18).end(xlup).row-18,17)
        Workbooks("Offerte").Sheets("Offerte").range("A21").resize(.rows.count,.columns.count)=.value
     end with
  end with
end sub