Opgelost VBA kopieren range

[Floris1983]

Goedemiddag,

Ik breek m'n hoofd al een dag of wat.

Ik probeer een range te kopieren naar een database op een ander werkblad, ergens doe ik iets verkeerd maar ik begrijp niet helemaal wat. als ik de kolommen 1 voor 1 kopieer werkt het wel. Kan iemand het uitleggen? Alvast bedankt!

Sub To_database()

rij = Sheets("Lijsten").Range("P2") + 1
Sheets("Data").Range("B:IR" & rij) = Sheets("Invul").Range("CU4:MK4").Value

End Sub

 

[Haije]

Achter (B: ontbreekt een rijnummer

 

[Floris1983]

Dank je Haije, helaas werkt het zo ook niet. Heb jij een idee?

Sub To_database()

rij = Sheets("Lijsten").Range("P2") + 1
Sheets("Data").Range("B &rij :IR & rij") = Sheets("Invul").Range("CU4:MK4").Value

End Sub

 

[Haije]

Zo?
Sheets("Data").Range("B" & rij & ":IR" & "rij") ipv Sheets("Data").Range("B &rij :IR & rij")

 

[edmoor]

@Hajie:
& rij) in plaats van & "rij")

 

[Floris1983]

Thanks @Haije, en ook @edmoor nu werkt het! Heel fijn!