Want to save as file in same location with formatting and paste special values without macro

[Mohammad Shafaat]

Option Explicit

Sub Send_Email_With_snapshot()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
ActiveWorkbook.RefreshAll
Dim lr As Integer
lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

sh.Range("A1:AG48").Select

With Selection.Parent.MailEnvelope.Item
    .to = "xyz@mail.com"
    .cc = ""
    .Subject = sh.Range("AN8").Value
    .attachments.Add "D:\n.xlsx"
    .send
   
End With
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.Quit
End Sub

 

[vletm]

Mohammad Shafaat
You wrote that...
Want to save as file in same location with formatting and paste special values without macro
... and You sent a Macro ... about sending email ... hmm?
If something WITHOUT macro, then
... what would You really mean?

 

[Mohammad Shafaat]

Mohammad Shafaat
You wrote that...
Want to save as file in same location with formatting and paste special values without macro
... and You sent a Macro ... about sending email ... hmm?
If something WITHOUT macro, then
... what would You really mean?

thnx for your kind revert
Sir i want just saves as same file with same formatting paste values in same location and also attached this to same mail

 

[vletm]

Mohammad Shafaat
I could copy & paste my reply here, but ...
I'll try one more time get an answer ...
Your original 'hope' was '... without macro' - okay?
What would You like to do 'without macro'?

 

[Mohammad Shafaat]

I could copy & paste my reply here, but ...
I'll try one more time get an answer ...
Your original 'hope' was '... without macro' - okay?
What would You like to do 'without macro'?

thru vba how i save as same file in new location with new name with formatting and paste special values.without macro

 

[vletm]

Mohammad Shafaat
hmm...?
This seems to be a deadend for me.
You write 'no' - but You mean 'yes'.
No LuckNow ...

 

[Mohammad Shafaat]

Mohammad Shafaat
hmm...?
This seems to be a deadend for me.
You write 'no' - but You mean 'yes'.
No LuckNow ...

please help friend....

 

[Hui]

The only way to save as Values and Formatting is to use: Save As and select a Non-spreadsheet format

Try these and see how you go:


Note the Text and CSV will loose formatting