Re: $$Excel-Macros$$ MS Excel 2003 to 2010
Hi Prashant, Please download Interactive menu to ribbon guide http://www.microsoft.com/en-us/download/confirmation.aspx?id=16642 . Enjoy Team XLS On Mon, Oct 14, 2013 at 3:21 PM, Prashant Pednekar prashant...@gmail.comwrote: Dear friends We are migrating from MS Excel 2003 to Excel 2010 Dose any one of you has Menu and commond by command comparion in both version.s i.e. 2003 2010 Data Validation ??? Else is anyone has related material. Regards Prashant -- 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.
$$Excel-Macros$$
Dear Excel Gurus, I have got this Macro from this forum for* adding worksheets from different work book kept in a folder,* but now when i am trying this code I am getting compiling error message can not define a public user defined type with an object module. Please help. Thanks in advance. Option Explicit '32-bit API declarations Declare Function SHGetPathFromIDList Lib shell32.dll _ Alias SHGetPathFromIDListA (ByVal pidl As Long, ByVal _ pszpath As String) As Long Declare Function SHBrowseForFolder Lib shell32.dll _ Alias SHBrowseForFolderA (lpBrowseInfo As BrowseInfo) _ As Long Public Type BrowseInfo hOwner As Long pIDLRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Function GetDirectory(Optional msg) As String On Error Resume Next Dim bInfo As BrowseInfo Dim path As String Dim r As Long, x As Long, pos As Integer 'Root folder = Desktop bInfo.pIDLRoot = 0 'Title in the dialog If IsMissing(msg) Then bInfo.lpszTitle = Please select the folder of the excel files to copy. Else bInfo.lpszTitle = msg End If 'Type of directory to return bInfo.ulFlags = H1 'Display the dialog x = SHBrowseForFolder(bInfo) 'Parse the result path = Space$(512) r = SHGetPathFromIDList(ByVal x, ByVal path) If r Then pos = InStr(path, Chr$(0)) GetDirectory = Left(path, pos - 1) Else GetDirectory = End If End Function Sub CombineFiles() Dim pathAs String Dim FileNameAs String Dim LastCellAs Range Dim Wkb As Workbook Dim WS As Worksheet Dim ThisWB As String ThisWB = ThisWorkbook.Name Application.EnableEvents = False Application.ScreenUpdating = False path = GetDirectory FileName = Dir(path \*.xls, vbNormal) Do Until FileName = If FileName ThisWB Then Set Wkb = Workbooks.Open(FileName:=path \ FileName) For Each WS In Wkb.Worksheets Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell) If LastCell.Value = And LastCell.Address = Range($A$1).Address Then Else WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) End If Next WS Wkb.Close False End If FileName = Dir() Loop Application.EnableEvents = True Application.ScreenUpdating = True Set Wkb = Nothing Set LastCell = Nothing End Sub -- Regards, Sandeep Kumar Chhajer. -- 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.
$$Excel-Macros$$ Re:
Hi Sandeep, try this: Replaces the highlighted code for this: Option Explicit #If VBA7 Then Private Type BROWSEINFO hOwner As LongPtr pidlRoot As LongPtr pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As LongPtr lParam As LongPtr iImage As Long End Type Private Declare PtrSafe Function SHBrowseForFolder Lib shell32.dll Alias SHBrowseForFolderA _ (lpBrowseInfo As BROWSEINFO) As LongPtr Private Declare PtrSafe Function SHGetPathFromIDList Lib shell32.dll Alias SHGetPathFromIDListA _ (ByVal pidl As LongPtr, ByVal pszPath As String) As Boolean #Else Private Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Private Declare Function SHBrowseForFolder Lib shell32.dll Alias SHBrowseForFolderA _ (lpBrowseInfo As BROWSEINFO) As Long Declare Function SHBrowseForFolder Lib shell32.dll _ Alias SHBrowseForFolderA (lpBrowseInfo As BROWSEINFO) As Long #End If Private Const BIF_RETURNONLYFSDIRS = H1 Option Explicit '32-bit API declarations Declare Function SHGetPathFromIDList Lib shell32.dll _ Alias SHGetPathFromIDListA (ByVal pidl As Long, ByVal _ pszpath As String) As Long Declare Function SHBrowseForFolder Lib shell32.dll _ Alias SHBrowseForFolderA (lpBrowseInfo As BrowseInfo) _ As Long Public Type BrowseInfo hOwner As Long pIDLRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Em terça-feira, 15 de outubro de 2013 06h12min23s UTC-3, sandeep chhajer escreveu: Dear Excel Gurus, I have got this Macro from this forum for* adding worksheets from different work book kept in a folder,* but now when i am trying this code I am getting compiling error message can not define a public user defined type with an object module. Please help. Thanks in advance. Option Explicit '32-bit API declarations Declare Function SHGetPathFromIDList Lib shell32.dll _ Alias SHGetPathFromIDListA (ByVal pidl As Long, ByVal _ pszpath As String) As Long Declare Function SHBrowseForFolder Lib shell32.dll _ Alias SHBrowseForFolderA (lpBrowseInfo As BrowseInfo) _ As Long Public Type BrowseInfo hOwner As Long pIDLRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Function GetDirectory(Optional msg) As String On Error Resume Next Dim bInfo As BrowseInfo Dim path As String Dim r As Long, x As Long, pos As Integer 'Root folder = Desktop bInfo.pIDLRoot = 0 'Title in the dialog If IsMissing(msg) Then bInfo.lpszTitle = Please select the folder of the excel files to copy. Else bInfo.lpszTitle = msg End If 'Type of directory to return bInfo.ulFlags = H1 'Display the dialog x = SHBrowseForFolder(bInfo) 'Parse the result path = Space$(512) r = SHGetPathFromIDList(ByVal x, ByVal path) If r Then pos = InStr(path, Chr$(0)) GetDirectory = Left(path, pos - 1) Else GetDirectory = End If End Function Sub CombineFiles() Dim pathAs String Dim FileNameAs String Dim LastCellAs Range Dim Wkb As Workbook Dim WS As Worksheet Dim ThisWB As String ThisWB = ThisWorkbook.Name Application.EnableEvents = False Application.ScreenUpdating = False path = GetDirectory FileName = Dir(path \*.xls, vbNormal) Do Until FileName = If FileName ThisWB Then Set Wkb = Workbooks.Open(FileName:=path \ FileName) For Each WS In Wkb.Worksheets Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell) If LastCell.Value = And LastCell.Address = Range($A$1).Address Then Else WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) End If Next WS Wkb.Close False End If FileName = Dir() Loop Application.EnableEvents = True Application.ScreenUpdating = True Set Wkb = Nothing Set LastCell = Nothing End Sub -- Regards, Sandeep Kumar Chhajer. -- 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
Re: $$Excel-Macros$$ Re:
Thank you Basole for your reply. But after the suggested changes when i am running the code it is showing me error code 400. any specific reason. On 15 October 2013 17:49, Basole ricardo...@gmail.com wrote: Hi Sandeep, try this: Replaces the highlighted code for this: Option Explicit #If VBA7 Then Private Type BROWSEINFO hOwner As LongPtr pidlRoot As LongPtr pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As LongPtr lParam As LongPtr iImage As Long End Type Private Declare PtrSafe Function SHBrowseForFolder Lib shell32.dll Alias SHBrowseForFolderA _ (lpBrowseInfo As BROWSEINFO) As LongPtr Private Declare PtrSafe Function SHGetPathFromIDList Lib shell32.dll Alias SHGetPathFromIDListA _ (ByVal pidl As LongPtr, ByVal pszPath As String) As Boolean #Else Private Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Private Declare Function SHBrowseForFolder Lib shell32.dll Alias SHBrowseForFolderA _ (lpBrowseInfo As BROWSEINFO) As Long Declare Function SHBrowseForFolder Lib shell32.dll _ Alias SHBrowseForFolderA (lpBrowseInfo As BROWSEINFO) As Long #End If Private Const BIF_RETURNONLYFSDIRS = H1 Option Explicit '32-bit API declarations Declare Function SHGetPathFromIDList Lib shell32.dll _ Alias SHGetPathFromIDListA (ByVal pidl As Long, ByVal _ pszpath As String) As Long Declare Function SHBrowseForFolder Lib shell32.dll _ Alias SHBrowseForFolderA (lpBrowseInfo As BrowseInfo) _ As Long Public Type BrowseInfo hOwner As Long pIDLRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Em terça-feira, 15 de outubro de 2013 06h12min23s UTC-3, sandeep chhajer escreveu: Dear Excel Gurus, I have got this Macro from this forum for* adding worksheets from different work book kept in a folder,* but now when i am trying this code I am getting compiling error message can not define a public user defined type with an object module. Please help. Thanks in advance. Option Explicit '32-bit API declarations Declare Function SHGetPathFromIDList Lib shell32.dll _ Alias SHGetPathFromIDListA (ByVal pidl As Long, ByVal _ pszpath As String) As Long Declare Function SHBrowseForFolder Lib shell32.dll _ Alias SHBrowseForFolderA (lpBrowseInfo As BrowseInfo) _ As Long Public Type BrowseInfo hOwner As Long pIDLRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Function GetDirectory(Optional msg) As String On Error Resume Next Dim bInfo As BrowseInfo Dim path As String Dim r As Long, x As Long, pos As Integer 'Root folder = Desktop bInfo.pIDLRoot = 0 'Title in the dialog If IsMissing(msg) Then bInfo.lpszTitle = Please select the folder of the excel files to copy. Else bInfo.lpszTitle = msg End If 'Type of directory to return bInfo.ulFlags = H1 'Display the dialog x = SHBrowseForFolder(bInfo) 'Parse the result path = Space$(512) r = SHGetPathFromIDList(ByVal x, ByVal path) If r Then pos = InStr(path, Chr$(0)) GetDirectory = Left(path, pos - 1) Else GetDirectory = End If End Function Sub CombineFiles() Dim pathAs String Dim FileNameAs String Dim LastCellAs Range Dim Wkb As Workbook Dim WS As Worksheet Dim ThisWB As String ThisWB = ThisWorkbook.Name Application.EnableEvents = False Application.ScreenUpdating = False path = GetDirectory FileName = Dir(path \*.xls, vbNormal) Do Until FileName = If FileName ThisWB Then Set Wkb = Workbooks.Open(FileName:=path \ FileName) For Each WS In Wkb.Worksheets Set LastCell = WS.Cells.SpecialCells(** xlCellTypeLastCell) If LastCell.Value = And LastCell.Address = Range($A$1).Address Then Else WS.Copy After:=ThisWorkbook.Sheets(** ThisWorkbook.Sheets.Count) End If Next WS Wkb.Close False End If FileName = Dir() Loop Application.EnableEvents = True Application.ScreenUpdating = True Set Wkb = Nothing Set LastCell = Nothing End Sub -- Regards, Sandeep Kumar Chhajer. -- 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
$$Excel-Macros$$ Re: Display Vlookup dialog box with vba code
I got the following code to work: Application.SendKeys (%mf) Application.SendKeys (vlookup) Application.SendKeys ({ENTER}) Application.SendKeys ({ENTER}) On Thursday, October 10, 2013 7:59:29 AM UTC-4, dr wrote: Hi, Does anyone know how to display the vlookup dialog box using vba? 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.
$$Excel-Macros$$ Re:
Dear Sandeep, i did some testing, and here is working properly, the only error that appears, is when the macro finds some protected worksheet. Try using a new worksheet and paste this code below ... and then test to see if it works. Option Explicit #If VBA7 Then Private Type BROWSEINFO hOwner As LongPtr pidlRoot As LongPtr pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As LongPtr lParam As LongPtr iImage As Long End Type Private Declare PtrSafe Function SHBrowseForFolder Lib shell32.dll Alias SHBrowseForFolderA _ (lpBrowseInfo As BROWSEINFO) As LongPtr Private Declare PtrSafe Function SHGetPathFromIDList Lib shell32.dll Alias SHGetPathFromIDListA _ (ByVal pidl As LongPtr, ByVal pszPath As String) As Boolean #Else Private Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Private Declare Function SHBrowseForFolder Lib shell32.dll Alias SHBrowseForFolderA _ (lpBrowseInfo As BROWSEINFO) As Long Declare Function SHBrowseForFolder Lib shell32.dll _ Alias SHBrowseForFolderA (lpBrowseInfo As BROWSEINFO) As Long #End If Private Const BIF_RETURNONLYFSDIRS = H1 Function GetDirectory(Optional msg) As String On Error Resume Next Dim bInfo As BROWSEINFO Dim path As String Dim r As Long, x As Long, pos As Integer 'Root folder = Desktop bInfo.pidlRoot = 0 'Title in the dialog If IsMissing(msg) Then bInfo.lpszTitle = Please select the folder of the excel files to copy. Else bInfo.lpszTitle = msg End If 'Type of directory to return bInfo.ulFlags = H1 'Display the dialog x = SHBrowseForFolder(bInfo) 'Parse the result path = Space$(512) r = SHGetPathFromIDList(ByVal x, ByVal path) If r Then pos = InStr(path, Chr$(0)) GetDirectory = Left(path, pos - 1) Else GetDirectory = End If End Function Sub CombineFiles() Dim pathAs String Dim FileNameAs String Dim LastCellAs Range Dim Wkb As Workbook Dim WS As Worksheet Dim ThisWB As String ThisWB = ThisWorkbook.Name Application.EnableEvents = False Application.ScreenUpdating = False path = GetDirectory FileName = Dir(path \*.xls, vbNormal) Do Until FileName = If FileName ThisWB Then Set Wkb = Workbooks.Open(FileName:=path \ FileName) For Each WS In Wkb.Worksheets Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell) If LastCell.Value = And LastCell.Address = Range($A$1).Address Then Else WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) End If Next WS Wkb.Close False End If FileName = Dir() Loop Application.EnableEvents = True Application.ScreenUpdating = True Set Wkb = Nothing Set LastCell = Nothing End Sub Em terça-feira, 15 de outubro de 2013 06h12min23s UTC-3, sandeep chhajer escreveu: Dear Excel Gurus, I have got this Macro from this forum for* adding worksheets from different work book kept in a folder,* but now when i am trying this code I am getting compiling error message can not define a public user defined type with an object module. Please help. Thanks in advance. Option Explicit '32-bit API declarations Declare Function SHGetPathFromIDList Lib shell32.dll _ Alias SHGetPathFromIDListA (ByVal pidl As Long, ByVal _ pszpath As String) As Long Declare Function SHBrowseForFolder Lib shell32.dll _ Alias SHBrowseForFolderA (lpBrowseInfo As BrowseInfo) _ As Long Public Type BrowseInfo hOwner As Long pIDLRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Function GetDirectory(Optional msg) As String On Error Resume Next Dim bInfo As BrowseInfo Dim path As String Dim r As Long, x As Long, pos As Integer 'Root folder = Desktop bInfo.pIDLRoot = 0 'Title in the dialog If IsMissing(msg) Then bInfo.lpszTitle = Please select the folder of the excel files to copy. Else bInfo.lpszTitle = msg End If 'Type of directory to return bInfo.ulFlags = H1 'Display the dialog x = SHBrowseForFolder(bInfo) 'Parse the result path = Space$(512) r = SHGetPathFromIDList(ByVal x, ByVal path) If r Then pos = InStr(path, Chr$(0)) GetDirectory
$$Excel-Macros$$ Custom buttons
Hi, Is there a way to create a custom button (a button image that I designed) then assign a macro to it and put it in the quick access toolbar? Doug -- 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$$ Custom buttons
Hi, Please check if it will help. Office Button= Excel Options = Customize 1. Select 'Macros' from 'Choose commands from' to get your macros listed. 2. Select the macro you need to assing. 3. Click 'Add' button to get it added to quick access toolbar list. 3. Select the macro from quick access toolbar list and click modify to change the name and appearances. Regards, Excel_Lover. On Tue, Oct 15, 2013 at 5:36 PM, dr douglas.r...@timken.com wrote: Hi, Is there a way to create a custom button (a button image that I designed) then assign a macro to it and put it in the quick access toolbar? Doug -- 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. -- Best Regards Excel_Lover -- 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.
$$Excel-Macros$$ Re: Find Distance and Time between two cities using Google Map In excel
Hello, When i open the file and enter 2 addresses in the excel sheet, it does not give me a value in the Function(UDF) collumn? Even if i hit Alt+F11, it brings me into the VBA screen. Am I doing something wrong? Any help appreciated. On Saturday, February 25, 2012 6:01:12 AM UTC-7, ashish wrote: Hi Group Try this udf it will help you in finding the time and distance between two cities using Google Map -- *Regards* * * *Ashish Koul* *http://www.excelvbamacros.com/* *http://www.accessvbamacros.com/* http://www.accessvbamacros.com/ 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.
$$Excel-Macros$$ Help needed in creating a Dashbord
Hi, I am working in HR department in a manufacturing company and want to create a dashboard. Please guide me in preparing the same like the things to be covered in the dashboard How can I link some list box or combo box to a chart in the dashboard without macro i.e. through formulas if it can be done. Thanks Regards Alisha -- 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$$ Custom buttons
The last step is what I have a question with. I want to use an image I designed, not ones that are in the window. Is there a way to use my own image on a button? On Tuesday, October 15, 2013 12:11:53 PM UTC-4, Faisal PK wrote: Hi, Please check if it will help. Office Button= Excel Options = Customize 1. Select 'Macros' from 'Choose commands from' to get your macros listed. 2. Select the macro you need to assing. 3. Click 'Add' button to get it added to quick access toolbar list. 3. Select the macro from quick access toolbar list and click modify to change the name and appearances. Regards, Excel_Lover. On Tue, Oct 15, 2013 at 5:36 PM, dr dougla...@timken.com javascript:wrote: Hi, Is there a way to create a custom button (a button image that I designed) then assign a macro to it and put it in the quick access toolbar? Doug -- 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 javascript:. To post to this group, send email to excel-...@googlegroups.comjavascript: . Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- Best Regards Excel_Lover -- 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$$ Help needed in creating a Dashbord
Give some data...in which you want to work even dummy data. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of alisha malhotra Sent: Tuesday, October 15, 2013 11:21 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Help needed in creating a Dashbord Hi, I am working in HR department in a manufacturing company and want to create a dashboard. Please guide me in preparing the same like the things to be covered in the dashboard How can I link some list box or combo box to a chart in the dashboard without macro i.e. through formulas if it can be done. Thanks Regards Alisha -- 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.