How can i find out the last row when I do autofill?

  • Thread starter Thread starter Coolquicc
  • Start date Start date
C

Coolquicc

Hi there,

I am trying to do the autofill with Macro as follows:

Range("L1").Select
ActiveCell.FormulaR1C1 = "=RC[-3]+RC[-2]/60+RC[-1]/3600"
Range("L1").Select
Selection.AutoFill Destination:=Range("L1:L1173"), Type:=xlFillDefault
Range("L1:L1173").Select

One thing has just been bothering me for so long time, which is how I can
find out the last row and put in the macro instead of just a number like
"L1173" as above, because the last row is always changing every time.

Appreciate any help with it. Thank u.
 
hi
Sub Coolquicc()
Dim n As Long
n = Cells(Rows.Count, "L").End(xlUp).Row
Range("L1").FormulaR1C1 = "=RC[-3]+RC[-2]/60+RC[-1]/3600"
Range("L1").AutoFill Destination:=Range("L1:L" & n), Type:=xlFillDefault
Range("L1:L" & n).Select
End Sub

regards
FSt1
 
Thank you very much, it helped.

FSt1 said:
hi
Sub Coolquicc()
Dim n As Long
n = Cells(Rows.Count, "L").End(xlUp).Row
Range("L1").FormulaR1C1 = "=RC[-3]+RC[-2]/60+RC[-1]/3600"
Range("L1").AutoFill Destination:=Range("L1:L" & n), Type:=xlFillDefault
Range("L1:L" & n).Select
End Sub

regards
FSt1

Coolquicc said:
Hi there,

I am trying to do the autofill with Macro as follows:

Range("L1").Select
ActiveCell.FormulaR1C1 = "=RC[-3]+RC[-2]/60+RC[-1]/3600"
Range("L1").Select
Selection.AutoFill Destination:=Range("L1:L1173"), Type:=xlFillDefault
Range("L1:L1173").Select

One thing has just been bothering me for so long time, which is how I can
find out the last row and put in the macro instead of just a number like
"L1173" as above, because the last row is always changing every time.

Appreciate any help with it. Thank u.
Click to expand...
Click to expand...
 
glad to help
regards
FSt1

Coolquicc said:
Thank you very much, it helped.

FSt1 said:
hi
Sub Coolquicc()
Dim n As Long
n = Cells(Rows.Count, "L").End(xlUp).Row
Range("L1").FormulaR1C1 = "=RC[-3]+RC[-2]/60+RC[-1]/3600"
Range("L1").AutoFill Destination:=Range("L1:L" & n), Type:=xlFillDefault
Range("L1:L" & n).Select
End Sub

regards
FSt1

Coolquicc said:
Hi there,

I am trying to do the autofill with Macro as follows:

Range("L1").Select
ActiveCell.FormulaR1C1 = "=RC[-3]+RC[-2]/60+RC[-1]/3600"
Range("L1").Select
Selection.AutoFill Destination:=Range("L1:L1173"), Type:=xlFillDefault
Range("L1:L1173").Select

One thing has just been bothering me for so long time, which is how I can
find out the last row and put in the macro instead of just a number like
"L1173" as above, because the last row is always changing every time.

Appreciate any help with it. Thank u.
Click to expand...
Click to expand...
Click to expand...
 
Back
Top