Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replace destination cells
When, in my macro, the code gets to this line:
Columns("AA").TextToColumns Destination:=Range("AB1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True I am asked whether I want to replace the contents of the destination. As I always want to do this, is there a way I can have this happen, and avoid the user prompt? Thanks in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replace destination cells
Try:
Application.DisplayAlerts = False ' your code Application.DisplayAlerts = True Regards Trevor "SmilingPolitely" wrote in message . au... When, in my macro, the code gets to this line: Columns("AA").TextToColumns Destination:=Range("AB1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True I am asked whether I want to replace the contents of the destination. As I always want to do this, is there a way I can have this happen, and avoid the user prompt? Thanks in advance. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replace destination cells
Wrap the code with
Application.DisplayAlerts = False 'your code Application.DisplayAlerts = True HTH Cheers Nigel "SmilingPolitely" wrote in message . au... When, in my macro, the code gets to this line: Columns("AA").TextToColumns Destination:=Range("AB1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True I am asked whether I want to replace the contents of the destination. As I always want to do this, is there a way I can have this happen, and avoid the user prompt? Thanks in advance. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replace destination cells
Sensational.. thanks
Nigel wrote: Wrap the code with Application.DisplayAlerts = False 'your code Application.DisplayAlerts = True HTH Cheers Nigel "SmilingPolitely" wrote in message . au... When, in my macro, the code gets to this line: Columns("AA").TextToColumns Destination:=Range("AB1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True I am asked whether I want to replace the contents of the destination. As I always want to do this, is there a way I can have this happen, and avoid the user prompt? Thanks in advance. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
"Do you want to replace the contents of the destination cells?" | Excel Discussion (Misc queries) | |||
Do you want to replace the destination cells? | Excel Discussion (Misc queries) | |||
Copy Source Cells to Destination Cells Only when a Change Occurs | Excel Discussion (Misc queries) | |||
copying cells with formulas, but to keep it alike in destination | Excel Programming | |||
Multiple destination cells for data entry | Excel Programming |