View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
DoctorG DoctorG is offline
external usenet poster
 
Posts: 106
Default Macro to subtract data from cells

I think that a piece of code which traverses each row of your spreadsheet and
checks the beginning of each cell's value against your standard values will
do what you need.

i.e.
(A column is an index, B column is the name field and so on)
line_counter=1
While line_counter < range("blah").rows.count

Activecell.Offset(1,0).Select // move down one row in A column

if Left(Activecell.Offset(0,1).Value,12)="Your name : " then
Activecell.Offset(0,1).Value=MID(Activecell.Offset (0,1).Value,13,999) //
this leaves the remaining characters after the unwanted part in the B column
cell
endif

line_counter=line_counter+1

Wend

Hope this helps