extracting specific data

[divapaxo]

Hi All

I would like to add a small bit of code to my existing code to
extract only rows where column "A" starts with HL
could someone please help me with this problem i have

thanks you

 

[venkat1926]

dim rng,c as range
set rng=range(range("a1"),range("a1").end(xldown))
for each c in rng
if left(c.vlaue,2)="HL" then
c.entirerow.copy (destination)
.....
....
....

some like the above.

 

[Richard Schollar]

Or:

Range("A1:A1000").Autofilter Field:=1, Criteria1:="HL*"

Adjust range to suit.

Richard

 

[divapaxo]

thank you very very much it works