Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to popup msg box ?
I have 2 files: file1 and file2 i wanna copy the contain of sheet21 of file2 into sheet11 of file 1 But , if file2 is not active. How to popup msg box for this case ? thank you for help . -- vumian ------------------------------------------------------------------------ vumian's Profile: http://www.excelforum.com/member.php...o&userid=36494 View this thread: http://www.excelforum.com/showthread...hreadid=564102 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to popup msg box ?
Hi vumian
Not needed that the file or sheet is active when you copy You can test if a file is open with this function Function bIsBookOpen(ByRef szBookName As String) As Boolean ' Rob Bovey On Error Resume Next bIsBookOpen = Not (Application.Workbooks(szBookName) Is Nothing) End Function Use like this If bIsBookOpen("test.xls") Then -- Regards Ron de Bruin http://www.rondebruin.nl "vumian" wrote in message ... I have 2 files: file1 and file2 i wanna copy the contain of sheet21 of file2 into sheet11 of file 1 But , if file2 is not active. How to popup msg box for this case ? thank you for help . -- vumian ------------------------------------------------------------------------ vumian's Profile: http://www.excelforum.com/member.php...o&userid=36494 View this thread: http://www.excelforum.com/showthread...hreadid=564102 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to popup msg box ?
If Workbooks("abc.xls").Activate = True Then Call function Else MsgBox "Error" End If What's wrong with this code thank your for help -- vumia ----------------------------------------------------------------------- vumian's Profile: http://www.excelforum.com/member.php...fo&userid=3649 View this thread: http://www.excelforum.com/showthread.php?threadid=56410 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to popup msg box ?
Ron de Bruin Wrote: Hi vumian Not needed that the file or sheet is active when you copy You can test if a file is open with this function Function bIsBookOpen(ByRef szBookName As String) As Boolean ' Rob Bovey On Error Resume Next bIsBookOpen = Not (Application.Workbooks(szBookName) Is Nothing) End Function Use like this If bIsBookOpen("test.xls") Then -- Regards Ron de Bruin http://www.rondebruin.nl Oh, it work great . thank you very much a good man. -- vumian ------------------------------------------------------------------------ vumian's Profile: http://www.excelforum.com/member.php...o&userid=36494 View this thread: http://www.excelforum.com/showthread...hreadid=564102 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Popup calendar | Excel Discussion (Misc queries) | |||
popup box | Excel Programming | |||
"Why did we get here????" popup | Excel Discussion (Misc queries) | |||
Conditional popup | Excel Programming | |||
Are you sure popup box | Excel Programming |