Adding Cells After they've Been Found

  • Thread starter Thread starter alexm999
  • Start date Start date
A

alexm999

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
 
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.
 
Back
Top