auto fill the last cell of the column with destination range

[gkisacik]

Hi,

I am trying to create new reference number and add the last empty cell of Column M: How can i fix this code at destination range??

A2018-01
A2018-02
D2018-03
A2018-04
A2018-05
A2018-06
A2018-07
D2018-08
D2018-09
A2018-10
A2018-11
A2018-12
empty cell here (for instance)

i tried to run macro and got the following;

Range("M1").Select
Selection.End(xlDown).Select
Selection.AutoFill Destination:=Range("M30:M31"), Type:=xlFillDefault

 

[Fluff]

How about

With Range("M1").End(xlDown)
   .AutoFill Destination:=.Resize(2), Type:=xlFillDefault
End With

 

[gkisacik]

hi, thanks for quick reply,

i got an error message at line .AutoFill Destination:=.Resize(2), Type:=xlFillDefault saying object is not recognized

 

[Fluff]

Did you use the entire code I posted, or modify yours?

 

[gkisacik]

yep

 

[Fluff]

Which of the two are you say Yep too?

 

[gkisacik]

Did you use the entire code I posted, or modify yours?

it is on Resize object the error.

 

[gkisacik]

Which of the two are you say Yep too?

oeps sorry i meant i used the entire of yours. it is still new form.

Private Sub cmdaddnew_Click()

Unload Me
Dim wsuser As Worksheet
frmbrief.txtowner.Text = lbowner.Caption
Set wsuser = Worksheets("Users")
With Range("M1").End(xlDown)
   .AutoFill Destination:=.Resize(2), Type:=xlFill
End With


frmbrief.txtprojectno.Text = ActiveCell.Value

End Sub

 

[Fluff]

Do you want this to work on the "Users" sheet, or the active sheet?

 

[gkisacik]

Yes only there, that is where i try to keep reference numbers per project number.