Need Help With CODE!!!

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

alexm999

I run a standard find macro but if the file i try to import does not
have the particular find command (in the sample case below it's "PUP")
then my code breaks and I have an error
Is there anything i can input that will allow me to say that if the
word "PUP" is not there, then dont do anything, but if it's there, then
run my code below.



Windows("2.txt").Activate
Cells.Find(What:="PUP", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(rowOffset:=0, columnOffset:=6).Activate
Selection.Copy
Windows("DAILY OPERATIONS_2004.xls").Activate
Range("K10").Select
ActiveSheet.Paste
 
Look through the examples in the VBA Help under On Error Statement and On
Error Statement Examples - you should find something that will fit your
code.

Ed
 
Alex,

Try this alternative

Windows("2.txt").Activate
Set ofound = Cells.Find(What:="PUP", _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not ofound Is Nothing Then
ActiveCell.Offset(rowOffset:=0, columnOffset:=6).Activate
Selection.Copy
Windows("DAILY OPERATIONS_2004.xls").Activate
Range("K10").Select
ActiveSheet.Paste

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Thanks for the code.
It still populates something into the cell, is there a way i can get i
to not populate the cell if what i'm searching for is not found
 
Alix,

I add the Exit sub in Bob's code it should exit the sub if PUP not
found.

HTH

Charles




Windows("2.txt").Activate
Set ofound = Cells.Find(What:="PUP", _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not ofound Is Nothing Then Exit Sub<<<< I add this
ActiveCell.Offset(rowOffset:=0, columnOffset:=6).Activate
Selection.Copy
Windows("DAILY OPERATIONS_2004.xls").Activate
Range("K10").Select
ActiveSheet.Paste
 
This guy is using recorder code. By removing the activate, you have done
nothing with the found cell. I am sure he doesn't want to exit if not
found. He just wants to process only if found, then regardless, move on to
the next search and copy. Betcha.

Windows("2.txt").Activate
Set ofound = Cells.Find(What:="PUP", _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not ofound Is Nothing Then
ofound.Activate
ActiveCell.Offset(rowOffset:=0, columnOffset:=6).Activate
Selection.Copy
Windows("DAILY OPERATIONS_2004.xls").Activate
Range("K10").Select
ActiveSheet.Paste
Windows("2.txt").Activate
End if
 
Here's something to ponder

I have 2 codes; DDC and DDCE

data needs to be pulled from both onto a spreadsheet.
If DDC is not there and DDCE is there, and I do a find for DDCE, my DD
column will populate with DDCE data. Is there a way to isolate or mak
the macro not pull in false data
 
Back
Top