Command code

  • Thread starter Thread starter Very Basic User
  • Start date Start date
V

Very Basic User

Hello,

I'll try to explain what I want a command to perform, any help would be
greatly appreciated.

I have a file "RCA TRIGGERS.XLSM" I want to add a command button that when I
hit it, it does the following. Copy the current sheet to the end of the
workbook, name the new tab by date and time, clear out the old form, and then
re-save the file. I tried to record a macro to do this and almost had it. The
only problem was that I can't name the tab with the characters that are used
in a date and time.

The second command I want is to hit a button that opens E-mail, attaches the
current sheet as an attachment, and sends the sheet to a specific
distribution list.

Any help will be valued.
 
Option Explicit
Sub testme()

ActiveSheet.Copy _
after:=Sheets(Sheets.Count)

'the new sheet is now the activesheet
ActiveSheet.Name = Format(Now, "yyyy-mm-dd_hh-mm-ss")

End Sub

There are characters and names you can't use when you name a sheet. I liked
this format of the date/time. But you may want to change to something you like.
 
You guys in here are incredible, I've been trying to figure this out for
hours. Thank you!
--
Thank you for your time!
John


Dave Peterson said:
Option Explicit
Sub testme()

ActiveSheet.Copy _
after:=Sheets(Sheets.Count)

'the new sheet is now the activesheet
ActiveSheet.Name = Format(Now, "yyyy-mm-dd_hh-mm-ss")

End Sub

There are characters and names you can't use when you name a sheet. I liked
this format of the date/time. But you may want to change to something you like.
Click to expand...
 
Back
Top