Autofill:write a macro

[Dolphinv4]

Hi,

how do I write a macro such that it'll copy the active cell and then
autofill to the cell to the right of the active cell?

(ie, active cell is Jun-05 and if i do a manual mouse click drag to the
right, the right cell will show Jul-05)

Thanks,
Dolphin

[Dolphinv4]

I tried this:

ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Offset(-1, 0).Resize(16),
Type:=xlFillDefault

But it don't work! Why?

Regards,
Dolphin

"Dolphinv4" wrote:

> Hi,
>
> how do I write a macro such that it'll copy the active cell and then
> autofill to the cell to the right of the active cell?
>
> (ie, active cell is Jun-05 and if i do a manual mouse click drag to the
> right, the right cell will show Jul-05)
>
> Thanks,
> Dolphin

[Stefi]

This will autofill ONE cell to the right to ActiveCell with next month, same
day:

Selection.AutoFill Destination:=ActiveCell.Resize(1, 2), Type:=xlFillMonths

From your example

> Selection.AutoFill Destination:=ActiveCell.Offset(-1, 0).Resize(16),
> Type:=xlFillDefault

I suppose you want to autofill 16 columns, if so, apply Resize(1,16)

Regards,
Stefi

"Dolphinv4" wrote:

> I tried this:
>
> ActiveCell.Select
> Selection.AutoFill Destination:=ActiveCell.Offset(-1, 0).Resize(16),
> Type:=xlFillDefault
>
> But it don't work! Why?
>
> Regards,
> Dolphin
>
> "Dolphinv4" wrote:
>
> > Hi,
> >
> > how do I write a macro such that it'll copy the active cell and then
> > autofill to the cell to the right of the active cell?
> >
> > (ie, active cell is Jun-05 and if i do a manual mouse click drag to the
> > right, the right cell will show Jul-05)
> >
> > Thanks,
> > Dolphin