Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding Cells After they've Been Found
I have the following code: Windows("Alex").Activate Columns("A:A").Select Set oFound = Columns(1).Find(WHAT:="EXT", _ After:=ActiveCell, _ LookIn:=xlFormulas, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=True) If Not oFound Is Nothing Then oFound.Activate If Trim(oFound) = "EXT" Then ActiveCell.Offset(rowOffset:=0, columnOffset:=3).Activate Selection.Copy Windows("BOOK1.XLS").Activate Range("E3").Select ActiveSheet.Paste Application.Goto oFound End If End If How can i get it to Add the contents of this cell to another cell usin VB? Any example -- alexm99 ----------------------------------------------------------------------- alexm999's Profile: http://www.excelforum.com/member.php...nfo&userid=491 View this thread: http://www.excelforum.com/showthread.php?threadid=26134 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding Cells After they've Been Found
Windows("Alex").Activate
Columns("A:A").Select Set oFound = Columns(1).Find(WHAT:="EXT", _ After:=ActiveCell, _ LookIn:=xlFormulas, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=True) If Not oFound Is Nothing Then oFound.Activate If Trim(oFound) = "EXT" Then ActiveCell.Offset(rowOffset:=0, columnOffset:=3).Activate Selection.Copy Windows("BOOK1.XLS").Activate Range("E3").Select ActiveSheet.Pastespecial xlValues, xlPasteSpecialOperationAdd Application.Goto oFound End If End If Would be one guess at what you want. -- Regards, Tom Ogilvy "alexm999" wrote in message ... I have the following code: Windows("Alex").Activate Columns("A:A").Select Set oFound = Columns(1).Find(WHAT:="EXT", _ After:=ActiveCell, _ LookIn:=xlFormulas, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=True) If Not oFound Is Nothing Then oFound.Activate If Trim(oFound) = "EXT" Then ActiveCell.Offset(rowOffset:=0, columnOffset:=3).Activate Selection.Copy Windows("BOOK1.XLS").Activate Range("E3").Select ActiveSheet.Paste Application.Goto oFound End If End If How can i get it to Add the contents of this cell to another cell using VB? Any example? -- alexm999 ------------------------------------------------------------------------ alexm999's Profile: http://www.excelforum.com/member.php...fo&userid=4918 View this thread: http://www.excelforum.com/showthread...hreadid=261340 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy and past cells found by SUMPRODUCT | Excel Worksheet Functions | |||
Copy Cells Found | Excel Discussion (Misc queries) | |||
How to found changed cells? | Excel Discussion (Misc queries) | |||
Calculation of instances a value is found in a series of cells | Excel Worksheet Functions | |||
Error Msg: 'No Cells were found' | Excel Programming |