Copy - Paste
 

Another question relating to the import of some data from
another book.

After I have copied the data from the sheet I get the
messgage 'There is a large amount of data on the
Clipboard - Do you want to make this available to other
programs?

Is is possible for excel not to display this message.

I have tried application.screenupdating = false but this
is not working

Sub Import_Data()
'Imports data from Fname - Sheet (Test11) to Crystal_Table
Application.ScreenUpdating = False
If fname < "" Then
Range("a1").Value = fname
Set oWb = Workbooks.Open(fname)
oWb.Sheets("TEST11").Range("A1:AQ100").Copy
Windows("IMPORT.xls").Activate
Sheets("Crystal_Table").Select
ActiveSheet.Paste
Else
MsgBox ("Please select a Valid File")
End If
oWb.Close
Worksheets("Menu").Activate
Application.ScreenUpdating = True
End Sub

Copy - Paste
 

After the past line add this Edgar
It will clear the clipboard

Application.CutCopyMode = False


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Edgar Thoemmes" wrote in message ...
Another question relating to the import of some data from
another book.

After I have copied the data from the sheet I get the
messgage 'There is a large amount of data on the
Clipboard - Do you want to make this available to other
programs?

Is is possible for excel not to display this message.

I have tried application.screenupdating = false but this
is not working

Sub Import_Data()
'Imports data from Fname - Sheet (Test11) to Crystal_Table
Application.ScreenUpdating = False
If fname < "" Then
Range("a1").Value = fname
Set oWb = Workbooks.Open(fname)
oWb.Sheets("TEST11").Range("A1:AQ100").Copy
Windows("IMPORT.xls").Activate
Sheets("Crystal_Table").Select
ActiveSheet.Paste
Else
MsgBox ("Please select a Valid File")
End If
oWb.Close
Worksheets("Menu").Activate
Application.ScreenUpdating = True
End Sub

Copy - Paste
 

Edgar,

Have you tried

Application.CutCopyMode = False

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Edgar Thoemmes" wrote in message
...
Another question relating to the import of some data from
another book.

After I have copied the data from the sheet I get the
messgage 'There is a large amount of data on the
Clipboard - Do you want to make this available to other
programs?

Is is possible for excel not to display this message.

I have tried application.screenupdating = false but this
is not working

Sub Import_Data()
'Imports data from Fname - Sheet (Test11) to Crystal_Table
Application.ScreenUpdating = False
If fname < "" Then
Range("a1").Value = fname
Set oWb = Workbooks.Open(fname)
oWb.Sheets("TEST11").Range("A1:AQ100").Copy
Windows("IMPORT.xls").Activate
Sheets("Crystal_Table").Select
ActiveSheet.Paste
Else
MsgBox ("Please select a Valid File")
End If
oWb.Close
Worksheets("Menu").Activate
Application.ScreenUpdating = True
End Sub

Copy - Paste
 

Edgar Thoemmes wrote:

Another question relating to the import of some data from
another book.

After I have copied the data from the sheet I get the
messgage 'There is a large amount of data on the
Clipboard - Do you want to make this available to other
programs?

Is is possible for excel not to display this message.

I have tried application.screenupdating = false but this
is not working

What you need is Application.DisplayAlerts = False, then set it back to
true.

I'm not sure waht will be the behaviour if the messagebox is skipped so
you'll have to try it out.

Regards,
--
Beto
Reply: Erase between the dot (inclusive) and the @.
Responder: Borra la frase obvia y el punto previo.

Copy - Paste
 

Excel uses interrupts to send warning meaasages like the
one you mentioned. The EnableEvents command enables or
disables these interrups. This is also used to suppress
the "Do you want to replace this file" message when saving
an existing file in VBA. Try using this:

Application.EnableEvents = False ' turns interrupts OFF
..
[your code]
..
Application.EnableEvents = True ' turns interrupts back
ON

Be sure to set to reenable Events after executing your
code but before you leave the procedure or else you will
not receive any warning messages during the rest of your
Excel session.

Charlie

-----Original Message-----
Another question relating to the import of some data from
another book.

After I have copied the data from the sheet I get the
messgage 'There is a large amount of data on the
Clipboard - Do you want to make this available to other
programs?

Is is possible for excel not to display this message.

I have tried application.screenupdating = false but this
is not working

Sub Import_Data()
'Imports data from Fname - Sheet (Test11) to Crystal_Table
Application.ScreenUpdating = False
If fname < "" Then
Range("a1").Value = fname
Set oWb = Workbooks.Open(fname)
oWb.Sheets("TEST11").Range("A1:AQ100").Copy
Windows("IMPORT.xls").Activate
Sheets("Crystal_Table").Select
ActiveSheet.Paste
Else
MsgBox ("Please select a Valid File")
End If
oWb.Close
Worksheets("Menu").Activate
Application.ScreenUpdating = True
End Sub
.

Copy - Paste
 

I think you've got the wrong end of the stick here.

Read this site to get a proper understanding of events
http://www.cpearson.com/excel/events.htm

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"cgaynor" wrote in message
...
Excel uses interrupts to send warning meaasages like the
one you mentioned. The EnableEvents command enables or
disables these interrups. This is also used to suppress
the "Do you want to replace this file" message when saving
an existing file in VBA. Try using this:

Application.EnableEvents = False ' turns interrupts OFF
.
[your code]
.
Application.EnableEvents = True ' turns interrupts back
ON

Be sure to set to reenable Events after executing your
code but before you leave the procedure or else you will
not receive any warning messages during the rest of your
Excel session.

Charlie