Dynamic Autofill

**Dan27** · 09-19-2013, 09:58 AM

Hello

You'll have to bear with me as not great at VBA. I want a formula to dynamically autofill in column G based on the contents of column F.

I'm trying to use the following but it's not working.

Sub CalcLengths()

    Dim lastrow As Long

    Range("G2").Select
    ActiveCell.FormulaR1C1 = "=RC[-5]*1"
    Selection.NumberFormat = "h:mm"
    
    lastrow = Cells(Rows.Count, "F").End(xlUp).Row + 1
    Selection.AutoFill Destination:=Range("G2" & lastrow), Type:=xlFillDefault

End Sub

Can anyone help please?

**Norie** · 09-19-2013, 10:04 AM

You don't say how the code doesn't work but try this.

Sub CalcLengths()
Dim lastrow As Long

    lastrow = Cells(Rows.Count, "F").End(xlUp).Row

    With Range("G2:G" & lastrow)
        .FormulaR1C1 = "=RC[-5]*1"
        .NumberFormat = "h:mm"
    End With

End Sub

**Dan27** · 09-19-2013, 10:30 AM

Works perfect!! Thanks

Dynamic Autofill

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Dynamic Autofill

Re: Dynamic Autofill

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] VBA to AutoFill down dynamic columns

[SOLVED] Dynamic Filetering and Autofill

Need help with dynamic autofill

[SOLVED] Dynamic autofill VBA

[SOLVED] autofill with dynamic lists

Bookmarks

Bookmarks

Posting Permissions