Re: $$Excel-Macros$$ Re: IGNORE_BLANK_CELLS_AND_COMBINE_WITH_UNIQUE

2013-03-29 Thread priti verma
=INDEX($A$1:$A$561,SMALL(IF($A$2:$A$5610,ROW($A$2:$A$561),),ROW()-1),1)


On Fri, Mar 29, 2013 at 10:55 AM, Prince prince141...@gmail.com wrote:

 Hi Friend,

 As i saw your data contain 0 in place of blank cell so i have modified my
 formula according that.

 So See the Attached.

 Regards
 Prince

 On Thursday, March 28, 2013 9:50:53 AM UTC+5:30, Sundarvelan wrote:

 Dear Freinds,

 Please help me to combine ignoring the blank cells

  Thanks
 N.Sundarvelan
 9600160150

  --
 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?hl=en.
 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?hl=en.
For more options, visit https://groups.google.com/groups/opt_out.




Re: $$Excel-Macros$$ Vba Code to extract Data from one sheet toanother * *

2013-03-29 Thread Hilary Lomotey
THANKS BROTHER

On Thu, Mar 28, 2013 at 7:07 PM, Bé Trần Văn betnmtdongna...@gmail.comwrote:

  [image: Boxbe] https://www.boxbe.com/overview This message is eligible
 for Automatic Cleanup! (betnmtdongna...@gmail.com) Add cleanup 
 rulehttps://www.boxbe.com/popup?url=https%3A%2F%2Fwww.boxbe.com%2Fcleanup%3Ftoken%3DVNcYsiqrrCOcTam%252Fy22A7Wjh%252FAKTQKhR08CVWHTay9h3sWG8HdIGaApSqM5rgT77RyE6rW6mGVPliw9Kgba%252BaLZW6CQ20sqisqyGHHz0c2RlZxK4imil6k%252B8dJgwCYmbiKIbnOHAdHxxT%252BD7ahbxaw%253D%253D%26key%3DrUujfwROgayqUHtutg4h%252FG1pJmlHnFpgg67afcw6FkQ%253Dtc_serial=13848284090tc_rand=579330822utm_source=stfutm_medium=emailutm_campaign=ANNO_CLEANUP_ADDutm_content=001|
  More
 infohttp://blog.boxbe.com/general/boxbe-automatic-cleanup?tc_serial=13848284090tc_rand=579330822utm_source=stfutm_medium=emailutm_campaign=ANNO_CLEANUP_ADDutm_content=001

 Place the code in Module1
 Sheet Module which contain data
 Sheet Output is Paste Data
 Code:

 Sub Extractdata()
 Sheets(Module).Select
 Range(A2:P66).Select
 Selection.Copy
 Sheets(Output).Select
 Range(A2).Select
 ActiveSheet.Paste
 Range(A1).Select
 End Sub



 2013/3/28 Hilary Lomotey resp...@gmail.com



 Hello Experts,
 i tried using recorded marco but still having slight chanllenges, it can
 pick the worksheet unless the particular worksheet is active. kindly amend
 this macro for me. thanks

 Sub Extractdata()

 With Worksheets(Module).Range(B2).Value
 Range(C3:C66).Select
 Selection.Copy
 Sheets(Module).Select
 Range(J2).Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
 SkipBlanks _
 :=False, Transpose:=False
 Selection.SpecialCells(xlCellTypeBlanks).Select
 Application.CutCopyMode = False
 Selection.Delete Shift:=xlUp
End With

 End Sub

 On Thu, Mar 28, 2013 at 12:11 PM, Hilary Lomotey resp...@gmail.comwrote:

 [image: Boxbe] https://www.boxbe.com/overview This message is
 eligible for Automatic Cleanup! (resp...@gmail.com) Add cleanup 
 rulehttps://www.boxbe.com/popup?url=https%3A%2F%2Fwww.boxbe.com%2Fcleanup%3Ftoken%3DSZeJRZAkPWRnQdTTEzoEaW3iZl%252Fql2Cy6ZGV%252Fqc77GfgZF76q0tP5wqW%252FbjE58EoEIuuSYf4XVrbzExk25qQ6Yyj7%252FxMs%252FCjWYZmYb6vdNpgr5excC7TKRd75f5tdtALy0GgFJupmT4%253D%26key%3DEcqCbLCVCg2Ltr2xLuOuq8OrjXIfqBBGuHJliw%252BlmUA%253Dtc_serial=13845676733tc_rand=675996406utm_source=stfutm_medium=emailutm_campaign=ANNO_CLEANUP_ADDutm_content=001|
  More
 infohttp://blog.boxbe.com/general/boxbe-automatic-cleanup?tc_serial=13845676733tc_rand=675996406utm_source=stfutm_medium=emailutm_campaign=ANNO_CLEANUP_ADDutm_content=001

 Hi Experts

 i have attempted to write a VBA code to extract data from one sheet to
 another but am getting a debug error, kindly assist. What am trying to
 achieve is
 if i select a name from the list of users in the dashboard, that name is
 always a sheet name, i want to copy all the list of institution visited
 from the selected sheet name (or member of the user list) and paste in the
 module sheet range J2, but this has to be automatic ie when i select a user
 it shd run the code and paste it in that range. 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?hl=en.
 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 

$$Excel-Macros$$ Re: Vba Code to extract Data from one sheet to another

2013-03-29 Thread Lalit Mohan Pandey
Hi Hilary,

Below code will help you

Option Explicit

Sub Copy_Visited_Client_Data()

Dim wksModule   As Worksheet
Dim wksDashBoardAs Worksheet
Dim wksUserSht  As Worksheet
Dim rngDataRangeAs Range
Dim rngDstRange As Range
Dim objDropDown As DropDown
Dim varData()   As Variant
Dim lngCountAs Long

Const strDataStartCell  As String = C2
Const strDestinationCellAs String = J1
Const strUserControlListNameAs String = Drop Down 2

With ThisWorkbook
Set wksModule = .Worksheets(Module)
Set wksDashBoard = .Worksheets(Dashboard)
End With

With wksDashBoard
Set objDropDown = .DropDowns(strUserControlListName)
End With

With ThisWorkbook
Set wksUserSht = Nothing
On Error Resume Next
Set wksUserSht = 
.Worksheets(objDropDown.List(objDropDown.ListIndex))
On Error GoTo -1: On Error GoTo 0: Err.Clear
End With

If Not wksUserSht Is Nothing Then
With wksUserSht
Set rngDataRange = Nothing
On Error Resume Next
Set rngDataRange = .Range(strDataStartCell)
Set rngDataRange = rngDataRange.Resize(.Cells(.Rows.Count, 
rngDataRange.Column).End(xlUp).Row, 1)
If rngDataRange.Rows.Count  1 Then
Set rngDataRange = Intersect(rngDataRange, 
rngDataRange.Offset(1))
Else
Set rngDataRange = Nothing
End If
On Error GoTo -1: On Error GoTo 0: Err.Clear
End With
If Not rngDataRange Is Nothing Then
If rngDataRange.Rows.Count  0 Then
lngCount = 0
Erase varData
For Each rngDstRange In rngDataRange
If rngDstRange.Value   Then
lngCount = lngCount + 1
ReDim Preserve varData(1 To lngCount)
varData(lngCount) = rngDstRange.Value
End If
Next rngDstRange
With wksModule
Set rngDstRange = .Range(strDestinationCell)
Set rngDstRange = 
rngDstRange.Resize(.Cells(.Rows.Count, rngDstRange.Column).End(xlUp).Row, 1)
With rngDstRange
If .Rows.Count  1 Then
.Offset(1).ClearContents
End If
If lngCount  0 Then
.Offset(1).Resize(UBound(varData)).Value = 
Application.Transpose(varData)
End If
End With
End With
End If
End If
End If

Set wksModule = Nothing
Set wksDashBoard = Nothing
Set wksUserSht = Nothing
Set rngDataRange = Nothing
Set rngDstRange = Nothing
Set objDropDown = Nothing
Erase varData
lngCount = Empty

End Sub



On Thursday, 28 March 2013 17:41:33 UTC+5:30, hilary lomotey wrote:

 Hi Experts

 i have attempted to write a VBA code to extract data from one sheet to 
 another but am getting a debug error, kindly assist. What am trying to 
 achieve is
 if i select a name from the list of users in the dashboard, that name is 
 always a sheet name, i want to copy all the list of institution visited 
 from the selected sheet name (or member of the user list) and paste in the 
 module sheet range J2, but this has to be automatic ie when i select a user 
 it shd run the code and paste it in that range. 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?hl=en.
For more options, visit https://groups.google.com/groups/opt_out.




$$Excel-Macros$$ Re: Source Link updation error

2013-03-29 Thread Lalit Mohan Pandey
you can do one thing just copy and past data and its formatting. No need to 
move and copy sheet. If you did that.

On Tuesday, 26 March 2013 10:34:50 UTC+5:30, Pravin Gunjal wrote:

 Hi,

 I am getting the following error message, while opening an attached file.
 As I am unable find out the reason and where the data is pasted which 
 contains link.

 Please help me on this issue.  Thank you.

 [image: Inline image 1]

 Regards
 Pravin Gunjal.



-- 
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?hl=en.
For more options, visit https://groups.google.com/groups/opt_out.




Re: $$Excel-Macros$$ Re: Vba Code to extract Data from one sheet to another

2013-03-29 Thread respuzy
Perfect. Lalit. Thanks so muche
Sent from my BlackBerry® smartphone from Airtel Ghana

-Original Message-
From: Lalit Mohan Pandey mohan.pande...@gmail.com
Sender: excel-macros@googlegroups.com
Date: Fri, 29 Mar 2013 02:30:36 
To: excel-macros@googlegroups.com
Reply-To: excel-macros@googlegroups.com
Cc: excel-macrosEXCEL-MACROS@googlegroups.com
Subject: $$Excel-Macros$$ Re: Vba Code to extract Data from one sheet to another

Hi Hilary,

Below code will help you

Option Explicit

Sub Copy_Visited_Client_Data()

Dim wksModule   As Worksheet
Dim wksDashBoardAs Worksheet
Dim wksUserSht  As Worksheet
Dim rngDataRangeAs Range
Dim rngDstRange As Range
Dim objDropDown As DropDown
Dim varData()   As Variant
Dim lngCountAs Long

Const strDataStartCell  As String = C2
Const strDestinationCellAs String = J1
Const strUserControlListNameAs String = Drop Down 2

With ThisWorkbook
Set wksModule = .Worksheets(Module)
Set wksDashBoard = .Worksheets(Dashboard)
End With

With wksDashBoard
Set objDropDown = .DropDowns(strUserControlListName)
End With

With ThisWorkbook
Set wksUserSht = Nothing
On Error Resume Next
Set wksUserSht = 
.Worksheets(objDropDown.List(objDropDown.ListIndex))
On Error GoTo -1: On Error GoTo 0: Err.Clear
End With

If Not wksUserSht Is Nothing Then
With wksUserSht
Set rngDataRange = Nothing
On Error Resume Next
Set rngDataRange = .Range(strDataStartCell)
Set rngDataRange = rngDataRange.Resize(.Cells(.Rows.Count, 
rngDataRange.Column).End(xlUp).Row, 1)
If rngDataRange.Rows.Count  1 Then
Set rngDataRange = Intersect(rngDataRange, 
rngDataRange.Offset(1))
Else
Set rngDataRange = Nothing
End If
On Error GoTo -1: On Error GoTo 0: Err.Clear
End With
If Not rngDataRange Is Nothing Then
If rngDataRange.Rows.Count  0 Then
lngCount = 0
Erase varData
For Each rngDstRange In rngDataRange
If rngDstRange.Value   Then
lngCount = lngCount + 1
ReDim Preserve varData(1 To lngCount)
varData(lngCount) = rngDstRange.Value
End If
Next rngDstRange
With wksModule
Set rngDstRange = .Range(strDestinationCell)
Set rngDstRange = 
rngDstRange.Resize(.Cells(.Rows.Count, rngDstRange.Column).End(xlUp).Row, 1)
With rngDstRange
If .Rows.Count  1 Then
.Offset(1).ClearContents
End If
If lngCount  0 Then
.Offset(1).Resize(UBound(varData)).Value = 
Application.Transpose(varData)
End If
End With
End With
End If
End If
End If

Set wksModule = Nothing
Set wksDashBoard = Nothing
Set wksUserSht = Nothing
Set rngDataRange = Nothing
Set rngDstRange = Nothing
Set objDropDown = Nothing
Erase varData
lngCount = Empty

End Sub



On Thursday, 28 March 2013 17:41:33 UTC+5:30, hilary lomotey wrote:

 Hi Experts

 i have attempted to write a VBA code to extract data from one sheet to 
 another but am getting a debug error, kindly assist. What am trying to 
 achieve is
 if i select a name from the list of users in the dashboard, that name is 
 always a sheet name, i want to copy all the list of institution visited 
 from the selected sheet name (or member of the user list) and paste in the 
 module sheet range J2, but this has to be automatic ie when i select a user 
 it shd run the code and paste it in that range. 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 

Re: $$Excel-Macros$$ Previous sheet name using formula

2013-03-29 Thread Sam Mathai Chacko
Your solution isn't what the OP was looking for. He wanted to know the name
of *THE* sheet to the left, using formula.

I don't understand the wisdom in posting something that isn't asked for, on
top of what I already posted, which was relevant to the question.

Sam




On Thu, Mar 28, 2013 at 10:37 PM, xlstime xlst...@gmail.com wrote:

 Hi Sundarvelan,

 as required, please find attached

 we are using GET.WORKBOOK function.. for more information about
 GEt.Workbook please find below the lik


 http://answers.microsoft.com/en-us/mac/forum/macoffice2011-macexcel/getworkbook-help-in-macro-language-in-excel-2011/a359708d-b5b7-48ba-8d1e-c4114d4642d2


 .

 Enjoy
 Team XLS



 On Thu, Mar 28, 2013 at 8:53 AM, Sundarvelan N nsund...@gmail.com wrote:

 Thanks Paul and My Dear Friends.

 My question was to get sheet name which is left of my current sheet by
 formula.


 Any how i found solution completed my project by other way.
  Thanks
 N.Sundarvelan
 9600160150


 On Wed, Mar 27, 2013 at 9:49 PM, Sam Mathai Chacko samde...@gmail.comwrote:

   You could also use the MID function instead of REPLACE

 example

 =MID(CELL(filename),FIND(],CELL(filename))+1,31)

 Note that the second formula in my previous post requires enabling your
 macro settings. So I am not sure how much that is helpful in the end
 (assuming the reason you wanted to do it using formula was to avoid having
 to do anything to do with macro in the first place)

 Regards,
 Sam


 On Wed, Mar 27, 2013 at 9:44 PM, Sam Mathai Chacko 
 samde...@gmail.comwrote:

 I would agree with Paul. The best thing to do is to write a
 function like this

 Function PREVSHEETNAME() As String

 On Error Resume Next
 PREVSHEETNAME = 
 ActiveSheet.Previous.Namehttp://activesheet.previous.name/
 Application.Volatile

 End Function

 On the contrary, if you are still intent on doing this with formula,
 you could try a rather unconventional method using XLM formulas

 Create two named ranges as below

 SheetName =REPLACE(CELL(filename),1,FIND(],CELL(filename)),)

 SheetNames = REPLACE(GET.WORKBOOK(1),1,FIND(],GET.WORKBOOK(1)),)

 And in your sheet (starting from the second sheet of course), use the
 formula =INDEX(SheetNames,MATCH(SheetName,SheetNames,0)-1)

 Regards,

 Sam Mathai Chacko


 On Wed, Mar 27, 2013 at 7:01 PM, Paul Schreiner schreiner_p...@att.net
  wrote:

   How do you define Previous Sheet Name?
 Do you mean the name of the sheet before it was changed to the current
 name?
 or do you mean the name of the sheet immediately to the left of the
 selected sheet?

 Also, you said using formula, does that mean you wish for an excel
 function that will show (in a cell) whatever it is you refer to as
 Previous Sheet Name?

 If you're wanting the name of the sheet immediately to the left,
 I doubt very much that we can do it using standard Excel functions.
 We can create a function that looks in the Sheets() array for the
 current sheet name,
 then determines the name of the sheet with the previous array
 index...



 *Paul*

 -
 *“Do all the good you can,
 By all the means you can,
 In all the ways you can,
 In all the places you can,
 At all the times you can,
 To all the people you can,
 As long as ever you can.” - John Wesley
 *-


  --
 *From:* Sundarvelan N nsund...@gmail.com
 *To:* excel-macros@googlegroups.com
 *Sent:* Wed, March 27, 2013 9:12:14 AM
 *Subject:* $$Excel-Macros$$ Previous sheet name using formula

 Dear Friends,

 Please help me to get the previous sheet name using formula
  Thanks
 N.Sundarvelan
 9600160150

 --
 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?hl=en.
 For more options, visit https://groups.google.com/groups/opt_out.



 --
 Are you =EXP(E:RT) or 

$$Excel-Macros$$ Before_Close event to reset Calc to xlCalculationAutomatic recalcuate workbook again, can it stopped

2013-03-29 Thread Divaker Pandey
I'm running into one problem with this.

My workbook is pretty massive, so I've turned Application.Calculation to
Manual when opening, and only calculate specified areas when necessary
while file is open. (I also have CalculateBeforeSave set to False.) This
works great, except users get annoyed when Calc is still manual once
they've finished using my workbook.

Of course I used a Before_Close event to reset Calc to
xlCalculationAutomatic -- but now it takes forever to close, as it tries to
recalculate the entire workbook before shutting it down. Users just see an
unexplained hourglass that seems to sit there doing nothing. They can
escape by clicking the Close X button again, but unless I throw in a
clumsy message box explaining this, most won't know that.

Isn't there a more elegant solution? It seems like a catch-22 -- I want
calculation back on before closing, but I don't want it to actually *
calculate* before closing.

Can I force it to stop calculating within the macro? Is there some other
simple solution I'm not seeing?

It's roundabout, but I also considered opening a new workbook, copying a
Workbook_Close macro into it to turn on calculation, closing my workbook
first, then closing the new Book1 without saving, just to fire the
Workbook_Close event in a workbook that would close quickly. Simple in
concept, but a quick survey of the documentation hasn't shown me a simple
way to copy a macro or module to a new workbook -- if this is the only
solution to my dilemma, could someone point me in the right direction as
far as that goes?

-- 
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?hl=en.
For more options, visit https://groups.google.com/groups/opt_out.




$$Excel-Macros$$ hi all***need code to attacha file in outlook and send it to respective email id***

2013-03-29 Thread maksood alam
Hi all

please send me the code to attach a file in outlook and send it to
respective email address.


Thanks
Maksood alam

-- 
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?hl=en.
For more options, visit https://groups.google.com/groups/opt_out.




Re: $$Excel-Macros$$ Re: Sumproduct Formula -Min-Function-Error

2013-03-29 Thread अनिल नारायण गवली
Thanks friendsfor your efforts.


i used this function.

=INDEX($C$6:$F$20,MATCH(MIN(IF(I8=$E$6:$E$20,$F$6:$F$20)),IF(I8=$E$6:$E$20,$F$6:$F$20),0),1)
with CSE. and it works ...


Warm Regards,
Gawli Anil




On Fri, Mar 29, 2013 at 10:38 AM, Prince prince141...@gmail.com wrote:

 sry for mistake

 PFA.


 On Thursday, March 28, 2013 9:20:47 PM UTC+5:30, Prince wrote:

 PFA
 regards
 Prince


 On Thursday, March 28, 2013 11:18:17 AM UTC+5:30, prafull jadhav wrote:

 Dear Prince,

 find the same.

 Regards,
 Prafull Jadhav.

 On Thu, Mar 28, 2013 at 9:19 AM, Prince prince...@gmail.com wrote:

 Share your workbook.

 Regards
 Prince

 On Wednesday, March 27, 2013 6:05:37 PM UTC+5:30, prafull jadhav wrote:

 Dear All,

 Sumproduct function return the Max function output but Not a Min
 fuction Output .

 for example

 I got output when i use max function but when i try to get output for
 min value out put is Zero.


  =SUMPRODUCT(MAX(($E$6:$E$20=**E6**)*($F$6:$F$20)))  E column is
 Region and F column is Amount

 Regards,
 Prafull Jadhav.
 MIS-Executive.

   --
 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/**discussexcelhttps://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?hl=enhttp://groups.google.com/group/excel-macros?hl=en
 .
 For more options, visit 
 https://groups.google.com/**groups/opt_outhttps://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?hl=en.
 For more options, visit https://groups.google.com/groups/opt_out.






-- 
Thanks  Regards,
Gawli Anil Narayan
Software Developer,
Abacus Software Services Pvt Ltd

-- 
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 

Re: $$Excel-Macros$$ hi all***need code to attacha file in outlook and send it to respective email id***

2013-03-29 Thread ashish koul
try the attachment .. see if it helps



On Fri, Mar 29, 2013 at 10:37 PM, maksood alam 786maks...@gmail.com wrote:

 Hi all

 please send me the code to attach a file in outlook and send it to
 respective email address.


 Thanks
 Maksood alam

 --
 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?hl=en.
 For more options, visit https://groups.google.com/groups/opt_out.






-- 
*Regards*
* *
*Ashish Koul*


*Visit*
*My Excel Blog http://www.excelvbamacros.com/*
Like Us on 
Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897
Join Us on Facebook http://www.facebook.com/groups/163491717053198/


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?hl=en.
For more options, visit https://groups.google.com/groups/opt_out.




send Emails.xlsm
Description: Binary data


Re: $$Excel-Macros$$ Re: Sumproduct Formula -Min-Function-Error

2013-03-29 Thread prafull jadhav
Dear All,

Thanks a lot .


On Sat, Mar 30, 2013 at 9:44 AM, अनिल नारायण गवली
gawlianil8...@gmail.comwrote:

 Thanks friendsfor your efforts.


 i used this function.

 =INDEX($C$6:$F$20,MATCH(MIN(IF(I8=$E$6:$E$20,$F$6:$F$20)),IF(I8=$E$6:$E$20,$F$6:$F$20),0),1)
 with CSE. and it works ...


 Warm Regards,
 Gawli Anil




 On Fri, Mar 29, 2013 at 10:38 AM, Prince prince141...@gmail.com wrote:

 sry for mistake

 PFA.


 On Thursday, March 28, 2013 9:20:47 PM UTC+5:30, Prince wrote:

 PFA
 regards
 Prince


 On Thursday, March 28, 2013 11:18:17 AM UTC+5:30, prafull jadhav wrote:

 Dear Prince,

 find the same.

 Regards,
 Prafull Jadhav.

 On Thu, Mar 28, 2013 at 9:19 AM, Prince prince...@gmail.com wrote:

 Share your workbook.

 Regards
 Prince

 On Wednesday, March 27, 2013 6:05:37 PM UTC+5:30, prafull jadhav wrote:

 Dear All,

 Sumproduct function return the Max function output but Not a Min
 fuction Output .

 for example

 I got output when i use max function but when i try to get output for
 min value out put is Zero.


  =SUMPRODUCT(MAX(($E$6:$E$20=**E6**)*($F$6:$F$20)))  E column is
 Region and F column is Amount

 Regards,
 Prafull Jadhav.
 MIS-Executive.

   --
 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/**discussexcelhttps://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?hl=enhttp://groups.google.com/group/excel-macros?hl=en
 .
 For more options, visit 
 https://groups.google.com/**groups/opt_outhttps://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?hl=en.
 For more options, visit https://groups.google.com/groups/opt_out.






 --
 Thanks  Regards,
 Gawli Anil Narayan
 Software Developer,
 Abacus Software Services Pvt Ltd

 --
 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$$ Data req in attched sheet format.

2013-03-29 Thread prafull jadhav
Dear All,

in attached sheet i have updated sample data .

I am not getting the out put . Please help me in this reagard.

I have mentioned what my requirement .



Regards,
Prafull Jadhav.

-- 
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?hl=en.
For more options, visit https://groups.google.com/groups/opt_out.




Want data one by one.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet