Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autofill
a8=8 b8 = 4 c8 = a8 +b8 a8: 500 and b8:b500 are populated with nos, however with the code belo the autofill occurs only from c8 to c16, pretty sure its the las line.help is much appreciated Sub test() Dim iLastRow As Long Dim iLastCol As Long Dim i As Long, j As Long iLastCol = Cells(8, Columns.Count).End(xlToLeft).Column For j = 1 To iLastCol If Cells(8, j).HasFormula Then iLastRow = Cells(Rows.Count, j).End(xlUp).Row Cells(8, j).AutoFill Cells(8, j).Resize(iLastRow) End If Next j End Su -- T De Villier ----------------------------------------------------------------------- T De Villiers's Profile: http://www.excelforum.com/member.php...fo&userid=2647 View this thread: http://www.excelforum.com/showthread.php?threadid=47601 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autofill
Maybe you should use column B instead of the lastcol to get the last row?
iLastRow = Cells(Rows.Count, "B").End(xlUp).Row And since you're starting in row 8, don't you want: Cells(8, j).AutoFill Cells(8, j).Resize(iLastRow-8+1) T De Villiers wrote: a8=8 b8 = 4 c8 = a8 +b8 a8: 500 and b8:b500 are populated with nos, however with the code below the autofill occurs only from c8 to c16, pretty sure its the last line.help is much appreciated Sub test() Dim iLastRow As Long Dim iLastCol As Long Dim i As Long, j As Long iLastCol = Cells(8, Columns.Count).End(xlToLeft).Column For j = 1 To iLastCol If Cells(8, j).HasFormula Then iLastRow = Cells(Rows.Count, j).End(xlUp).Row Cells(8, j).AutoFill Cells(8, j).Resize(iLastRow) End If Next j End Sub -- T De Villiers ------------------------------------------------------------------------ T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479 View this thread: http://www.excelforum.com/showthread...hreadid=476011 -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
autofill | Excel Discussion (Misc queries) | |||
AutoFill | New Users to Excel | |||
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 | |||
Autofill | Excel Programming |