I need some precisions :
1."Sheets.Select" selects alls sheets. You can't do a "Find" command on
more than a sheet.
2."Do Until ActiveCell.Offset(2, 0) = """ What is the original position
of ActiveCell ? In what workbook is it ?
Daniel

Daniel

Sorry to botter you again. In ref. to the same macro, I set a loop which is
supposed to go over all the list in file Switch Accounts. There is a list
of 10 different companies, but instead of taking the accounts from switch
list is taking the accounts of the file ord-dum. The code is below. I can't
figure out where the error is

'open file with list
Workbooks.Open Filename:="H:\Switch Accounts.xls"

RangeCount = 2
BillAccount = Range("a" & RangeCount)

'activate file with data

Windows("ord-dump.csv").Activate

Sheets.Select

Do Until ActiveCell.Offset(2, 0) = ""

'Find cell
Cells.Find(What:=(BillAccount), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate


Selection.CurrentRegion.Select
Selection.Copy

Sheets.Add

Range("A2").Select
ActiveSheet.Paste


RangeCount = RangeCount + 1

Loop


Thanks in advance.













"orquidea" wrote:

Thanks,

"Daniel.C" wrote:

'open file with list
Workbooks.Open Filename:="H:\Switch Accounts.xls"
'the list of the names of the companies start on A2
RangeCount = 2
Var = Range("a" & RangeCount)

'activate file with data
Windows("ord-dump.xls").Activate

Sheets.Select

'Find company

Cells.Find(What:=Var, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False, SearchFormat:=False).Activate

End Sub
HTH
Daniel

Hi:

I am trying to write a macro which searches for names of companies listed
in one file (Switch Accounts) on other file with data ("ord-dump).


'open file with list
Workbooks.Open Filename:="H:\Switch Accounts.xls"
'the list of the names of the companies start on A2
RangeCount = 2
Range("a" & RangeCount).Select

'activate file with data
Windows("ord-dump.xls").Activate

Sheets.Select

'Find company

Cells.Find(What:=( I don't know how to code to find the active cell from
file Switch Accounts.xls), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate


End Sub