cellen rechts van waar de cursor staat

[vrouw]

Als ik de beschreven cellen rechts van waar ik(ongeacht) sta de opdracht .copy wil geven?
Hoe doe ik dat?

 

[Cobbe]

Zo bijvoorbeeld:

ActiveCell.Offset(,1).copy

 

[vrouw]

dan pakt die slechts 1 cel naar rechts.
Als dat nu varieert? dus de ene keer zijn dat 5 cellen en een andere keer 20 cellen?

 

[Cobbe]

Dan zet je er dat bij:

ActiveCell.Offset(,1).Resize(,enekeer5enekeer20).copy

 

[vrouw]

Dat "vreet" ie niet.
fout 1004

 

[Cobbe]

Heb je die formule zoals gepost overgenomen?

Test deze eens:

ActiveCell.Resize(, 5).Copy

Waarbij die 5 kan vervangen worden door een celverwijzing.

 

[vrouw]

Zo doet hij het wel maar niet met alle gevulde cellen die er staan.

 

[Cobbe]

Zeg dan eens eindelijk wat je echt wil bereiken.
Misschien met een voorbeeldje?

 

[vrouw]

Huhh, nu pakt die alle gevulde cellen van de kommen en de rijen.

bedoeling is:Ik sta bijv. in A8 dam moet alle cellen die gevuld zijn in rij 8 gekopieerd worden.

 

[Cobbe]

Dan zal deze beter zijn:

Sub Cobbe()
    Range(ActiveCell.Offset(, 1).Address & ":" & Cells(ActiveCell.Row, ActiveSheet.Columns.Count).End(xlToLeft).Address).Copy
End Sub

 

[vrouw]

:thumb: Joeppie, dat is hem. thanks:thumb:

 

[vrouw]

Nee te vroeg gejuigd
Hij kopieerd de cel waar die in staat niet mee

 

[rebmog]

Verwijder .Offset(, 1) uit de code

 

[vrouw]

SUPER :thumb: