Help please!!!!.

I have a simple array with name of cities in it.
I have in the coloumn "A" a list of city's names.

I should verify that every city included in the array can be found in
the coloumn "A".

How can I do that?. I believe with for, next array.count etc. but I
have many difficulties....

Please help!!!!.
Thanks in advance.
Alex.

For i = LBound(ary) To UBound(ary)
If IsError(Application.Match(ary(i),Columns(1),0)) Then
Msgbox ary(I) & " not found"
End If
Next i

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Alex" wrote in message
oups.com...
Help please!!!!.

I have a simple array with name of cities in it.
I have in the coloumn "A" a list of city's names.

I should verify that every city included in the array can be found in
the coloumn "A".

How can I do that?. I believe with for, next array.count etc. but I
have many difficulties....

Please help!!!!.
Thanks in advance.
Alex.

Alex wrote:
I have a simple array with name of cities in it.
I have in the coloumn "A" a list of city's names.

I should verify that every city included in the array can be found in
the coloumn "A".

How can I do that?. I believe with for, next array.count etc. but I
have many difficulties....

Hello Alex,
Good evening. What is the delimiter used in the City Name Array?
Anyway, you will be parsing the full array to get the individual names.
Use a loop...

Dim name()
Dim iniLet
for m= 0 to numberOfCitiesIntheBigArray
inilet=Mid(name(m), 1, 1)
if iniLet="A" then
List1.additem name(m)
Next m

'...ListBox, or combo or text box whatever it is
Hope this will help

ha scritto:

Alex wrote:
I have a simple array with name of cities in it.
I have in the coloumn "A" a list of city's names.

I should verify that every city included in the array can be found in
the coloumn "A".

How can I do that?. I believe with for, next array.count etc. but I
have many difficulties....

Hello Alex,
Good evening. What is the delimiter used in the City Name Array?
Anyway, you will be parsing the full array to get the individual names.
Use a loop...

Dim name()
Dim iniLet
for m= 0 to numberOfCitiesIntheBigArray
inilet=Mid(name(m), 1, 1)
if iniLet="A" then
List1.additem name(m)
Next m

'...ListBox, or combo or text box whatever it is
Hope this will help


Thanks for fast answer but maybe I didn't explain well.

In "arraycities" I have the name of the cities.
In the Excel file, in the column "A" I have a list of 100 cities.
I must verify if the city name in the array is included in the column
"A" of the Excel file:

So I thought something like (arraycities is a Collection already
filled):

For y = 1 To arraycities.Count 'take the first city of the array
For i = 1 to 100 'take the first city of the excel file

cityinthefile=Cells(i,1)
if arraycities(y)=cityinthefile 'ok should pass to another item of the
collection...
next y
'and restarting to cells(1,1) in the excel file...
exit for????

else

....'and when a city in the array is not present in the 100 first row of
coloumn "A" stop the procedure.

Hope it's more clear now.
I'm sorry to bother you all but this is important to me.

Thank you for your time.

Alex.

Bob Phillips provided an answer that should work.

--
Regards,
Tom Ogilvy


"Alex" wrote:


ha scritto:

Alex wrote:
I have a simple array with name of cities in it.
I have in the coloumn "A" a list of city's names.

I should verify that every city included in the array can be found in
the coloumn "A".

How can I do that?. I believe with for, next array.count etc. but I
have many difficulties....

Hello Alex,
Good evening. What is the delimiter used in the City Name Array?
Anyway, you will be parsing the full array to get the individual names.
Use a loop...

Dim name()
Dim iniLet
for m= 0 to numberOfCitiesIntheBigArray
inilet=Mid(name(m), 1, 1)
if iniLet="A" then
List1.additem name(m)
Next m

'...ListBox, or combo or text box whatever it is
Hope this will help


Thanks for fast answer but maybe I didn't explain well.

In "arraycities" I have the name of the cities.
In the Excel file, in the column "A" I have a list of 100 cities.
I must verify if the city name in the array is included in the column
"A" of the Excel file:

So I thought something like (arraycities is a Collection already
filled):

For y = 1 To arraycities.Count 'take the first city of the array
For i = 1 to 100 'take the first city of the excel file

cityinthefile=Cells(i,1)
if arraycities(y)=cityinthefile 'ok should pass to another item of the
collection...
next y
'and restarting to cells(1,1) in the excel file...
exit for????

else

....'and when a city in the array is not present in the 100 first row of
coloumn "A" stop the procedure.

Hope it's more clear now.
I'm sorry to bother you all but this is important to me.

Thank you for your time.

Alex.

Bob Phillips ha scritto:

For i = LBound(ary) To UBound(ary)
If IsError(Application.Match(ary(i),Columns(1),0)) Then
Msgbox ary(I) & " not found"
End If
Next i

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Alex" wrote in message
oups.com...
Help please!!!!.

I have a simple array with name of cities in it.
I have in the coloumn "A" a list of city's names.

I should verify that every city included in the array can be found in
the coloumn "A".

How can I do that?. I believe with for, next array.count etc. but I
have many difficulties....

Please help!!!!.
Thanks in advance.
Alex.



Thank you very much.
This works!. And it's a very powerful command (Application.Match) that
will help me very much in the future.

Thanks again,
Alex.

Tom Ogilvy ha scritto:

Bob Phillips provided an answer that should work.

--
Regards,
Tom Ogilvy


"Alex" wrote:


ha scritto:

Alex wrote:
I have a simple array with name of cities in it.
I have in the coloumn "A" a list of city's names.

I should verify that every city included in the array can be found in
the coloumn "A".

How can I do that?. I believe with for, next array.count etc. but I
have many difficulties....

Hello Alex,
Good evening. What is the delimiter used in the City Name Array?
Anyway, you will be parsing the full array to get the individual names.
Use a loop...

Dim name()
Dim iniLet
for m= 0 to numberOfCitiesIntheBigArray
inilet=Mid(name(m), 1, 1)
if iniLet="A" then
List1.additem name(m)
Next m

'...ListBox, or combo or text box whatever it is
Hope this will help


Thanks for fast answer but maybe I didn't explain well.

In "arraycities" I have the name of the cities.
In the Excel file, in the column "A" I have a list of 100 cities.
I must verify if the city name in the array is included in the column
"A" of the Excel file:

So I thought something like (arraycities is a Collection already
filled):

For y = 1 To arraycities.Count 'take the first city of the array
For i = 1 to 100 'take the first city of the excel file

cityinthefile=Cells(i,1)
if arraycities(y)=cityinthefile 'ok should pass to another item of the
collection...
next y
'and restarting to cells(1,1) in the excel file...
exit for????

else

....'and when a city in the array is not present in the 100 first row of
coloumn "A" stop the procedure.

Hope it's more clear now.
I'm sorry to bother you all but this is important to me.

Thank you for your time.

Alex.



Yes, thank you to all of you.
Alex.