Re: $$Excel-Macros$$ Re: Two-dimensional interpolation
Well, spotted, thanks On Thursday, 6 March 2014 13:37:10 UTC+2, Paul Schreiner wrote: The problem seemt to be: in LinInterpolate, xRange and yRange are declared as variant when you pass xRange as Range(B3:B44).Value, you're passing an ARRAY, so xRange becomes an Array variable. an Array variable doesn't HAVE the property of: xRange.Cells.Count because xRange (as an Array) doesn't HAVE Cells. You have to pass the data as a Range. as in: Cl_Array(1) = LinInterpolate(60, Sheets(AIRFOIL_DATA).Range(B3:B44), Sheets(AIRFOIL_DATA).Range(C3:C44)) (leaving off the .Value) However, that's going to cause you a problem with: Cells(45, 5) = LinInterpolate(7, Cl_Array, Cl_Array) I think you're going to have to either: Rewrite LinInterpolate to operate on Arrays, or create a second version that uses Arrays instead of Ranges. *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:* Gerrit Grundling totallyp...@gmail.com javascript: *To:* excel-...@googlegroups.com javascript: *Sent:* Thursday, March 6, 2014 2:32 AM *Subject:* $$Excel-Macros$$ Re: Two-dimensional interpolation Slowly but surely I'm getting there. Thanks for the help so far. I am including an Excel file with the airfoil data, function LinInterpolate and functions Floor and Ceiling. None of these are my own, as I found them on the interweb. I have commented out my attempt at automating the linear interpolation process, although I suspect it actually works after all of the above. However, I am now getting error 424: Object required It seems the arrays don't enter LinInterpolate. On Monday, 3 March 2014 21:21:45 UTC+2, Rajan Verma wrote: Hi make your array as double data type not Long Thanks Rajan. n Wednesday, 26 February 2014 07:07:45 UTC-7, Gerrit Grundling wrote: Greetings, all I have attached some aerofoil data for a Clark Y foil. This data is also available in my spread sheet. The Reynolds number is given in the heading as 5.00E+04, 1.00E+05, 5.00E+05, 1.00E+06 and 3.00E+06. I need to find Cl and Cd at an AoA for a Reynolds number: GetCl(AoA, Re) GetCd(AoA, RE) Interpolation functions are easy enough to find. Herehttp://www.vbaexpress.com/forum/showthread.php?41522-Linear-Interpolationp=263514viewfull=1#post263514is one that also includes sorting. But I need to run this over the two-dimensional array that is the aerofoil data. Not all aerofoil AoA's are the same for the different Re (xfoil was used to obtain this data). This means that creating an array would have blanks at some AoA's, unless I interpolate to fill in the gaps. I was thinking that I might write a code to create an array of cl and cd for each Re-number at the AoA, but the AoA is not always a neat number. However, neither is the Reynolds number. How would you do it? Could you use an interpolation function such as the one I linked to (not a preference, so I'm impartial)? Thanks in advance -- 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. -- 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
Re: $$Excel-Macros$$ Link Custom Toolbar with a file
Thanks Clive but iy didn't help. What I guess I'm looking for is an event that is triggered when a programme is brought back to the full page state from the diminished state on the Task Bar. donwb On Tuesday, 4 March 2014 18:40:43 UTC, clive r wrote: You could MAYBE try RECORD MACRO to manually invoke the toolbar, then look at the auto-generated code for clues. On 4 March 2014 18:19, dwbow...@gmail.com javascript: wrote: I am using Excel 2003 on Windows 7 Pro 64 bit When I open a file I need to call up an associated Custom Toolbar. I have written VBA modules to do this and they work OK. However when I reduce the application to the TaskBar (pressing_), then retrieve it by clicking it's Icon on the TaskBar, it opens OK, but without the toolbar. The code below is in place:- *Sub Auto_Open()* *Application.ScreenUpdating = False* *Application.EnableEvents = False* *Application.CommandBars(MyToolbar).Visible = True* *More code………* *And under This Workbook:-* *Private Sub Workbook_Activate()* *Application.ScreenUpdating = False* *Application.CommandBars(MyToolbar).Visible = True* *On Error GoTo Line1* *Workbooks(Book1.xls).Close savechanges:=False* *Line1:* *End Sub* *Private Sub Workbook_Deactivate()* *Application.ScreenUpdating = False* *On Error GoTo Line1* *Application.WindowState = xlMinimised* *Line1:* *End Sub* *Private Sub MyShutdown()* *Application.ScreenUpdating = False* *UserForm4.Show* *End Sub* *Private Sub Workbook_Open()* *Application.CommandBars(MyToolbar).Visible = True* *End Sub* *Private Sub Workbook_SheetActivate(ByVal Sh As Object)* *Application.CommandBars(MyToolbar).Visible = True* *Call Load* *End Sub* *Private Sub Workbook_WindowActivate(ByVal Wn As Window)* *Application.ScreenUpdating = False* *Application.CommandBars(MyToolbar).Visible = True* *LS = Worksheets(CBs).Range(MyLastSheet).Value* *Application.Worksheets(LS).Select* *Line1:* *End Sub* *Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)* *Application.CommandBars(MyToolbar).Visible = False* *End Sub* but none of this activates the toolbar. Help please donwb -- 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. -- 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/d/optout.
Re: $$Excel-Macros$$ Link Custom Toolbar with a file
Can you share the module or AddIn? On Fri, Mar 7, 2014 at 1:39 PM, dwbowye...@gmail.com wrote: Thanks Clive but iy didn't help. What I guess I'm looking for is an event that is triggered when a programme is brought back to the full page state from the diminished state on the Task Bar. donwb On Tuesday, 4 March 2014 18:40:43 UTC, clive r wrote: You could MAYBE try RECORD MACRO to manually invoke the toolbar, then look at the auto-generated code for clues. On 4 March 2014 18:19, dwbow...@gmail.com wrote: I am using Excel 2003 on Windows 7 Pro 64 bit When I open a file I need to call up an associated Custom Toolbar. I have written VBA modules to do this and they work OK. However when I reduce the application to the TaskBar (pressing_), then retrieve it by clicking it's Icon on the TaskBar, it opens OK, but without the toolbar. The code below is in place:- *Sub Auto_Open()* *Application.ScreenUpdating = False* *Application.EnableEvents = False* *Application.CommandBars(MyToolbar).Visible = True* *More code.* *And under This Workbook:-* *Private Sub Workbook_Activate()* *Application.ScreenUpdating = False* *Application.CommandBars(MyToolbar).Visible = True* *On Error GoTo Line1* *Workbooks(Book1.xls).Close savechanges:=False* *Line1:* *End Sub* *Private Sub Workbook_Deactivate()* *Application.ScreenUpdating = False* *On Error GoTo Line1* *Application.WindowState = xlMinimised* *Line1:* *End Sub* *Private Sub MyShutdown()* *Application.ScreenUpdating = False* *UserForm4.Show* *End Sub* *Private Sub Workbook_Open()* *Application.CommandBars(MyToolbar).Visible = True* *End Sub* *Private Sub Workbook_SheetActivate(ByVal Sh As Object)* *Application.CommandBars(MyToolbar).Visible = True* *Call Load* *End Sub* *Private Sub Workbook_WindowActivate(ByVal Wn As Window)* *Application.ScreenUpdating = False* *Application.CommandBars(MyToolbar).Visible = True* *LS = Worksheets(CBs).Range(MyLastSheet).Value* *Application.Worksheets(LS).Select* *Line1:* *End Sub* *Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)* *Application.CommandBars(MyToolbar).Visible = False* *End Sub* but none of this activates the toolbar. Help please donwb -- 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. -- 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/d/optout. -- Regards, Anoop Sr. Developer Facebook ID - https://www.facebook.com/anooop.k.sharma -- 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
Re: $$Excel-Macros$$ Name Range Change through VBA
try this, Sub namerange() Dim rngRange As Range Dim rngCell As Range Set rngRange = Application.InputBox(select range, , , , , , , 8) For Each rngCell In rngRange.Columns(1).Cells ThisWorkbook.Names.Add rngCell, rngCell.Offset(, 1).Formula Next End Sub On Thu, Mar 6, 2014 at 11:24 PM, Prafull Jadhav prafulltjad...@gmail.comwrote: Dear All, Good Afternoon, I have one query . Can we change the Name Range with help of VBA for example below are the name range in my excel file I have to extend the range by 2...i.e 85000. if it is possible ..Kindly provide the code for the same. Abhijit_ =Details!$AJ$1:$AJ$65000 Bucket_ =Details!$U$1:$U$65000 Cdate =Details!$AB$1:$AB$65000 City_ =Details!$AF$1:$AF$65000 Code_ =Details!$W$1:$W$65000 Cweek =Details!$AD$1:$AD$65000 date_ =Details!$AB$1:$AB$65000 Edate =Details!$AC$1:$AC$65000 Eweek =Details!$AE$1:$AE$65000 Filter_ =Details!$S$1:$S$65000 Group =Vlookup!$B$2:$D$169 jo_ =Details!#REF! LOB_ =Details!$E$1:$E$65000 mode_ =Details!$B$1:$B$65000 Month_ =Details!$AH$1:$AH$65000 Oct_ =Details!$AG$1:$AG$65000 Owner_ =Details!$Y$1:$Y$65000 Ownerlob_ =Details!$Z$1:$Z$65000 Pornima_ =Details!$F$1:$F$65000 Reso_ =Details!$R$1:$R$65000 Resp_ =Details!$Q$1:$Q$65000 RLIWeek =Details!$AK$1:$AK$65000 SDM =Vlookup!$T$2:$U$46 Severity_ =Details!$M$1:$M$65000 Status =Vlookup!$L$2:$M$53 Status_ =Details!$AA$1:$AA$65000 Status_Oct =Details!$AI$1:$AI$65000 Week_ =Vlookup!$X$2:$Z$40 Zone =Vlookup!$F$2:$J$15000 Zone_ =Details!$X$1:$X$65000 Regards, Prafull Jadhav 9920553518 -- 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/d/optout. -- 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/d/optout.
Re: $$Excel-Macros$$ cell tooltip
Hi Expert, Is there no way to do that? On Fri, Mar 7, 2014 at 9:57 AM, Rupesh Patil patil.rupesh1...@gmail.comwrote: Hi Expert, I need your help. how to show cell value as tool tip when mouse over that cell. -- Thanks and Regards, Rp. -- 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/d/optout. -- Thanks and Regards, Rp. -- 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/d/optout.
Re: $$Excel-Macros$$ cell tooltip
Just to help me understand: Why do you want to reflect the value in tooltip when it is already visible in the Cell itself? Do you mean Cell Address instead of Cell Value? Example - Cell Value is Rupesh Cell Address is E2 What do you want to appear in the tool tip? On Fri, Mar 7, 2014 at 3:29 PM, Rupesh Patil patil.rupesh1...@gmail.comwrote: Hi Expert, Is there no way to do that? On Fri, Mar 7, 2014 at 9:57 AM, Rupesh Patil patil.rupesh1...@gmail.comwrote: Hi Expert, I need your help. how to show cell value as tool tip when mouse over that cell. -- Thanks and Regards, Rp. -- 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/d/optout. -- Thanks and Regards, Rp. -- 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/d/optout. -- 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/d/optout.
Re: $$Excel-Macros$$ Link Custom Toolbar with a file
I have several Excel workbooks that have custom Tool Bars. In Excel 2010, they decided that custom toolbars need to be in Add-Ins, which, in my opinion, was a poor decision. What I use is: I created a macro called New_CmdBar in which I define the toolbar (called PMTR). Then, in the ThisWorkbook module: Private Sub Workbook_Activate() Dim stat on Error Resume Next Application.CommandBars(PMTR).Enabled = True if (Err.Number 0) then stat = New_CmdBar(False) Application.CommandBars(PMTR).Visible = True Application.CommandBars(Ribbon).Enabled = True On Error Goto 0 End Sub Private Sub Workbook_Deactivate() Application.CommandBars(PMTR).Enabled = False Application.CommandBars(PMTR).Visible = False End Sub I also have: Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars(PMTR).Delete End Sub So basically, whenever the workbook is opened, it creates the new Toolbar. When you select a different workbook, it hides the toolbar. When you re-activate the workbook, it displays the toolbar, or re-creates it if necessary. Exiting the workbook causes the toolbar to be deleted. The only issue with this that I've had is if I have two copies of the workbook open. Closing one deletes the toolbar. But I just have to minimize and maximize the workbook to get it back. 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: dwbowye...@gmail.com dwbowye...@gmail.com To: excel-macros@googlegroups.com Cc: cdr...@gmail.com Sent: Friday, March 7, 2014 3:09 AM Subject: Re: $$Excel-Macros$$ Link Custom Toolbar with a file Thanks Clive but iy didn't help. What I guess I'm looking for is an event that is triggered when a programme is brought back to the full page state from the diminished state on the Task Bar. donwb On Tuesday, 4 March 2014 18:40:43 UTC, clive r wrote: You could MAYBE try RECORD MACRO to manually invoke the toolbar, then look at the auto-generated code for clues. On 4 March 2014 18:19, dwbow...@gmail.com wrote: I am using Excel 2003 on Windows 7 Pro 64 bit When I open a file I need to call up an associated Custom Toolbar. I have written VBA modules to do this and they work OK. However when I reduce the application to the TaskBar (pressing_), then retrieve it by clicking it's Icon on the TaskBar, it opens OK, but without the toolbar. The code below is in place:- Sub Auto_Open() Application.ScreenUpdating = False Application.EnableEvents = False Application.CommandBars( MyToolbar).Visible = True More code……… And under This Workbook:- Private Sub Workbook_Activate() Application.ScreenUpdating = False Application.CommandBars( MyToolbar).Visible = True On Error GoTo Line1 Workbooks(Book1.xls).Close savechanges:=False Line1: End Sub Private Sub Workbook_Deactivate() Application.ScreenUpdating = False On Error GoTo Line1 Application.WindowState = xlMinimised Line1: End Sub Private Sub MyShutdown() Application.ScreenUpdating = False UserForm4.Show End Sub Private Sub Workbook_Open() Application.CommandBars( MyToolbar).Visible = True End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Application.CommandBars( MyToolbar).Visible = True Call Load End Sub Private Sub Workbook_WindowActivate(ByVal Wn As Window) Application.ScreenUpdating = False Application.CommandBars( MyToolbar).Visible = True LS = Worksheets(CBs).Range( MyLastSheet).Value Application.Worksheets(LS). Select Line1: End Sub Private Sub Workbook_WindowDeactivate( ByVal Wn As Window) Application.CommandBars( MyToolbar).Visible = False End Sub but none of this activates the toolbar. Help please donwb -- 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...@
$$Excel-Macros$$ Re: VBA macros and Windows OS language
Hi Aashish, I cannot address your question directly, but I have a suggestion for you and any programmer who is forcing users to login a second time to use their file. Make it easier on your users by leveraging their OS login session for identification instead. The following simple lines retrieve the username (login name) from the OS, that you can then use to automatically allow/disallow access to your file or data. Dim sUserName As Variant Dim WshNetwork As Object ' Get username from login domain Set WshNetwork = CreateObject(WScript.Network) sUserName = UCase(WshNetwork.UserName) 'Will retrieve the login username from the OS Jack M. O'Leary On Tuesday, February 25, 2014 1:35:19 AM UTC-5, Aashish Watve wrote: Hi All, I have a excel file containing various macros that provide access to the file after everyone enters their login credentials. These login credentials are included in the hidden worksheets. This file would be used by my colleagues across the world. Now my colleagues in Germany would be using windows OS with German interface, those in Japan will use it with Japanese interface. My question is, are there any functions in VBA that are dependent on Windows language interface? Any hints? Suggestions? Is there a function that returns the Windows OS language? Any inputs, help would be useful. Regards, Aashish -- 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/d/optout.
$$Excel-Macros$$ Re: Command Buttons in excel (office360)
I think I've figured out a partial answer by searching other boards and some tinkering. Apparently command buttons are now one of several shapes on the sheet. They seem to no longer have the ability to be disabled, but can be made visible/invisible (almost as good). The code below inserted on the sheet containing the button can change visibility of a command button with object name Button 1: ' (Command Button is a Type of Shapes on Sheet) Shapes(Button 1).Visible = False MsgBox(Button is now invisible) Shapes(Button 1).Visible = True MsgBox(Button is now visible) On Wednesday, February 26, 2014 4:44:11 PM UTC-5, Jack O'Leary wrote: I have many many VBA accentuated files from previous version of excell (2000, 2003, 2007) where I have added a command button to a sheet, and then associated it with a subroutine on the sheet. In my newer version of excel, it appears the command button has been moved outside the scope of a sheet. I cannot figure out how to access its class within VBA to manipulate it. Where is it? How can I progrmatically change it from states of .enabled to .disabled? For instance it used to be Sheet1.Command_Button1... Thanks, Jack -- 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/d/optout.
$$Excel-Macros$$ Help me for interview : Excel Formulas and Macros
Dear Friends, I have scheduled for an Interview on coming Monday. Please help in what are basic things that could be prepared in Excel formulas and Macros. Particularly i'm very new to macro, so what are the basic syntax commonly used. Send me files with basic macro project. Please guide me. Thanks, Kathirvelan -- 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/d/optout.
$$Excel-Macros$$ Re: How to recover the password protected XL file
Hi, Perfect data solutions Thanks, you -- 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/d/optout.
Re: $$Excel-Macros$$ How to copy a series of ranges from one worksheet to another
DP, Sorry I didn't respond soonerthank you for you direction...much appreciated Rob On Thu, Feb 20, 2014 at 6:11 PM, De Premor d...@premor.net wrote: Hi Rob, Try this 2 code, first sub code just need a few line code, but it slower than next sub code, i suggest second sub code if you have large data list to process Sub Simple() Dim Rng As Range For Each Rng In Sheet1.UsedRange.Offset(1) If Not Trim(Rng) = Then Sheet2.Range(Rng).Copy Sheet3.Range(A 2 ^ 20).End(xlUp).Offset(1) End If Next End Sub Sub LittleBetter() Dim Rng, Data, Result(), Arr Dim i As Long, j As Long, k As Long Rng = Sheet1.UsedRange.Offset(1) Data = Sheet2.UsedRange.Offset(1) ReDim Result(UBound(Data, 1), 2) For i = 1 To UBound(Rng, 1) If Not Trim(Rng(i, 1)) = Then Arr = Split(Replace(Rng(i, 1), $, ), :) For j = Mid(Arr(0), 2) To Mid(Arr(1), 2) Result(k, 0) = Data(j - 1, 1) Result(k, 1) = Data(j - 1, 2) k = k + 1 Next End If Next Sheet3.Range(A5).Resize(k, 2) = Result End Sub Rgds, [dp] On 21-02-2014 5:10, Rob Flott wrote: The attached workbook has 3 sheets; Data, List and Report. The 'Data' tab consists of two columns (A B) of numbers from Row 2 to Row 3652. The 'List' tab has about 20 cells (from A2:A25) each with a unique Range of cells pertaining to the Data tab. So for instance on the List tab in cell A2 there is a range (A52:B159). The next range is found in cell A5 and it covers A378:B485, and so forth. i am struggling to write the correct code that would Copy the range in Sheets(List).Range(A2) and Paste onto Sheets(Report).Range(A5). This would result in a series of 107 (Rows 159 - Row 52) numbers pasted onto sheets(Report). Range(A5) and another 107 numbers pasted onto sheets(Report). Range(B5) . Then using a Do Loop or Do Until loop to repeat this copy paste procedure for over one hundred ranges found on List tab. Can anyone point me in the right direction on how to write this in VBA code? Thank you very much... Rob Flott -- 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 a topic in the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this topic, visit https://groups.google.com/d/topic/excel-macros/pMRIzrRWFFg/unsubscribe. To unsubscribe from this group and all its topics, 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
Re: $$Excel-Macros$$ cell tooltip
Dear Abhishek, I have database for medicines, that data base have columns call side effect and contraindications value of both columns are like five to six line paragraph. If I want to see this side effect and contraindications, I need to press F2, it will visible like paragraph, so each time or cell I have to do this. instead that, I want to show that value if, mouse over that particular cell. so could you please tell me, how can I get this done On Fri, Mar 7, 2014 at 4:20 PM, Abhishek Jain abhishek@gmail.comwrote: Just to help me understand: Why do you want to reflect the value in tooltip when it is already visible in the Cell itself? Do you mean Cell Address instead of Cell Value? Example - Cell Value is Rupesh Cell Address is E2 What do you want to appear in the tool tip? On Fri, Mar 7, 2014 at 3:29 PM, Rupesh Patil patil.rupesh1...@gmail.comwrote: Hi Expert, Is there no way to do that? On Fri, Mar 7, 2014 at 9:57 AM, Rupesh Patil patil.rupesh1...@gmail.comwrote: Hi Expert, I need your help. how to show cell value as tool tip when mouse over that cell. -- Thanks and Regards, Rp. -- 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/d/optout. -- Thanks and Regards, Rp. -- 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/d/optout. -- 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/d/optout. -- Thanks and Regards, Rp. -- Are you =EXP(E:RT) or
