Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replaceing destination cell contents with new data in Excell
Hi
I am using the following code to replace old data with new. Set objRange1 = Application.Workbooks("Analysis.xls").Worksheets(" Data").Range("B2").EntireColumn Set ObjRange2 = Application.Workbooks("Analysis.xls").Worksheets(" Data").Range("C2").EntireColumn objRange1.TextToColumns ObjRange2, , , , , , True The problem is, unless I do a manual delete on "ObjRange2" then I get the prompt, "Do you want to replace the contents of the destination cells?" I always want to replace and to do programatically. I am using Excel 2000 and Windows 2000. Thanks, Duane |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replaceing destination cell contents with new data in Excell
Try
OnError GoTo codeBreak SetWarnings No 'before your code and at the end of your code put codeBreak: SetWarnings Yes This can be dangerous so be certain to add the second part. The Goto -- Thanks, Patrick "Duane L Kibby" wrote: Hi I am using the following code to replace old data with new. Set objRange1 = Application.Workbooks("Analysis.xls").Worksheets(" Data").Range("B2").EntireColumn Set ObjRange2 = Application.Workbooks("Analysis.xls").Worksheets(" Data").Range("C2").EntireColumn objRange1.TextToColumns ObjRange2, , , , , , True The problem is, unless I do a manual delete on "ObjRange2" then I get the prompt, "Do you want to replace the contents of the destination cells?" I always want to replace and to do programatically. I am using Excel 2000 and Windows 2000. Thanks, Duane |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replaceing destination cell contents with new data in Excell
Use
application.displayalerts = false and application.displayalerts = true To change whether the prompt is shown. As this is an application level setting you should be sure to use an error handler to reset the value in case of a crash. HTH "Duane L Kibby" wrote: Hi I am using the following code to replace old data with new. Set objRange1 = Application.Workbooks("Analysis.xls").Worksheets(" Data").Range("B2").EntireColumn Set ObjRange2 = Application.Workbooks("Analysis.xls").Worksheets(" Data").Range("C2").EntireColumn objRange1.TextToColumns ObjRange2, , , , , , True The problem is, unless I do a manual delete on "ObjRange2" then I get the prompt, "Do you want to replace the contents of the destination cells?" I always want to replace and to do programatically. I am using Excel 2000 and Windows 2000. Thanks, Duane |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replaceing destination cell contents with new data in Excell
Disregard previous...whron app.
Application.DisplayAlerts = False Application.DisplayAlerts = True !!Be sure to turn the Alerts back on at the end of you proceedure!! -- Thanks, Patrick "Duane L Kibby" wrote: Hi I am using the following code to replace old data with new. Set objRange1 = Application.Workbooks("Analysis.xls").Worksheets(" Data").Range("B2").EntireColumn Set ObjRange2 = Application.Workbooks("Analysis.xls").Worksheets(" Data").Range("C2").EntireColumn objRange1.TextToColumns ObjRange2, , , , , , True The problem is, unless I do a manual delete on "ObjRange2" then I get the prompt, "Do you want to replace the contents of the destination cells?" I always want to replace and to do programatically. I am using Excel 2000 and Windows 2000. Thanks, Duane |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Paste contents, but keep formula of destination | Excel Discussion (Misc queries) | |||
Paste data to cell and keep destination font and size | New Users to Excel | |||
How can I Import picture contents into Excell cell array numbers? | Excel Worksheet Functions | |||
How can I Import picture contents into Excell cell array numbers? | Excel Worksheet Functions | |||
Copying format to a new cell, w/o overwriting destination cell contents | Excel Discussion (Misc queries) |