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

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

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

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