date:20140202

Re: $$Excel-Macros$$ Macro for Sending Multiple file to Multiple recepeint using Outlook

2014-02-02 Thread Atul Kesaria

Thanks Ashishreally helpfull...


On Mon, Feb 3, 2014 at 10:50 AM, ashish koul  wrote:

> try this
>
> Set Mailrng = Sheets("Sheet1").Range("c2:c" &
> Sheets("Sheet1").Range("c1").End(xlDown).Row)
>
>
> On Mon, Feb 3, 2014 at 12:28 AM, Atul Kesaria wrote:
>
>> Hi Ashish,
>>
>> You are rockstar. Just one last help. Can the range be set a dynamic
>> rather than staticas the range will vary from time to time.
>>
>> Regards
>> Atul
>>
>>
>> On Sun, Feb 2, 2014 at 9:50 PM, ashish koul wrote:
>>
>>> Sub test()
>>>
>>> Dim mailrng As Range
>>> Dim cl As Range
>>> Dim fl_path As String
>>>
>>>
>>>
>>> Set mailrng = Sheets("Sheet1").Range("c2:c5")
>>> For Each cl In mailrng
>>> Call sendmail(cl.Value, cl.Offset(0, -1).Value, cl.Offset(0, 1))
>>> Next
>>>
>>> End Sub
>>>
>>> Sub sendmail(mailid As String, nm As String, flname As String)
>>> Dim OutApp As Object
>>> Dim OutMail As Object
>>>
>>> Set OutApp = CreateObject("Outlook.Application")
>>>
>>> Set OutMail = OutApp.CreateItem(0)
>>>
>>> On Error Resume Next
>>> With OutMail
>>> .to = mailid
>>> .Subject = "Hello!"
>>> .Body = "Dear " & nm & "," & vbNewLine & vbNewLine & "HELLO !" &
>>> vbNewLine & vbNewLine & "Thank you"
>>> .Attachments.Add "C:\Documents and Settings\Ashish Koul\Desktop\fb page
>>> problem\" & flname & ".XLSX"
>>> .display 'or use .send
>>> End With
>>> On Error GoTo 0
>>> Set OutMail = Nothing
>>> Set OutApp = Nothing
>>> End Sub
>>>
>>>
>>>
>>> On Sun, Feb 2, 2014 at 6:23 PM, Atul Kesaria wrote:
>>>
 Hi Team,

 Any luck of my earlier mail.

 Regards
 Atul


 On Sat, Feb 1, 2014 at 10:34 PM, Atul Kesaria 
 wrote:

> Hi
> PFA fileplease note that the attachment which need to go with each
> mail would be a PDF file.
>
>
> On Sat, Feb 1, 2014 at 10:33 PM, Atul Kesaria 
> wrote:
>
>> PFA
>>
>>
>> On Sat, Feb 1, 2014 at 7:45 PM, ashish koul wrote:
>>
>>> please share a sample file
>>>
>>>
>>> On Sat, Feb 1, 2014 at 5:19 PM, Atul Kesaria >> > wrote:
>>>
 Hi Team,

 I need a help in getting a macro which will help sending email with
 attachment to list of person in the excel sheet which will have there 
 Name,
 email ID,Unique number. Please note that every person should receive a
 particular file based on their unique number. File are prestored in a
 particular location with a unique number mention in the excel sheet. 
 The
 subject line and body on the email will remain same.

 Thanking in advance.

 Regards
 Atul

 --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna
 be? It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this 
 forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like
 Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need
 Advice will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any
 security measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum
 owners and members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups "MS EXCEL AND VBA MACROS" group.
 To unsubscribe from this group and stop receiving emails from it,
 send an email to excel-macros+unsubscr...@googlegroups.com.
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.

>>>
>>>
>>>
>>> --
>>> *Regards*
>>>
>>> *Ashish Koul*
>>>
>>>
>>> *Visit*
>>> http://www.excelvbamacros.in
>>> Like Us on 
>>> Facebook
>>> Join Us on Facebook
>>>
>>>
>>> P Before printing, think about the environment.
>>>
>>>
>>>
>>> --
>>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
>>> It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>>> https://www.facebook.com/discussexcel
>>>
>>> FORUM RULES
>>>
>>> 1) Use concise, accurate thread titles. Poor thread titles, like
>>> Please Help, Urgent, Need Help, Formula Problem, Code Problem, an

Re: $$Excel-Macros$$ Help Needed

2014-02-02 Thread pmyk

This is very useful. 

> http://excelribbon.tips.net/T008351_Converting_Numbers_Into_Words.html
>
Thanks for this Link.

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Macro for Sending Multiple file to Multiple recepeint using Outlook

2014-02-02 Thread ashish koul

try this

Set Mailrng = Sheets("Sheet1").Range("c2:c" &
Sheets("Sheet1").Range("c1").End(xlDown).Row)


On Mon, Feb 3, 2014 at 12:28 AM, Atul Kesaria wrote:

> Hi Ashish,
>
> You are rockstar. Just one last help. Can the range be set a dynamic
> rather than staticas the range will vary from time to time.
>
> Regards
> Atul
>
>
> On Sun, Feb 2, 2014 at 9:50 PM, ashish koul  wrote:
>
>> Sub test()
>>
>> Dim mailrng As Range
>> Dim cl As Range
>> Dim fl_path As String
>>
>>
>>
>> Set mailrng = Sheets("Sheet1").Range("c2:c5")
>> For Each cl In mailrng
>> Call sendmail(cl.Value, cl.Offset(0, -1).Value, cl.Offset(0, 1))
>> Next
>>
>> End Sub
>>
>> Sub sendmail(mailid As String, nm As String, flname As String)
>> Dim OutApp As Object
>> Dim OutMail As Object
>>
>> Set OutApp = CreateObject("Outlook.Application")
>>
>> Set OutMail = OutApp.CreateItem(0)
>>
>> On Error Resume Next
>> With OutMail
>> .to = mailid
>> .Subject = "Hello!"
>> .Body = "Dear " & nm & "," & vbNewLine & vbNewLine & "HELLO !" &
>> vbNewLine & vbNewLine & "Thank you"
>> .Attachments.Add "C:\Documents and Settings\Ashish Koul\Desktop\fb page
>> problem\" & flname & ".XLSX"
>> .display 'or use .send
>> End With
>> On Error GoTo 0
>> Set OutMail = Nothing
>> Set OutApp = Nothing
>> End Sub
>>
>>
>>
>> On Sun, Feb 2, 2014 at 6:23 PM, Atul Kesaria wrote:
>>
>>> Hi Team,
>>>
>>> Any luck of my earlier mail.
>>>
>>> Regards
>>> Atul
>>>
>>>
>>> On Sat, Feb 1, 2014 at 10:34 PM, Atul Kesaria wrote:
>>>
 Hi
 PFA fileplease note that the attachment which need to go with each
 mail would be a PDF file.


 On Sat, Feb 1, 2014 at 10:33 PM, Atul Kesaria 
 wrote:

> PFA
>
>
> On Sat, Feb 1, 2014 at 7:45 PM, ashish koul wrote:
>
>> please share a sample file
>>
>>
>> On Sat, Feb 1, 2014 at 5:19 PM, Atul Kesaria 
>> wrote:
>>
>>> Hi Team,
>>>
>>> I need a help in getting a macro which will help sending email with
>>> attachment to list of person in the excel sheet which will have there 
>>> Name,
>>> email ID,Unique number. Please note that every person should receive a
>>> particular file based on their unique number. File are prestored in a
>>> particular location with a unique number mention in the excel sheet. The
>>> subject line and body on the email will remain same.
>>>
>>> Thanking in advance.
>>>
>>> Regards
>>> Atul
>>>
>>> --
>>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
>>> It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>>> https://www.facebook.com/discussexcel
>>>
>>> FORUM RULES
>>>
>>> 1) Use concise, accurate thread titles. Poor thread titles, like
>>> Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need
>>> Advice will not get quick attention or may not be answered.
>>> 2) Don't post a question in the thread of another member.
>>> 3) Don't post questions regarding breaking or bypassing any security
>>> measure.
>>> 4) Acknowledge the responses you receive, good or bad.
>>> 5) Jobs posting is not allowed.
>>> 6) Sharing copyrighted material and their links is not allowed.
>>>
>>> NOTE : Don't ever post confidential data in a workbook. Forum owners
>>> and members are not responsible for any loss.
>>> ---
>>> You received this message because you are subscribed to the Google
>>> Groups "MS EXCEL AND VBA MACROS" group.
>>> To unsubscribe from this group and stop receiving emails from it,
>>> send an email to excel-macros+unsubscr...@googlegroups.com.
>>> To post to this group, send email to excel-macros@googlegroups.com.
>>> Visit this group at http://groups.google.com/group/excel-macros.
>>> For more options, visit https://groups.google.com/groups/opt_out.
>>>
>>
>>
>>
>> --
>> *Regards*
>>
>> *Ashish Koul*
>>
>>
>> *Visit*
>> http://www.excelvbamacros.in
>> Like Us on 
>> Facebook
>> Join Us on Facebook 
>>
>>
>> P Before printing, think about the environment.
>>
>>
>>
>> --
>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
>> It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>> https://www.facebook.com/discussexcel
>>
>> FORUM RULES
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like
>> Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need
>> Advice will not get quick attention or may not be answered.
>> 2) Don't post a question in the thread of another member.
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>> 4) Acknowledge the responses you receive, go

Re: $$Excel-Macros$$ Macro for Sending Multiple file to Multiple recepeint using Outlook

2014-02-02 Thread Atul Kesaria

Hi Ashish,

You are rockstar. Just one last help. Can the range be set a dynamic rather
than staticas the range will vary from time to time.

Regards
Atul


On Sun, Feb 2, 2014 at 9:50 PM, ashish koul  wrote:

> Sub test()
>
> Dim mailrng As Range
> Dim cl As Range
> Dim fl_path As String
>
>
>
> Set mailrng = Sheets("Sheet1").Range("c2:c5")
> For Each cl In mailrng
> Call sendmail(cl.Value, cl.Offset(0, -1).Value, cl.Offset(0, 1))
> Next
>
> End Sub
>
> Sub sendmail(mailid As String, nm As String, flname As String)
> Dim OutApp As Object
> Dim OutMail As Object
>
> Set OutApp = CreateObject("Outlook.Application")
>
> Set OutMail = OutApp.CreateItem(0)
>
> On Error Resume Next
> With OutMail
> .to = mailid
> .Subject = "Hello!"
> .Body = "Dear " & nm & "," & vbNewLine & vbNewLine & "HELLO !" & vbNewLine
> & vbNewLine & "Thank you"
> .Attachments.Add "C:\Documents and Settings\Ashish Koul\Desktop\fb page
> problem\" & flname & ".XLSX"
> .display 'or use .send
> End With
> On Error GoTo 0
> Set OutMail = Nothing
> Set OutApp = Nothing
> End Sub
>
>
>
> On Sun, Feb 2, 2014 at 6:23 PM, Atul Kesaria wrote:
>
>> Hi Team,
>>
>> Any luck of my earlier mail.
>>
>> Regards
>> Atul
>>
>>
>> On Sat, Feb 1, 2014 at 10:34 PM, Atul Kesaria wrote:
>>
>>> Hi
>>> PFA fileplease note that the attachment which need to go with each
>>> mail would be a PDF file.
>>>
>>>
>>> On Sat, Feb 1, 2014 at 10:33 PM, Atul Kesaria wrote:
>>>
 PFA


 On Sat, Feb 1, 2014 at 7:45 PM, ashish koul wrote:

> please share a sample file
>
>
> On Sat, Feb 1, 2014 at 5:19 PM, Atul Kesaria 
> wrote:
>
>> Hi Team,
>>
>> I need a help in getting a macro which will help sending email with
>> attachment to list of person in the excel sheet which will have there 
>> Name,
>> email ID,Unique number. Please note that every person should receive a
>> particular file based on their unique number. File are prestored in a
>> particular location with a unique number mention in the excel sheet. The
>> subject line and body on the email will remain same.
>>
>> Thanking in advance.
>>
>> Regards
>> Atul
>>
>> --
>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
>> It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>> https://www.facebook.com/discussexcel
>>
>> FORUM RULES
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like
>> Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need
>> Advice will not get quick attention or may not be answered.
>> 2) Don't post a question in the thread of another member.
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>> 4) Acknowledge the responses you receive, good or bad.
>> 5) Jobs posting is not allowed.
>> 6) Sharing copyrighted material and their links is not allowed.
>>
>> NOTE : Don't ever post confidential data in a workbook. Forum owners
>> and members are not responsible for any loss.
>> ---
>> You received this message because you are subscribed to the Google
>> Groups "MS EXCEL AND VBA MACROS" group.
>> To unsubscribe from this group and stop receiving emails from it,
>> send an email to excel-macros+unsubscr...@googlegroups.com.
>> To post to this group, send email to excel-macros@googlegroups.com.
>> Visit this group at http://groups.google.com/group/excel-macros.
>> For more options, visit https://groups.google.com/groups/opt_out.
>>
>
>
>
> --
> *Regards*
>
> *Ashish Koul*
>
>
> *Visit*
> http://www.excelvbamacros.in
> Like Us on 
> Facebook
> Join Us on Facebook 
>
>
> P Before printing, think about the environment.
>
>
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
> It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like
> Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need
> Advice will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners
> and members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the

$$Excel-Macros$$ Re: Outlook 2010 : VBA Macro for sending image in HTML Body doesn't display correctly

2014-02-02 Thread Edouard Letort


Hello,

First you need to create an outlook mail object, then, write the mail body 
(in html) with the appropriate  tag. Please note 
following points : 
- embedded images must be save on your computer (as a jpg file or png file) 
;
- Since outlook 2013, embedded images must be attached to the email as well.


At the link below you will find all details and a working code template 
http://vba-useful.blogspot.fr/2014/01/send-html-email-with-embedded-images.html



Le jeudi 26 septembre 2013 09:03:18 UTC+2, Trabelsi Hichem a écrit :
>
> Hello,
>
> I Use the following code to send emails automatically with embedded image 
> in the HTML body, this worked with Office 2003, but when i upgrated to 
> Office 2010 it doesnt work anymore, the image doesnt appear correctly for 
> the receivers who have too outlook 2010 :
>
> this is the code i'm using :
>
> .
> .
> .
> FileName = "C:\Submission Reminder.gif"
>
> Set ol = CreateObject("outlook.application")
>
> Set monmail = ol.CreateItem(olMailItem)
>
> monmail.Recipients.Add (email)
>
> monmail.Subject = "Replicon : Timesheet Submission Reminder"
>
> monmail.htmlBody = ""
>
> monmail.Attachments.Add FileName
>
> monmail.send
>
> Set ol = Nothing
>
> Set monmail = Nothing
>
>
> I didnt find any solution which works on office 2010 on all vba forums, 
> could you please help me ?
>
> Thank you so much :)
>
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Need help in converting table format data to pivot format in excel

2014-02-02 Thread ashish koul

Sub test()

Sheets("Output").UsedRange.Clear

Dim i As Long
Dim j As Long
Dim k As Long
Dim s As Long
k = 2
Sheets("Input").Select
For i = 2 To Range("a4").Row
For j = Range("e5").Column To Range("g5").Column
For s = Range("i5").Column To Range("k5").Column
Range("a" & i & ":c" & i).Copy
Destination:=Sheets("Output").Range("a" & k)
Sheets("Output").Range("d" & k) = Cells(1, j)
Sheets("Output").Range("f" & k) = Cells(i, j).Text
Sheets("Output").Range("e" & k) = Cells(1, s)
Sheets("Output").Range("g" & k) = Cells(i, s).Text
k = k + 1
Next
Next

Next





End Sub



On Tue, Jan 28, 2014 at 2:20 PM, Umesh Kumar  wrote:

> Hi,
> My apologies, i uploaded the wrong work book second time around. Attached
> is the actual book.* (File Name: Request.xlsx)*
>
>
> On Tuesday, 28 January 2014 00:26:27 UTC+5:30, bé trần văn wrote:
>
>> You see File, with PivotTable VBA.
>>
>> 2014-01-27 Umesh Kumar 
>>
>>  Hi Ashish,
>>> I had pasted the sample file. Will attache it again.
>>>
>>> On Saturday, 25 January 2014 12:52:29 UTC+5:30, ashish wrote:

 please share sample file


 On Fri, Jan 24, 2014 at 2:13 PM, Umesh Kumar  wrote:

>  I would need help in converting table which is in table format to a
> pivot format. Below is the sample data which i have:
>
>
> 
> 
>
>
>
>
>
>
> I need in the output in the below format:
>
>
> 
>
>
>
>
>
>
>
>
>
>
>
>
> If you see for each row of Product 1, i need three rows of country and
> for three rows of customer type. The only exception is if either of 
> country
> of customer type is 0% we can ignore those cells. So for example from the
> above output table we may not need the Japan rows because Japan is given 
> as
> 0% for Product 1
>
>
>
> Similarly for Product 2, we may not need "Individual" rows because it
> is given as zero. I do not know how to write vb codes, so tried recording
> macro, however because of huge volume of data, the macro does not work.
>
>
> Regards
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
> It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like
> Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need
> Advice will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners
> and members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google
> Groups "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send
> an email to excel-macros...@googlegroups.com.
> To post to this group, send email to excel-...@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/groups/opt_out.
>



 --
  *Regards*

 *Ashish Koul*


  *Visit*
 http://www.excelvbamacros.in
 Like Us on 
 Facebook
 Join Us on Facebook 


 P Before printing, think about the environment.



>>> --
>>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
>>> It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>>> https://www.facebook.com/discussexcel
>>>
>>> FORUM RULES
>>>
>>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>>> will not get quick attention or may not be answered.
>>> 2) Don't post a question in the thread of another member.
>>> 3) Don't post questions regarding breaking or bypassing any security
>>> measure.
>>> 4) Acknowledge the responses you receive, good or bad.
>>> 5) Jobs posting is not allowed.
>>> 6) Sharing copyrighted materi

Re: $$Excel-Macros$$ Macro for Sending Multiple file to Multiple recepeint using Outlook

2014-02-02 Thread ashish koul

Sub test()

Dim mailrng As Range
Dim cl As Range
Dim fl_path As String



Set mailrng = Sheets("Sheet1").Range("c2:c5")
For Each cl In mailrng
Call sendmail(cl.Value, cl.Offset(0, -1).Value, cl.Offset(0, 1))
Next

End Sub

Sub sendmail(mailid As String, nm As String, flname As String)
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.to = mailid
.Subject = "Hello!"
.Body = "Dear " & nm & "," & vbNewLine & vbNewLine & "HELLO !" & vbNewLine
& vbNewLine & "Thank you"
.Attachments.Add "C:\Documents and Settings\Ashish Koul\Desktop\fb page
problem\" & flname & ".XLSX"
.display 'or use .send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub



On Sun, Feb 2, 2014 at 6:23 PM, Atul Kesaria  wrote:

> Hi Team,
>
> Any luck of my earlier mail.
>
> Regards
> Atul
>
>
> On Sat, Feb 1, 2014 at 10:34 PM, Atul Kesaria wrote:
>
>> Hi
>> PFA fileplease note that the attachment which need to go with each
>> mail would be a PDF file.
>>
>>
>> On Sat, Feb 1, 2014 at 10:33 PM, Atul Kesaria wrote:
>>
>>> PFA
>>>
>>>
>>> On Sat, Feb 1, 2014 at 7:45 PM, ashish koul wrote:
>>>
 please share a sample file


 On Sat, Feb 1, 2014 at 5:19 PM, Atul Kesaria wrote:

> Hi Team,
>
> I need a help in getting a macro which will help sending email with
> attachment to list of person in the excel sheet which will have there 
> Name,
> email ID,Unique number. Please note that every person should receive a
> particular file based on their unique number. File are prestored in a
> particular location with a unique number mention in the excel sheet. The
> subject line and body on the email will remain same.
>
> Thanking in advance.
>
> Regards
> Atul
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
> It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like
> Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need
> Advice will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners
> and members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google
> Groups "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send
> an email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/groups/opt_out.
>



 --
 *Regards*

 *Ashish Koul*


 *Visit*
 http://www.excelvbamacros.in
 Like Us on 
 Facebook
 Join Us on Facebook 


 P Before printing, think about the environment.



 --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners
 and members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups "MS EXCEL AND VBA MACROS" group.
 To unsubscribe from this group and stop receiving emails from it, send
 an email to excel-macros+unsubscr...@googlegroups.com.
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ merge both the macro codes given below and make it one code so that i can use it in single sheet

2014-02-02 Thread ashish koul

can u please share the workbook


On Mon, Jan 27, 2014 at 9:18 PM,  wrote:

> Please merge the below given both the codes so that i can use it in one
> module.
> 1. to insert current date and time in A column when data entered in B
> column.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim rng As Range
> Set rng = Target.Parent.Range("B:B")
> If Target.Count > 1 Then Exit Sub
> If Intersect(Target, rng) Is Nothing Then Exit Sub
> If Target.Value = "" Then Target.Offset(0, -1).Value = ""
> If Target.Value <> "" Then Target.Offset(0, -1).Value = Now
> End Sub
>
>
> 2 . To lock the range of cells when data is entered.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Cells.Count > 1 Then Exit Sub
> If Not Intersect(Target, Range("A1:F1048576")) Is Nothing Then 'set your
> range here
> ActiveSheet.Unprotect Password:="mypassword"
> Target.Locked = True
> ActiveSheet.Protect Password:="mypassword"
> End If
> End Sub
>
> Thanks in advance for your help
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/groups/opt_out.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebook
Join Us on Facebook 


P Before printing, think about the environment.

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ - Download attachments and merge spreadsheets

2014-02-02 Thread ashish koul

Option Explicit
Sub sample_macro()
'reference -> microsoft outlook
Dim oitem As Outlook.MailItem
Dim ol As Outlook.Application
Dim olns As Outlook.Namespace
Dim oinbox As Outlook.Folder
Dim dpath As String, I As Long, j As Long

dpath = "C:\Documents and Settings\user\My Documents\sample\" ' choose
folder to save attachments

ThisWorkbook.Sheets(1).Range("a2:d" &
ThisWorkbook.Sheets(1).Range("a1048576").End(xlUp).Row + 1).Clear 'clear
existing data if any

Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")

Set oinbox = olns.GetDefaultFolder(olFolderInbox) 'select the inbox
Set oinbox = oinbox.Folders("DM") ' select if you wnat to choose any
specific folder
oinbox.Items.Sort "[ReceivedTime]", True
j = 2

For Each oitem In oinbox.Items
For I = 1 To oitem.Attachments.Count
ThisWorkbook.Sheets(1).Range("a" & j).Value = oitem.SenderName
ThisWorkbook.Sheets(1).Range("b" & j).Value = oitem.Subject
ThisWorkbook.Sheets(1).Range("c" & j).Value = oitem.ReceivedTime
ThisWorkbook.Sheets(1).Range("d" & j).Value =
oitem.Attachments.Item(I).DisplayName
oitem.Attachments.Item(I).SaveAsFile dpath &
oitem.Attachments.Item(I).DisplayName
j = j + 1
Next
Next

Set oinbox = Nothing
Set olns = Nothing
Set ol = Nothing
End Sub




On Sun, Feb 2, 2014 at 9:30 PM, Raviinder Nei
wrote:

>  Pls provide some example mails with respective attachments which you
> wants to merge.
>
>
>
> *From:* excel-macros@googlegroups.com [mailto:
> excel-macros@googlegroups.com] *On Behalf Of *BUNTY
> *Sent:* Saturday, February 01, 2014 10:16 PM
> *To:* excel-macros@googlegroups.com
> *Subject:* $$Excel-Macros$$ - Download attachments and merge spreadsheets
>
>
>
>
>
> Dear Gurus,
>
> I need serious help from you all
>
> I receive almost 400 mails every day with specific subject, attachment
> name and fixed sender.
>
> Is there a way to download attachments automatically from outlook and
> place it in to the respective folders. Also these attachments data
> structure is fixed so need help to consolidate / merge these file on daily
> basis.
>
> Thanks..
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/groups/opt_out.
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/groups/opt_out.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebook
Join Us on Facebook

RE: $$Excel-Macros$$ - Download attachments and merge spreadsheets

2014-02-02 Thread Raviinder Nei

Pls provide some example mails with respective attachments which you wants to 
merge.

From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On 
Behalf Of BUNTY
Sent: Saturday, February 01, 2014 10:16 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ - Download attachments and merge spreadsheets

Dear Gurus,

I need serious help from you all

I receive almost 400 mails every day with specific subject, attachment name and 
fixed sender. 

Is there a way to download attachments automatically from outlook and place it 
in to the respective folders. Also these attachments data structure is fixed so 
need help to consolidate / merge these file on daily basis.

Thanks..

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ VBA Macro Code - for spell of Numbers into Words

2014-02-02 Thread ashish koul

can you share sample file


On Tue, Jan 28, 2014 at 1:41 PM, Camukesh2015 wrote:

>
>
> Hi EverReady,
>
> I have downloaded a macro code for spell numbers in Indian Rupees, in
> Lakhs and Crore notation. But I am facing a problem in the code. Code is
> working fine upto 200 crore conversion into words but when I tried to
> convert above 200 crore formula showing #Value! errror.. I have tried to
> understand the problem but failed to understand problem...Kindly any body
> help to correct this mistake I am posting code here...
>
>
> Function NumbertoRupee(ByVal MyNumber, Optional incRupees As Boolean =
> True)
>
> Dim Crores, Lakhs, Rupees, Paise, Temp
>
> Dim DecimalPlace As Long, Count As Long
>
> Dim myLakhs, myCrores
>
> ReDim Place(9) As String
>
> Place(2) = " Thousand ": Place(3) = " Million "
>
> Place(4) = " Billion ": Place(5) = " Trillion "
>
> ' String representation of amount.
>
> MyNumber = Trim(Str(MyNumber))
>
> ' Position of decimal place 0 if none.
>
> DecimalPlace = InStr(MyNumber, ".")
>
> ' Convert Paise and set MyNumber to Rupees amount.
>
> If DecimalPlace > 0 Then
>
> Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
>
> MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
>
> End If
>
> myCrores = MyNumber \ 1000
>
> myLakhs = (MyNumber - myCrores * 1000) \ 10
>
> MyNumber = MyNumber - myCrores * 1000 - myLakhs * 10
>
> Count = 1
>
> Do While myCrores <> ""
>
> Temp = GetHundreds(Right(myCrores, 3))
>
> If Temp <> "" Then Crores = Temp & Place(Count) & Crores
>
> If Len(myCrores) > 3 Then
>
> myCrores = Left(myCrores, Len(myCrores) - )
>
> Else
>
> myCrores = ""
>
> End If
>
> Count = Count + 1
>
> Loop
>
> Count = 1
>
> Do While myLakhs <> ""
>
> Temp = GetHundreds(Right(myLakhs, 3))
>
> If Temp <> "" Then Lakhs = Temp & Place(Count) & Lakhs
>
> If Len(myLakhs) > 3 Then
>
> myLakhs = Left(myLakhs, Len(myLakhs) - 3)
>
> Else
>
> myLakhs = ""
>
> End If
>
> Count = Count + 1
>
> Loop
>
> Count = 1
>
> Do While MyNumber <> ""
>
> Temp = GetHundreds(Right(MyNumber, 3))
>
> If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
>
> If Len(MyNumber) > 3 Then
>
> MyNumber = Left(MyNumber, Len(MyNumber) - 3)
>
> Else
>
> MyNumber = ""
>
> End If
>
> Count = Count + 1
>
> Loop
>
> Select Case Crores
>
> Case "": Crores = ""
>
> Case "One": Crores = " One Crore "
>
> Case Else: Crores = Crores & " Crores "
>
> End Select
>
> Select Case Lakhs
>
> Case "": Lakhs = ""
>
> Case "One": Lakhs = " One Lakh "
>
> Case Else: Lakhs = Lakhs & " Lakhs "
>
> End Select
>
> Select Case Rupees
>
> Case "": Rupees = "Zero "
>
> Case "One": Rupees = "One "
>
> Case Else:
>
>
>
>
>
> Rupees = Rupees
>
> End Select
>
> Select Case Paise
>
> Case "": Paise = " and Paise Zero Only "
>
> Case "One": Paise = " and Paise One Only "
>
> Case Else: Paise = " and Paise " & Paise & " Only "
>
> End Select
>
> NumbertoRupee = IIf(incRupees, "Rupees ", "") & Crores & _
>
> Lakhs & Rupees & Paise
>
> End Function
>
> ' Converts a number from 100-999 into text
>
> Function GetHundreds(ByVal MyNumber)
>
> Dim Result As String
>
> If Val(MyNumber) = 0 Then Exit Function
>
> MyNumber = Right("000" & MyNumber, 3)
>
> ' Convert the hundreds place.
>
> If Mid(MyNumber, 1, 1) <> "0" Then
>
> Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
>
> End If
>
> ' Convert the tens and ones place.
>
> If Mid(MyNumber, 2, 1) <> "0" Then
>
> Result = Result & GetTens(Mid(MyNumber, 2))
>
> Else
>
> Result = Result & GetDigit(Mid(MyNumber, 3))
>
> End If
>
> GetHundreds = Result
>
> End Function
>
> ' Converts a number from 10 to 99 into text.
>
> Function GetTens(TensText)
>
> Dim Result As String
>
> Result = "" ' Null out the temporary function value.
>
> If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
>
> Select Case Val(TensText)
>
> Case 10: Result = "Ten"
>
> Case 11: Result = "Eleven"
>
> Case 12: Result = "Twelve"
>
> Case 13: Result = "Thirteen"
>
> Case 14: Result = "Fourteen"
>
> Case 15: Result = "Fifteen"
>
> Case 16: Result = "Sixteen"
>
> Case 17: Result = "Seventeen"
>
> Case 18: Result = "Eighteen"
>
> Case 19: Result = "Nineteen"
>
> Case Else
>
> End Select
>
> Else ' If value between 20-99...
>
> Select Case Val(Left(TensText, 1))
>
> Case 2: Result = "Twenty "
>
> Case 3: Result = "Thirty "
>
> Case 4: Result = "Forty "
>
> Case 5: Result = "Fifty "
>
> Case 6: Result = "Sixty "
>
> Case 7: Result = "Seventy "
>
> Case 8: Result = "Eighty "
>
> Case 9: Result = "Ninety "
>
> Case Else
>
> End Select
>
> Result = Result & GetDigit _
>
> (Right(TensText, 1)) ' Retrieve ones place.
>
> End If
>
> GetTens = Result
>
> End Function
>
> ' Converts a number from 1 to 9 into text.
>
> Function GetDigit(digit)
>
> Select Case Val(digit)
>
> Case 1: GetDigit = "One"
>
> Case 2: GetDigit = "Two"
>
> Case 3: GetDigit = "Three"
>
> Case 4: GetDigit = "Four"
>
> Case 5: GetDigit = "Five"
>
> Case 6: GetDigit = "Six"
>
> Case 7: GetDigit = "Seven"
>
> Case 8: GetDigit = "Eight"
>
> C

Re: $$Excel-Macros$$ Help Needed

2014-02-02 Thread ashish koul

http://excelribbon.tips.net/T008351_Converting_Numbers_Into_Words.html
http://support.microsoft.com/kb/213360
http://www.yogeshguptaonline.com/2009/07/excel-functions-convert-numbers-into.html
check above links



On Thu, Jan 30, 2014 at 2:39 PM, Harish P Y  wrote:

> Dear Excel Gurus,
>
> Please find the attached file Marks Sheet,
> and i want to obtain the marks obtained in words and the result obtained
> as indicated in the attachment.
> Kindly help me out in sorting out this.
>
> Regards
>
> Harish
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/groups/opt_out.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on 
Facebook
Join Us on Facebook 


P Before printing, think about the environment.

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Macro for Sending Multiple file to Multiple recepeint using Outlook

2014-02-02 Thread Atul Kesaria

Hi Team,

Any luck of my earlier mail.

Regards
Atul

On Sat, Feb 1, 2014 at 10:34 PM, Atul Kesaria wrote:

> Hi
> PFA fileplease note that the attachment which need to go with each
> mail would be a PDF file.
>
>
> On Sat, Feb 1, 2014 at 10:33 PM, Atul Kesaria wrote:
>
>> PFA
>>
>>
>> On Sat, Feb 1, 2014 at 7:45 PM, ashish koul wrote:
>>
>>> please share a sample file
>>>
>>>
>>> On Sat, Feb 1, 2014 at 5:19 PM, Atul Kesaria wrote:
>>>
 Hi Team,

 I need a help in getting a macro which will help sending email with
 attachment to list of person in the excel sheet which will have there Name,
 email ID,Unique number. Please note that every person should receive a
 particular file based on their unique number. File are prestored in a
 particular location with a unique number mention in the excel sheet. The
 subject line and body on the email will remain same.

 Thanking in advance.

 Regards
 Atul

 --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners
 and members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups "MS EXCEL AND VBA MACROS" group.
 To unsubscribe from this group and stop receiving emails from it, send
 an email to excel-macros+unsubscr...@googlegroups.com.
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.

>>>
>>>
>>>
>>> --
>>> *Regards*
>>>
>>> *Ashish Koul*
>>>
>>>
>>> *Visit*
>>> http://www.excelvbamacros.in
>>> Like Us on 
>>> Facebook
>>> Join Us on Facebook 
>>>
>>>
>>> P Before printing, think about the environment.
>>>
>>>
>>>
>>> --
>>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
>>> It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>>> https://www.facebook.com/discussexcel
>>>
>>> FORUM RULES
>>>
>>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>>> will not get quick attention or may not be answered.
>>> 2) Don't post a question in the thread of another member.
>>> 3) Don't post questions regarding breaking or bypassing any security
>>> measure.
>>> 4) Acknowledge the responses you receive, good or bad.
>>> 5) Jobs posting is not allowed.
>>> 6) Sharing copyrighted material and their links is not allowed.
>>>
>>> NOTE : Don't ever post confidential data in a workbook. Forum owners and
>>> members are not responsible for any loss.
>>> ---
>>> You received this message because you are subscribed to the Google
>>> Groups "MS EXCEL AND VBA MACROS" group.
>>> To unsubscribe from this group and stop receiving emails from it, send
>>> an email to excel-macros+unsubscr...@googlegroups.com.
>>> To post to this group, send email to excel-macros@googlegroups.com.
>>> Visit this group at http://groups.google.com/group/excel-macros.
>>> For more options, visit https://groups.google.com/groups/opt_out.
>>>
>>
>>
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop recei

$$Excel-Macros$$ C002AB8CF

2014-02-02 Thread Sandeep Kumar Chhajer

Those who are using BBM Channel check out this channel. Channel Pin C002AB8CF. 
:)  
Thanks & Regards,
Sandeep Kumar Chhajer
Mumbai
India 

Sent on my BlackBerry(R) from Vodafone

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

Re: $$Excel-Macros$$ Average Using Sumproduct

2014-02-02 Thread Swapnil Palande

Hi,

Try these below mentioned formulas

=SUMPRODUCT(((--(A1:A4={"a","b"})*B1:B4)) / (COUNTIF(A1:A4, "a") +
COUNTIF(A1:A4, "b")))

OR

=SUMPRODUCT((--(A1:A4={"a","b"})*B1:B4))/SUMPRODUCT(--(A1:A4={"a","b"}))


Hope this is what you want.

Regards,

Swapnil.


On Fri, Jan 31, 2014 at 8:04 PM, Chandra Shekar <
chandrashekarb@gmail.com> wrote:

> Hi,
>
> am getting incorrect answer.
>
> Regards,
>
> Chandru
>
>
> On Fri, Jan 31, 2014 at 5:03 PM, Aamir Shahzad 
> wrote:
>
>> Try this
>>
>> =SUMPRODUCT(($A$1:$A$4=A1)*($B$1:$B$4)/COUNTIF($A$1:$A$4,A1))
>>
>>
>> On Fri, Jan 31, 2014 at 3:33 PM, Chandra Shekar <
>> chandrashekarb@gmail.com> wrote:
>>
>>> Hello,
>>>
>>> Could you please help me in attached file to find average using
>>> sumproduct.
>>>
>>> Thanks in advance.
>>>
>>> Regards,
>>>
>>> Chandru
>>>
>>> --
>>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
>>> It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>>> https://www.facebook.com/discussexcel
>>>
>>> FORUM RULES
>>>
>>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>>> will not get quick attention or may not be answered.
>>> 2) Don't post a question in the thread of another member.
>>> 3) Don't post questions regarding breaking or bypassing any security
>>> measure.
>>> 4) Acknowledge the responses you receive, good or bad.
>>> 5) Jobs posting is not allowed.
>>> 6) Sharing copyrighted material and their links is not allowed.
>>>
>>> NOTE : Don't ever post confidential data in a workbook. Forum owners and
>>> members are not responsible for any loss.
>>> ---
>>> You received this message because you are subscribed to the Google
>>> Groups "MS EXCEL AND VBA MACROS" group.
>>> To unsubscribe from this group and stop receiving emails from it, send
>>> an email to excel-macros+unsubscr...@googlegroups.com.
>>> To post to this group, send email to excel-macros@googlegroups.com.
>>> Visit this group at http://groups.google.com/group/excel-macros.
>>> For more options, visit https://groups.google.com/groups/opt_out.
>>>
>>
>>
>>
>> --
>>
>> Regards,
>> Aamir Shahzad
>>
>> --
>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's
>> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>> https://www.facebook.com/discussexcel
>>
>> FORUM RULES
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>> 2) Don't post a question in the thread of another member.
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>> 4) Acknowledge the responses you receive, good or bad.
>> 5) Jobs posting is not allowed.
>> 6) Sharing copyrighted material and their links is not allowed.
>>
>> NOTE : Don't ever post confidential data in a workbook. Forum owners and
>> members are not responsible for any loss.
>> ---
>> You received this message because you are subscribed to the Google Groups
>> "MS EXCEL AND VBA MACROS" group.
>> To unsubscribe from this group and stop receiving emails from it, send an
>> email to excel-macros+unsubscr...@googlegroups.com.
>> To post to this group, send email to excel-macros@googlegroups.com.
>> Visit this group at http://groups.google.com/group/excel-macros.
>> For more options, visit https://groups.google.com/groups/opt_out.
>>
>
>  --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/groups/opt_out.
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FO

Re: $$Excel-Macros$$ Macro for Sending Multiple file to Multiple recepeint using Outlook

Re: $$Excel-Macros$$ Help Needed

Re: $$Excel-Macros$$ Macro for Sending Multiple file to Multiple recepeint using Outlook

Re: $$Excel-Macros$$ Macro for Sending Multiple file to Multiple recepeint using Outlook

$$Excel-Macros$$ Re: Outlook 2010 : VBA Macro for sending image in HTML Body doesn't display correctly

Re: $$Excel-Macros$$ Need help in converting table format data to pivot format in excel

Re: $$Excel-Macros$$ Macro for Sending Multiple file to Multiple recepeint using Outlook

Re: $$Excel-Macros$$ merge both the macro codes given below and make it one code so that i can use it in single sheet

Re: $$Excel-Macros$$ - Download attachments and merge spreadsheets

RE: $$Excel-Macros$$ - Download attachments and merge spreadsheets

Re: $$Excel-Macros$$ VBA Macro Code - for spell of Numbers into Words

Re: $$Excel-Macros$$ Help Needed

Re: $$Excel-Macros$$ Macro for Sending Multiple file to Multiple recepeint using Outlook

$$Excel-Macros$$ C002AB8CF

Re: $$Excel-Macros$$ Average Using Sumproduct

15 matches

Site Navigation

Mail list logo

Footer information