Hi Mahesh,
*Thanks a lot! it is working fantastic!!*
Regards,
Prabhu
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our Lin
Hi Prabhu
just change
Kill sPath & sFname
Thanks
On Sun, Sep 4, 2011 at 9:41 AM, Prabhu wrote:
> Hi Mahesh,
>
> Plz find the same sheet i using for run this macro.
>
> Still a getting the same runtime error.
>
> Regards,
>
> Prabhu
>
> --
>
> -
Hi Mahesh,
Pzl find the workbook.
I would like to ask one more doubt when i click the pivot table value (in
the attached sheet summary)a new sheet is appearing. In that sheet all the
amount columns are appearing in date format.
Can you help me how to change get amount in number format and date
gt; *End Sub*
>
> * *
>
> * *
>
> * *
>
> *From:* excel-macros@googlegroups.com [mailto:
> excel-macros@googlegroups.com] *On Behalf Of *Mahesh parab
> *Sent:* Wednesday, August 31, 2011 6:24 PM
> *To:* excel-macros@googlegroups.com
> *Subject:* Re: $$Excel-Macros$$ *
ber <> 0 Then
MsgBox "Do Not select First Sheet", vbInformation
End If
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Mahesh parab
Sent: Wednesday, August 31, 2011 6:24 PM
To: excel-macros@googlegroups.com
Subject: Re:
Hi Mahesh,
Grete It is working.But i am getting runtime error"53" (File not found
message) and debug report is highlighting the below code.
Kill sPath & sFname & ".xls"
Note: It is creating file also on the given path.
Regards,
Prabhu
--
-
Hi Prabhu
Try
Sub Mtest()
Dim sPath As String, sFname As String, fname As String
Dim OutApp As Object, OutMail As Object
fname = ThisWorkbook.Name
sPath = ThisWorkbook.Path & "\"
sFname = "Statement as on " & Format(Date, "mm-dd-") & ".xls"
With ThisWorkbook
Sheets(Array(ActiveSheet.Name, Act
Hi Mahesh,
Thanks it is working now.. Can you help me , if the same file needs to be an
attachment in a new outlook mail with the subject name has to be the file
name, instead of saving in particular location.
Regards,
Prabhu.
--
---
Hi Prabhu
check path of your file
sPath = ThisWorkbook.Path & "D:\Reports\"
*should be*
sPath = "D:\Reports\"
Thanks
Mahesh
On Wed, Aug 31, 2011 at 11:25 PM, Prabhu wrote:
> Hi Ashish,
>
> Same Run time error "1004"
>
>- Make sure the specified folder is exists
>- Make sure the folde
Hi Ashish,
Same Run time error "1004"
- Make sure the specified folder is exists
- Make sure the folder that contains the file is not read-only
- Make sure the file name does not contain any of the following
characters< > ? [ ] :| or *
Debug shows the below yellow mark line item.
Hi Makesh,
I am getting some runtime error"1004"
Actually i have given path as "D:\Reports"
can you help me, whether i have to do some this else?
Regards,
Prabhu
--
--
Some important links for excel users:
1. Fol
try with "D:\Reports\"
On Wed, Aug 31, 2011 at 9:26 PM, Prabhu wrote:
> Hi Makesh,
>
> I am getting some runtime error"1004"
>
> Actually i have given path as "D:\Reports"
>
> can you help me, whether i have to do some this else?
>
> Regards,
>
> Prabhu
>
> --
>
> --
Hi Prabhu
Try
Option Explicit
Sub Mtest()
Dim sPath As String, sFname As String
sPath = ThisWorkbook.Path & "\"
sFname = "Statement as on " & Format(Date, "mm-dd-")
With ThisWorkbook
Sheets(Array(ActiveSheet.Name, ActiveSheet.Previous.Name)).Select
Sheets(Array(ActiveSheet.Name, ActiveSheet.P
13 matches
Mail list logo
