1 pushbutton , running 2 different sunroutines ( 1 consequtive number, 2 send email)

[Robbosan]

Good morning,
I am trying to get a single pushbutton on a form to increment cell d5 by one and also send an email with just 1 click
Sub roundedRectangle1_click()
sheet1.Range("E6"),Value=Sheet1.Range("e6").Value+1
End Sub
Sub rounded Rectangle1_Click()
Active WorkBook.SendMail Recipients:="email address", subject"Form No.1"
End Sub

But it only seems to run 1 routine only?

Any help greatly appreciated please.

[Norie]

Try this.

Please Login or Register  to view this content.

PS Can you edit your post to add code tags?

[Robbosan]

Thank you,
but everytime I try to run this it sends an error message and highlights .Sheets
error message reads "compile error"
invalid use of property?

[Norie]

Sheets isn't in the code.

[Robbosan]

Hi Norie,
Sorry typing error
error message reads ""compile error" invalid use of property? and highlights on the second line,first .Range

Sub roundedRectangle4_Click()
ActiveWorkbook.SendMail Recipients:="[email protected]", Subject:="Northampton Event"
Sheet1.Range ("E6"), Value = Sheet1.Range("E6").Value + 1

End Sub

[Norie]

Do you have a worksheet with the codename Sheet1?

The codename is what you see in the Project Explorer next to the sheet, the tab name is in brackets after it.

ProjExplorerTabCodeNames.JPG

[Robbosan]

Yes, it is called Sheet1 at the moment

[Norie]

Actually there are errors in the code which I didn't see straight off because you didn't use code tags.

This should run.

Please Login or Register  to view this content.

[Robbosan]

hi norie,thanks for that, the error does not appear any more, but it only sends email and does not count up?

[john55]

the code works fain for me...

[Norie]

Robbosan

Can you please add code tags?

[Robbosan]

Hi Norie,thank you for your help, I cut and pasted your code and it works. Many thanks

Robbosan