A Microsoft Office (Excel, Word) forum. OfficeFrustration

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.

Go Back   Home » OfficeFrustration forum » Microsoft Excel » General Discussion
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

IF then else VB code help



 
 
Thread Tools Display Modes
  #1  
Old May 20th, 2009, 07:39 AM posted to microsoft.public.excel.misc
Lost
external usenet poster
 
Posts: 90
Default 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  
Old May 20th, 2009, 12:31 PM posted to microsoft.public.excel.misc
Dave Peterson
external usenet poster
 
Posts: 19,791
Default 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

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 08:30 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.