Dynamic VB code for Autofill

[VictorsDad]

It has been a while since I worked with VB and I am struggling with some simple code.

I have an Excel sheet that I am using to track client information on, the client name starts on A3 and the list of clients we are tracking will vary from week to week.

I have values in B3:D3 that I need to auto fill based on the values that I have in column A. For example, if column A goes to row 33 then I want to auto fill B3:D3 down to row 33.

The code that I have now works as band aid, but I need something more dynamic.

I have found some solutions on line but none of them worked on varying lengths, the following is the code that has worked so far.

Sub Autofill()
'
' Autofill Macro
'
Range("B3:D3").Select
Selection.Autofill Destination:=Range("B3:D36")
Range("B3:D36").Select
Range("B3").Select
End Sub

[mikerickson]

There is no need to select

Please Login or Register  to view this content.

[VictorsDad]

Mike,

Thank you for the response.

The code you gave me needed one tweak to it:

Range("B3:D3").AutoFill Destination:=Range(Range("B3:D3"), Cells(Rows.Count, 1).End(xlUp).Offset(0, 1))

I am posting this so that hopefully someone can use this code, it will come in very handy.

[augustus88]

Hey, Victors.

I am just a regular financial/accountant user, I dont know how to program in VBA and I never done something by myself eventhough I studied programming.

I was seeking for a subject using the search tool and I ended up here in your topic. I would like to give you a hand as I had the same need and I managed to get it done using this code:

Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 12).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown

Hope this can helps and I apologise if this can't help you (it worked out for me).

Cheers.