ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Macro to subtract data from cells (https://www.excelbanter.com/excel-programming/340924-macro-subtract-data-cells.html)

s_tyrone

Macro to subtract data from cells
 

I need a macro to take away data from my spreadsheet. The spreadsheet i
created from data i have emailed to me from a form on my website.

For example, each set of cells would have something like this with eac
line in each cell

F_name: John Smith
Unit: Computer Tech
Comments: blah blah blah

I would like the macro to take away the "F_name:, Unit:, and Comments:
text leaving only the valuable information that i can then make a goo
informative sheet with.

I am an experienced excel user so if you have any ideas please let m
know.

Thank

--
s_tyron
-----------------------------------------------------------------------
s_tyrone's Profile: http://www.excelforum.com/member.php...fo&userid=2751
View this thread: http://www.excelforum.com/showthread.php?threadid=47021


DoctorG

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


All times are GMT +1. The time now is 02:08 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com