Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autofill to the left of data
Hi
I often use autofill in the last column of data. Now I'm trying to Autofill column A, and the code I use just autofills to the end of the spreadsheet. I suspect this is because I'm trying to autofill when the data is to the right of my column rather than the left. I've pasted the two bits of code that do the same thing and normally work for me below. Can someone advise what I need to change to make this work? Dim LastRow As Long With Worksheets("CURRENT WEEK") LastRow = .Cells(Rows.Count, "A").End(xlUp).Row Range("T4").AutoFill Destination:=.Range("T4:T" & LastRow), Type:=xlFillDefault End With Range("T2").Select Selection.AutoFill Destination:=Range("T2:T" & ActiveSheet.UsedRange.Rows.Count) Thanks in advance for any suggestions. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autofill to the left of data
If you want to autofill column a to the last row with data in column B
then use this With Worksheets("CURRENT WEEK") LastRow = .Cells(Rows.Count, "B").End(xlUp).Row Range("A4").AutoFill Destination:=.Range("A4:A" & LastRow), Type:=xlFillDefault End With -- Regards Ron de Bruin http://www.rondebruin.nl "AnitaML" wrote in message ... Hi I often use autofill in the last column of data. Now I'm trying to Autofill column A, and the code I use just autofills to the end of the spreadsheet. I suspect this is because I'm trying to autofill when the data is to the right of my column rather than the left. I've pasted the two bits of code that do the same thing and normally work for me below. Can someone advise what I need to change to make this work? Dim LastRow As Long With Worksheets("CURRENT WEEK") LastRow = .Cells(Rows.Count, "A").End(xlUp).Row Range("T4").AutoFill Destination:=.Range("T4:T" & LastRow), Type:=xlFillDefault End With Range("T2").Select Selection.AutoFill Destination:=Range("T2:T" & ActiveSheet.UsedRange.Rows.Count) Thanks in advance for any suggestions. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autofill to the left of data
I see i miss a dot before
Range("A4")........................... -- Regards Ron de Bruin http://www.rondebruin.nl "Ron de Bruin" wrote in message ... If you want to autofill column a to the last row with data in column B then use this With Worksheets("CURRENT WEEK") LastRow = .Cells(Rows.Count, "B").End(xlUp).Row Range("A4").AutoFill Destination:=.Range("A4:A" & LastRow), Type:=xlFillDefault End With -- Regards Ron de Bruin http://www.rondebruin.nl "AnitaML" wrote in message ... Hi I often use autofill in the last column of data. Now I'm trying to Autofill column A, and the code I use just autofills to the end of the spreadsheet. I suspect this is because I'm trying to autofill when the data is to the right of my column rather than the left. I've pasted the two bits of code that do the same thing and normally work for me below. Can someone advise what I need to change to make this work? Dim LastRow As Long With Worksheets("CURRENT WEEK") LastRow = .Cells(Rows.Count, "A").End(xlUp).Row Range("T4").AutoFill Destination:=.Range("T4:T" & LastRow), Type:=xlFillDefault End With Range("T2").Select Selection.AutoFill Destination:=Range("T2:T" & ActiveSheet.UsedRange.Rows.Count) Thanks in advance for any suggestions. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autofill to the left of data
Thanks very much - worked a treat
"Ron de Bruin" wrote: I see i miss a dot before Range("A4")........................... -- Regards Ron de Bruin http://www.rondebruin.nl "Ron de Bruin" wrote in message ... If you want to autofill column a to the last row with data in column B then use this With Worksheets("CURRENT WEEK") LastRow = .Cells(Rows.Count, "B").End(xlUp).Row Range("A4").AutoFill Destination:=.Range("A4:A" & LastRow), Type:=xlFillDefault End With -- Regards Ron de Bruin http://www.rondebruin.nl "AnitaML" wrote in message ... Hi I often use autofill in the last column of data. Now I'm trying to Autofill column A, and the code I use just autofills to the end of the spreadsheet. I suspect this is because I'm trying to autofill when the data is to the right of my column rather than the left. I've pasted the two bits of code that do the same thing and normally work for me below. Can someone advise what I need to change to make this work? Dim LastRow As Long With Worksheets("CURRENT WEEK") LastRow = .Cells(Rows.Count, "A").End(xlUp).Row Range("T4").AutoFill Destination:=.Range("T4:T" & LastRow), Type:=xlFillDefault End With Range("T2").Select Selection.AutoFill Destination:=Range("T2:T" & ActiveSheet.UsedRange.Rows.Count) Thanks in advance for any suggestions. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Autofill data in cell with other existing data. | Excel Discussion (Misc queries) | |||
Autofill Down When Text to Left is Not Blank | Excel Worksheet Functions | |||
Autofill: Need to autofill one week block, (5) weekday only into cells. | Excel Discussion (Misc queries) | |||
Q. Autofill question: Can I autofill alpha characters like I can numbers? | Excel Programming | |||
Macro that will autofill a column with data, up to the last row of data in previous c | Excel Programming |