Macros that:Email,FindNext
 

Hi All

Any advice people could offer on the couple of porobably stupid
questions below would be much appreciated.

1- I have an existing macro that splits a worksheet down into data
specifically for a customer that i tell it at the beginning.
I know macro's can email stuff, and have worked out how to send the
file to a recipitent, with a subject, but i cant work out how to put in
some message text.
I cant really send the file automactically unless it has covering
message text...

2- Im trying to make another macro that finds the first title row in a
sheet, formats it, and then finds the next title row and does the same,
before moving onto the next sheet and doing the process again there.
Have made an input box to tell it where to start the first title row,
but cant work out how to make it find the next row.
Assuming somesort of Loop where it checks cell values vs a variable
sets as the first title row?
And when it has reached the bottom of the sheet, i need it to move to
the next sheet - how do i make it know where the end of the sheet is?

Also how do i make it stop once it reaches the final sheet?

Thanks!!!


--
iambalrog
------------------------------------------------------------------------
iambalrog's Profile: http://www.excelforum.com/member.php...o&userid=26977
View this thread: http://www.excelforum.com/showthread...hreadid=494080

Macros that:Email,FindNext
 

some clues about how you are doing the mailing and how you woul
determine a header row would help.

It is all too vague :

--
tony
-----------------------------------------------------------------------
tony h's Profile: http://www.excelforum.com/member.php...fo&userid=2107
View this thread: http://www.excelforum.com/showthread.php?threadid=49408

Macros that:Email,FindNext
 

Apologies, didnt mean to be to vague.

Emailing the sheet

The macro formats and selects relevant data, saves a seperate file, and
ends in the syntax:
ActiveWorkbook.SendMail Recipients:="Tim McHugh", Subject:="Your
Reports"

This emails succesfully emails a copy of the workbook which is what i
want - i just want to also put some automatic message text in there
along the lines of:
"Dear Tim, Please find attached your monthly reports,Kind Regards, Me"

The heading rows (and finding the next one)
I tell it in an input box where the first cell i want to format is. It
then selects the rest of that row that contains values and proceeds to
format that row (see syntax below-ive cut off the extensive formatting
for ease).
The problem i have is making it search for the next heading row (all it
needs to do is find the next event where a cell = the same value as the
start cell)
Once its completed all header formatting on that sheet i want it to
automatically go to the next sheet and ask me to tell it the startcell
again.

Dim StartFormat As String
Dim Format As String
StartFormat = InputBox("Enter a start cell reference (e.g. A1)",
"Start Cell")
Range(StartFormat).Select
Format = ActiveCell.Value
Range(ActiveCell, ActiveCell.End(xlToRight)).Select

Thanks!


--
iambalrog
------------------------------------------------------------------------
iambalrog's Profile: http://www.excelforum.com/member.php...o&userid=26977
View this thread: http://www.excelforum.com/showthread...hreadid=494080

Macros that:Email,FindNext
 

Hi iambalrog

This is not possible when you use SendMail
If you use Outlook you can use the Outlook object model

See my mail site
http://www.rondebruin.nl/sendmail.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"iambalrog" wrote in message
...

Apologies, didnt mean to be to vague.

Emailing the sheet

The macro formats and selects relevant data, saves a seperate file, and
ends in the syntax:
ActiveWorkbook.SendMail Recipients:="Tim McHugh", Subject:="Your
Reports"

This emails succesfully emails a copy of the workbook which is what i
want - i just want to also put some automatic message text in there
along the lines of:
"Dear Tim, Please find attached your monthly reports,Kind Regards, Me"

The heading rows (and finding the next one)
I tell it in an input box where the first cell i want to format is. It
then selects the rest of that row that contains values and proceeds to
format that row (see syntax below-ive cut off the extensive formatting
for ease).
The problem i have is making it search for the next heading row (all it
needs to do is find the next event where a cell = the same value as the
start cell)
Once its completed all header formatting on that sheet i want it to
automatically go to the next sheet and ask me to tell it the startcell
again.

Dim StartFormat As String
Dim Format As String
StartFormat = InputBox("Enter a start cell reference (e.g. A1)",
"Start Cell")
Range(StartFormat).Select
Format = ActiveCell.Value
Range(ActiveCell, ActiveCell.End(xlToRight)).Select

Thanks!


--
iambalrog
------------------------------------------------------------------------
iambalrog's Profile: http://www.excelforum.com/member.php...o&userid=26977
View this thread: http://www.excelforum.com/showthread...hreadid=494080