verplaatsen

[don42]

beste allemaal,

Ik probeer de waardevan kolom I (vanaf I12 tot end)
te kopieren naar kolom M (ook plaakeen vanaf M12)
omdat in kolom I formules staan wil ik graag enkel de waarde hebben

dit werkt dus niet.. wat doe ik nu fout?

Private Sub CommandButton1_Click()
Dim lastrow As String
lastrow = Blad1.Range("i" & Rows.Count).End(xlUp).Row
Range(Range("I12:I & lastrow ), Range("I12:I & lastrow").End(xlDown)).Copy Range("M12:M & lastrow")
End Sub

Don

 

[Cobbe]

Test deze eens:

Private Sub CommandButton1_Click()
Dim lastrow As String
lastrow = Blad1.Range("i" & Rows.Count).End(xlUp).Row
Range("I12:I" & lastrow).Copy Range("M12")
End Sub

 

[don42]

Hoi Cobbe,
Dank je voor de snelle hulp het kopieren gaat nu goed daar ben ik al blij mee
nu nog enkel de waarde uit kolom I kopieren en niet de formule (iets met Value misschien)
zou ook alle vaste waardes in kolom I vast kunnen zetten met $ maar dat vast niet nodig zijn als ik denk aan plakken speciaal

Don

 

[VenA]

Probeer het zo eens

Sub VenA()
  Range("M12:M" & Cells(Rows.Count, 9).End(xlUp).Row) = Range("I12:I" & Cells(Rows.Count, 9).End(xlUp).Row).Value
End Sub

 

[don42]

Vena, Jip dit werkt perfect.
Beide weer heel erg bedankt voor de fijne en snelle hulp.
:thumb: