ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Hiding macro execution (https://www.excelbanter.com/excel-programming/281680-hiding-macro-execution.html)

Angeliki

Hiding macro execution
 
Hello
I wrote a code that copys values from one workbook to another workbook.
The problem is that when goes from one workbook to another there is a
flickering in the screen.
Can you tell me how to hide macro execution?The code works ok i just don't
want to see the macro be executed.
Thanks in advance

Regards
Angeliki

Windows("Book1").Activate
Sheets("Information").Select
Range("A1:I12").Select
Selection.Copy
Windows("Book2").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Columns("A:I").Select
Columns("A:I").EntireColumn.AutoFit
Range("A1").Select
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Information"

Windows("Book1").Activate
Application.CutCopyMode = False
Range("A1").Select





Don Guillett[_4_]

Hiding macro execution
 
application.screenupdating=false
your code
reset to true

"Angeliki" wrote in message
...
Hello
I wrote a code that copys values from one workbook to another workbook.
The problem is that when goes from one workbook to another there is a
flickering in the screen.
Can you tell me how to hide macro execution?The code works ok i just don't
want to see the macro be executed.
Thanks in advance

Regards
Angeliki

Windows("Book1").Activate
Sheets("Information").Select
Range("A1:I12").Select
Selection.Copy
Windows("Book2").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Columns("A:I").Select
Columns("A:I").EntireColumn.AutoFit
Range("A1").Select
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Information"

Windows("Book1").Activate
Application.CutCopyMode = False
Range("A1").Select







Angeliki

Hiding macro execution
 
I tried this one. However it goes to one workbook to another several times.
Should i add this before each time it'a about to change workbook in the
code?
I would appreciate any help

Thanks

Angeliki

"Don Guillett" wrote in message
...
application.screenupdating=false
your code
reset to true

"Angeliki" wrote in message
...
Hello
I wrote a code that copys values from one workbook to another workbook.
The problem is that when goes from one workbook to another there is a
flickering in the screen.
Can you tell me how to hide macro execution?The code works ok i just

don't
want to see the macro be executed.
Thanks in advance

Regards
Angeliki

Windows("Book1").Activate
Sheets("Information").Select
Range("A1:I12").Select
Selection.Copy
Windows("Book2").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Columns("A:I").Select
Columns("A:I").EntireColumn.AutoFit
Range("A1").Select
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Information"

Windows("Book1").Activate
Application.CutCopyMode = False
Range("A1").Select









pantelis

Hiding macro execution
 
I think what Angeliki means is that she included the

application.screenupdating = False code but she is still

showing the sheets when changing from one workbook to another.

I'm not sure how to correct for this but would be interested in anyones
input.

Pantelis



"Angeliki" wrote in message
...
I tried this one. However it goes to one workbook to another several

times.
Should i add this before each time it'a about to change workbook in the
code?
I would appreciate any help

Thanks

Angeliki

"Don Guillett" wrote in message
...
application.screenupdating=false
your code
reset to true

"Angeliki" wrote in message
...
Hello
I wrote a code that copys values from one workbook to another

workbook.
The problem is that when goes from one workbook to another there is a
flickering in the screen.
Can you tell me how to hide macro execution?The code works ok i just

don't
want to see the macro be executed.
Thanks in advance

Regards
Angeliki

Windows("Book1").Activate
Sheets("Information").Select
Range("A1:I12").Select
Selection.Copy
Windows("Book2").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats,

Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Columns("A:I").Select
Columns("A:I").EntireColumn.AutoFit
Range("A1").Select
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Information"

Windows("Book1").Activate
Application.CutCopyMode = False
Range("A1").Select











Don Guillett[_4_]

Hiding macro execution
 
the

application.screenupdating=false
should be at the start of your macro
application.screenupdating=true
at the end
the change to your workbooks shouldn't show. It may? not be necessary to
open the workbook. Why don't you post all of your code for comments.

"Angeliki" wrote in message
...
I tried this one. However it goes to one workbook to another several

times.
Should i add this before each time it'a about to change workbook in the
code?
I would appreciate any help

Thanks

Angeliki

"Don Guillett" wrote in message
...
application.screenupdating=false
your code
reset to true

"Angeliki" wrote in message
...
Hello
I wrote a code that copys values from one workbook to another

workbook.
The problem is that when goes from one workbook to another there is a
flickering in the screen.
Can you tell me how to hide macro execution?The code works ok i just

don't
want to see the macro be executed.
Thanks in advance

Regards
Angeliki

Windows("Book1").Activate
Sheets("Information").Select
Range("A1:I12").Select
Selection.Copy
Windows("Book2").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats,

Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Columns("A:I").Select
Columns("A:I").EntireColumn.AutoFit
Range("A1").Select
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Information"

Windows("Book1").Activate
Application.CutCopyMode = False
Range("A1").Select












All times are GMT +1. The time now is 08:18 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com