Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() I am having problems with the asterixed row, cant seem to define the range using the cells object. Many Thanks Sub ABC() Dim rng As Range, cell As Range, ar As Range ' 1) Defines first row and column Cells.Find(What:="ACTUALS", After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Activecell.column = m Activecell.row = x '2) Defines last row Cells.Find(What:="FORECAST", After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Activecell.row = y **Set rng = (Cells(x,m),Cells(y,m)).SpecialCells(xlConstants) For Each ar In rng.Areas For Each cell In ar If cell.Row < ar(1).Row Then cell.Offset(0, 1).Value = ar(1).Value End If Next cell ar(1).ClearContents Next ar 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=566385 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
defining a range of cells in excel using cell content | Excel Programming | |||
defining unique range of cells for different sheets as the same n. | Excel Discussion (Misc queries) | |||
Drop down defining content of a range of cells | Links and Linking in Excel | |||
Defining Range of For Each Loop for Cells and Worksheets | Excel Programming | |||
Defining a variable Range for cells with values in them! | Excel Programming |