I have a workbook open. When I try to open a separate workbook, it opens already opened workbook (basically linking the workbooks as one). I want to have my workbooks on two separate screens this is preventing that. How to unlink these workbooks.
I am trying to get the caption that is displayed on each window of all the open workbooks. I am using the code below to loop through all the workbook windows, get their handles and finally display their respective captions on a Msgbox.I am having 2 problems:
1- The code loops only once instead of once for each open workbook !
2- The Msgbox displays an empty string instead of the workbook caption !
If I am not mistaken, problem 2 is due to the fact that the Class name"EXCEL7" used in the code refers to a worksheet and not to a workbook. The trouble is I can't figure out what a Workbook Class name is so that I can use it in the FindWindowEx Function
Code:
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _ (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long[code]......
I am trying to get the caption that is displayed on each window of all the open workbooks. I am using the code below to loop through all the workbook windows, get their handles and finally display their respective captions on a Msgbox.
I am having 2 problems:
1- The code loops only once instead of once for each open workbook ! 2- The Msgbox displays an empty string instead of the workbook caption !
If I am not mistaken, problem 2 is due to the fact that the Class name"EXCEL7" used in the code refers to a worksheet and not to a workbook. The trouble is I can't figure out what a Workbook Class name is so that I can use it in the FindWindowEx Function
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _ (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Sub CommandButton1_Click() **Dim BookNameLenghth As Long **Dim strBuffer As String **Dim bBufferSize As Long **Dim lParent As Long **Dim lChild As Long
This code takes all the data from a listbox and throws it into a sheet so that I can print it. I would like the print window to open ready to print this one sheet but allow the user to make sure the right network printer is selected before hitting print.
Code: Private Sub cmdPrint_Click() Dim i As Long Dim ws As Worksheet If Me.lstPrintRooms.ListCount = 0 Then MsgBox "The are no rooms in the list to print"
Is there a way that I can make an excel sheet and save it in a way that when it's opened the person JUST sees the cells in a really simple window...
Not sure if I'm confusing people in how I explain this... but basically I don't want it to show the scroll bars, the A B C D etc and 1 2 3 4 etc, the tool bars... etc. JUST the specified cells in a sheet.
So, I've been trying to work out a distribution list. So far, my research has shown me how to code to be able to send a message through outlook by typing content into a spreadsheet, but I'm trying to find code that will simply open a new message window in outlook. I don't want to send it through excel as I've found to be possible b/c outlook is asking for permission to send to each recipient on the mailing list and we have a fairly large staff here, so clicking that button 20 times to allow the email to go through is more labor intensive than just verifying who's on the distribution list and sending.
Say im in sheet 1 at B2. Am looking to create a button so when I press it a small window opens and displays the data that is it sheet 2 (which is just 2 columns of a list of products and price. Then I for example double click on a product and it will be added in the current cell.
In VBA, how do open 2 new windows, and allow for the fact the file name will change (or name the new windows the current file name)? My current file name is "Metal.xls" Here is what the code looks like now:
I have a userform with several buttons on, each doing seperate tasks, three of the buttons however are used to load a workbook stored elsewhere in our central data storage drive. Loading these workbooks is not the problem, the problem is when loading these they load up behind the userform and not in a new window.
I have a spread sheet that I have written that has 2 html links in it. The links work, but they only open in one browser tab. How do I get them to open in different tabs? Opening in two different browser sessions would be acceptable too. I have Excel 2007 and IE 9 but the users may have different versions.
I'm using this code below sucessfully to open a specific folder view window. What i'm looking for is a way to amend it slightly so that when the window opens the 'folder tree' on the left hand side does not show, as it always does at the moment.
I compared data between excel worksheets all the time, well recently my computer was upgraded from Windows XP to Windows 7 and since then I have not been able to figure out how to have an Excel file to open in the Excel window selected(or last active window) when I have more than one workbook open. Is there a way to do this?
I have this module that is supposed to delete rows containing some words and those that are entirely empty..
The macro works fine when I open the file for the first time (excel as well) but subsequently if i try to run it again, the macro doesnt work anymore. What could possibly be causing this bug?
Private Sub DeleteRows()
ScreenUpdating = True Dim Rng1 As Range Dim X As String X = " TOTAL" Do Set Rng1 = ActiveSheet.UsedRange. Find(X) If Rng1 Is Nothing Then Exit Do Else Rows(Rng1.Row).Delete End If Loop............
The below code opens up the printpreview window. This does not allow to select the correct (or change) printer it will automatic use the default printer.
Is there a way for the code to open the print window so I can change the printer and select number of copies?
Code:
Sub Print_Button() Dim ws As Worksheet, cell As Range Set ws = Sheets("main") Set cell = Range("g2000").End(xlUp) Do Until cell.Value "" Set cell = cell.Offset(-1, 0) Loop ws.PageSetup.PrintArea = ("A2:" & cell.Address) ws.PrintPreview End Sub
I have built a sub that prompts the user for a folder then opens every workbook in the folder 1 at a time to get stats on the contents of each workbook. Worked like a dam until I ran into an unexpected bug. Some of the users built on open events in their workbooks. ...
Right now my routine inventories workbooks to get formula counts, cell counts, most complex formula, highest value... it does this by looping throught the sheets and the cells. If there is a way of obtaining those stats without opening the workbook I may need to rethink a lot of my work.
way to suppress the code in the target workbook I open through workbooks.open
I have a UDF in a workbook that works fine until I open another workbook which contains the same UDF. When Excel does a full recalculation it not only recalculates the currently selected workbook but also recalculates all other open workbooks. Something from the currently selected workbook appears to interfere with the other open workbooks as these other workbooks show #VALUE! in all cells that use the UDF. Is there some way to make a UDF unique only to the workbook that it resides in such that opening another workbook with the same named UDF won't interfere with it?
Function SumRangeLookup(FromCode, ToCode, Database, FromColumn, ToColumn) Dim Code As Range Dim MonthColumns As Integer Dim CalcResult As Double SumRangeLookup = 0 For Each Code In Range(Database) On Error Goto SkipCode If Code >= FromCode And Code <= ToCode Then For MonthColumns = FromColumn To ToColumn CalcResult = CalcResult + Code.Offset(0, MonthColumns) Next MonthColumns End If Next Code SumRangeLookup = CalcResult SkipCode: End Function
Having some issues moving between 2 open workbooks. I just want to add a new workbook, select the first workbook and active sheet then move that sheet to the new workbook that was just made and lastly save the new workbook with the name of the sheet that was just moved. I have some code but it is not working correctly.
I have a script below that opens all the workbooks in a folder based on a msgbox. The script works as is. However what I would like to do is remove the msgbox and have the script go back and forth between the folders.
Example it would open one workbook in the (Large Area)folder call my other script (Hazleton_Data_Conversion) Return Open a workbook in (Varsity) Folder Call the my (Hazleton_Data_Conversion)and repeat the process till all the workbooks in both folders have been processed.
Like I said this script works with the msgbox I just like to change to without msgbox and to flip back and forth.
I have an excel sheet that has a userform on, when this is open my users are required to cross reference with another excel sheet they have just typed up to make sure they enter the right information into the userform. The only problem i have is, when the userform is open my users cant access any other excel workbooks.
I have a macro that opens all workbooks in a folder and searches for a few terms returning the appropriate rows, my problem is that someone has decided to protect some of the sheets so when the files are opened you get the password box popup. I have added the (filename, readonly) segment however this has not solved the issue, the macro displays an error stating a workbook is open.
Is there any way to resolve this without unprotecting the sheets?
I am trying to use Workbooks.Open() function in a function. The function is not working as desired (it does not return workbook object), but when i use same piece of code in sub(macro), it works fine. I am not sure if I cant use this API inside function. I am using function because I would like to call this inside cell and that should return some value.
I would like to run a macro on all open workbooks except the workbook where the macro is saved. I thought I could just do the following but it does not run my macro on all the work books:
Sub apply() For Each wb In Workbooks If wbk.Name ThisWorkbook.Name Then Debug.Print nominee_name End If Next wb
I have written a VBA code to make a pivot table from data in another workbook,A, and transfer it to workbook B. I however dont want to restrict this code to workbook A only. This is because usually workbook A will have varying names everytime it is sent. I want to be able to get data from any other workbook that is open at the same time as work book B. What code can I use to select/activate another unspecified open workbook and get data from there?
I made an Excel based program that uses multiple workbooks with two main workbooks (“Master List” and “Products”) that all the others pull information from. I run into a problem when a user clicks the close X in the upper right hand corner and the entire application closes. I found some code that will let me close all the workbooks but one (the code is put in the “Products” workbook in the BeforeClose event).
For Each wb In Workbooks If Not wb Is ThisWorkbook Then wb.Close SaveChanges:=True End If Next wb
Is there a way to modify the code so it will close all the workbooks but the two main ones if someone clicks the close X button in the upper right hand corner?