Autocopy instead of autofill

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Basta1980 - 21 May 2008 11:10 GMT

Hi all,

I use this code to autofill a range.

Private Sub CommandButton1_Click()
'Macro_om_datum_te_genereren
Dim rng As Range
Set rng = ActiveSheet.Range("J9")

rng.AutoFill Range(rng, rng.Offset(0, -1).End(xlDown).Offset(0, 1))

End Sub

Things is, don't want VBA to fill but to copy the information. What small
modifcation needs to be done to get this code working?!

Regards

Sebastiaan

Reply to this Message

Joel - 21 May 2008 11:15 GMT

from
rng.AutoFill Range(rng, rng.Offset(0, -1).End(xlDown).Offset(0, 1))

to

rng.copy destination:=Range(rng, rng.Offset(0, -1).End(xlDown).Offset(0, 1))

> Hi all,
>
[quoted text clipped - 15 lines]
>
> Sebastiaan

Reply to this Message

Dave Peterson - 21 May 2008 12:42 GMT

.autofill has several parms that you can include.

I'd try:

rng.AutoFill _
destination:=Range(rng, rng.Offset(0, -1).End(xlDown).Offset(0, 1)), _
type:=xlFillCopy

> Hi all,
>
[quoted text clipped - 15 lines]
>
> Sebastiaan

Signature

Dave Peterson

Reply to this Message