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]

In that case use

Set wsuser = Worksheets("Users")
With[COLOR=#ff0000] wsuser.[/COLOR]Range("M1").End(xlDown)
   .AutoFill Destination:=.Resize(2), Type:=xlFillDefault
End With

 

[gkisacik]

That worked well, thank you, how can i get the last value on userform.

i tried it frmbrief.txtprojectno.text=activecell.value

it didnt do the right job.

In that case use

Set wsuser = Worksheets("Users")
With[COLOR=#ff0000] wsuser.[/COLOR]Range("M1").End(xlDown)
   .AutoFill Destination:=.Resize(2), Type:=xlFillDefault
End With

 

[Fluff]

Try

Private Sub cmdaddnew_Click()

Unload Me
Dim wsuser As Worksheet
frmbrief.txtowner.Text = lbowner.Caption
Set wsuser = Worksheets("data")
With Range("M1").End(xlDown)
   .AutoFill Destination:=.Resize(2), Type:=xlFillDefault
   frmbrief.txtprojectno.Text .Offset(1).Value
End With
End Sub

 

[gkisacik]

Brilliant, thank you for this. I added "=" between frmbrief.txtprojectno.text and .offset(1).value.

it works fine now

Try

Private Sub cmdaddnew_Click()

Unload Me
Dim wsuser As Worksheet
frmbrief.txtowner.Text = lbowner.Caption
Set wsuser = Worksheets("data")
With Range("M1").End(xlDown)
   .AutoFill Destination:=.Resize(2), Type:=xlFillDefault
   frmbrief.txtprojectno.Text .Offset(1).Value
End With
End Sub

 

[Fluff]

Glad it's sorted & thanks for the feedback