If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
IF then else VB code help
Ok I dont know how to start with this or if its possible but here is my
delema & idea. I have WorkbookA.xlsm that opens hidden when I open WorkbookB.xlsm thru WorkbookF.xlsm. So when the sheet names in WorkbookB.xlsm thru WorkbookF.xlsm changes all the external links update in WorkbookA.xlsm. Then WorkbookA.xlsm Saves the changes. ----Works fine except it saves WorkbookA.xlsm as a hidden workbook and we need to open it up later in the day without any of the other 5 workbooks. My Idea would be to find / use a VB IF statement that looks like this IF WorkbookA.xlsm is opened with "Workbook(B,C,D,E,F)" Then WorkbookA.xlsm is hidden Else WorkbookA.xlsm is not hidden Any ideas out there? I hope so ........Thanks for your effort in advance |
#2
|
|||
|
|||
IF then else VB code help
So if all those workbooks are open, then hide the windows. Any other condition,
then show the windows? Option Explicit Sub Auto_Open() Dim Wkbks As Variant Dim TestWkbk As Workbook Dim wCtr As Long Dim HowManyOpen As Long Dim myWindow As Window Wkbks = Array("book1.xls", "book2.xls", "book3.xls") HowManyOpen = 0 For wCtr = LBound(Wkbks) To UBound(Wkbks) Set TestWkbk = Nothing On Error Resume Next Set TestWkbk = Workbooks(Wkbks(wCtr)) On Error GoTo 0 If TestWkbk Is Nothing Then 'not open, stop looking Exit For Else HowManyOpen = HowManyOpen + 1 End If Next wCtr For Each myWindow In ThisWorkbook.Windows myWindow.Visible _ = CBool(HowManyOpen (UBound(Wkbks) - LBound(Wkbks) + 1)) Next myWindow End Sub I used book1.xls, ..., book3.xls. You'll have to change the names of the workbooks. If you're new to macros: Debra Dalgleish has some notes how to implement macros he http://www.contextures.com/xlvba01.html David McRitchie has an intro to macros: http://www.mvps.org/dmcritchie/excel/getstarted.htm Ron de Bruin's intro to macros: http://www.rondebruin.nl/code.htm (General, Regular and Standard modules all describe the same thing.) Lost wrote: Ok I dont know how to start with this or if its possible but here is my delema & idea. I have WorkbookA.xlsm that opens hidden when I open WorkbookB.xlsm thru WorkbookF.xlsm. So when the sheet names in WorkbookB.xlsm thru WorkbookF.xlsm changes all the external links update in WorkbookA.xlsm. Then WorkbookA.xlsm Saves the changes. ----Works fine except it saves WorkbookA.xlsm as a hidden workbook and we need to open it up later in the day without any of the other 5 workbooks. My Idea would be to find / use a VB IF statement that looks like this IF WorkbookA.xlsm is opened with "Workbook(B,C,D,E,F)" Then WorkbookA.xlsm is hidden Else WorkbookA.xlsm is not hidden Any ideas out there? I hope so ........Thanks for your effort in advance -- Dave Peterson |
Thread Tools | |
Display Modes | |
|
|