Thread: Autofill
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
T De Villiers[_6_] T De Villiers[_6_] is offline
external usenet poster
 
Posts: 1
Default 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