VBA Copy worksheet in a workbook to new workbook

[kirana2014]

Dear all,

I'd appreciate any help on how to copy 2 worksheet in a workbook : ID Data en Information
to new workbook and save them in to map the name value on sheets Menu range B3 en the file name on range B4
after copy add them as attachment on email ( I use outlook 2016)

see attachment excel file

Thanks

[Norie]

Here's the basic code.

Please Login or Register  to view this content.

[kirana2014]

Hi Norie,

Thank you for your quick response , I still get error message " The file name or path does not exist"
Dou you know how to make VBA if path not exit must be creat bij vba ?

I use below but not work please help

If Not IsFolderExixts(myFolder) Then
CreateObject("Scripting.FileSystemObject").CreateFolder myFolder
End If

[Norie]

In your workbook you had 'C\Database' in D3, that's not valid path.

By the way, the code I posted was missing a part - specifying the format of the new workbook, I've added that below so the new workbook saves as a macro-free workbook.

Please Login or Register  to view this content.

[kirana2014]

Hi Norie,

my mistake that was

C:\Database

[Norie]

Try this.

Please Login or Register  to view this content.

[kirana2014]

Hi Norie,

Working good, one more question it's possible to add

to : "roni123@gmail.com
cc : " "
Bcc : " "
Subject : Range("A1") on Menu

Thanks again for your help

Kirana

[Norie]

Is it always the same email address or will that come from the 'Menu' sheet too?

[kirana2014]

Please add from menu

To : range A6
Cc : range A7
Bcc : range A8

Subject : range A1


Thank for your time and help
Kirana

[kirana2014]

Hi Norie

Please help !

[Norie]

Kirana

I'm kind of busy right now but I'll post later.

[kirana2014]

Ok thanks no problem

[Norie]

Kirana

Here you are, sorry about the delay.

Please Login or Register  to view this content.