Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Please Help me

Thank you,

I have a spreadsheet that uses web querry to download date into a
spreadsheet, however i need to be able to extract data from the cells
see below:-

Cell A Cell B Cell C
Shergar 97 ****
Flinstone 78 ***
Me Again 1000 ****

what I want to do is be able to search cell C for all the **** and
extract the horses name in cell A and save this info to another sheet.
so in the above example I would have

Shergar ****
Me Again ****

Ps there could upto 500 horses to search each on its own line

how would i write a VB piece of code to do this ?

any help would be welcome

thanks
headbutt


---
Message posted from http://www.ExcelForum.com/

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3,885
Default Please Help me

Hi
I would try to use Filter. Goto 'Data - filter - advanced filter'
have a look at
http://www.contextures.com/xladvfilter01.html
for using filters

Frank

Thank you,

I have a spreadsheet that uses web querry to download date into a
spreadsheet, however i need to be able to extract data from the cells
see below:-

Cell A Cell B Cell C
Shergar 97 ****
Flinstone 78 ***
Me Again 1000 ****

what I want to do is be able to search cell C for all the **** and
extract the horses name in cell A and save this info to another

sheet.
so in the above example I would have

Shergar ****
Me Again ****

Ps there could upto 500 horses to search each on its own line

how would i write a VB piece of code to do this ?

any help would be welcome

thanks
headbutt


---
Message posted from http://www.ExcelForum.com/



  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 100
Default Please Help me

Headbut

Try this

Ton

Sub aaa(
outfile = Workbooks("book2").Sheets("sheet1").Range("a1").Ad dress(external:=True
cnta =

Range("c2").Selec
While Not IsEmpty(ActiveCell
If ActiveCell = "****" The
Range(outfile).Offset(cnta, 0) = ActiveCell.Offset(0, -2
Range(outfile).Offset(cnta, 1) = ActiveCel
cnta = cnta +
End I
ActiveCell.Offset(1, 0).Selec
Wen

End Su

----- Headbutt wrote: ----

Thank you

I have a spreadsheet that uses web querry to download date into
spreadsheet, however i need to be able to extract data from the cell
see below:

Cell A Cell B Cell
Shergar 97 ***
Flinstone 78 **
Me Again 1000 ***

what I want to do is be able to search cell C for all the **** an
extract the horses name in cell A and save this info to another sheet
so in the above example I would hav

Shergar ***
Me Again ***

Ps there could upto 500 horses to search each on its own lin

how would i write a VB piece of code to do this

any help would be welcom

thank
headbut


--
Message posted from http://www.ExcelForum.com


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On



All times are GMT +1. The time now is 08:56 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"