| 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 | |||
Linear Mode
