Formatted cells turning up in column IV

[Guest]

If I remove a Column:

Columns ("B:B").Delete Shift:=xlToLeft,

I find that column IV (the last column in the spreadsheet) turns up with a
formatted cell (IV3) with a Border.Linestyle.

If I then try to insert a Column:

Columns ("B:B").Insert Shift:=xlToRight,

I get the error message "To prevent possible loss of Data Microsoft Excel
cannot shift nonblank cells off the worksheet...."

I can obviously go to Range "IV3" and clear the formatting, but that seems
tedious. How do I ensure that I get a blank column IV when I delete a
column elsewhere in a spreadsheet, and why does this formatted column appear
when I might have expected a totally blank new column?

Thanks for any help/advice.

 

[NickHK]

I cannot repeat your error with Excel2002.
Maybe you have some code doing this that you have forgotten/missed ?

NickHK

 

[Guest]

NickHK,
I have Excel2000. I cannot find any code that would cause this problem.

 

[Dave Peterson]

If you open excel in safe mode

Windows start button|Run
type:
excel /safe

And then file|open your workbook

Then test it, what happens?

 

[Guest]

Dave,
'Excel /safe' gave me a 'Please wait while windows configures
MicrosoftOffice XP Professional ......'.

Then 'The feature you are trying to use is on a CD-Rom...'.

Inserted OfficeXP Pro CD and got the same message as above 'Please wait
while.....'.

Excel then loaded in safe mode. I loaded my spreadsheet and got the
standard 'Macros disabled....'. Bypassed this and deleted one column to
find that the same problem occured. Cell IV3 turns up with a border
linestyle (actually the top border, a style I would not normally use). I
then cannot delete a column unless I first remove remove the linestyle.
i.e., Safe mode had no apparent effect, other than to disable macros.

I too cannot duplicate this problem on blank spreadsheets, so it must be a
problem inherent in the operational spreadsheet only.

Thanks,

 

[Dave Peterson]

I don't have another guess.

Sorry.

Dave,
'Excel /safe' gave me a 'Please wait while windows configures
MicrosoftOffice XP Professional ......'.

Then 'The feature you are trying to use is on a CD-Rom...'.

Inserted OfficeXP Pro CD and got the same message as above 'Please wait
while.....'.

Excel then loaded in safe mode. I loaded my spreadsheet and got the
standard 'Macros disabled....'. Bypassed this and deleted one column to
find that the same problem occured. Cell IV3 turns up with a border
linestyle (actually the top border, a style I would not normally use). I
then cannot delete a column unless I first remove remove the linestyle.
i.e., Safe mode had no apparent effect, other than to disable macros.

I too cannot duplicate this problem on blank spreadsheets, so it must be a
problem inherent in the operational spreadsheet only.

Thanks,

 

[Guest]

Thanks Dave,
I appreciate that is difficult to solve a problem of this sort when you
cannot duplicate it on your machine.

It seems that somehow I have instructed that newly-inserted columns must not
be blank. I can work around it with a:
Range("IV") .Borders.LineStyle = xlNone
in my code, but this seems an ugly patch and its a pain because it has to be
included for each of the worksheets I operate on within the Workbook.

Thanks anyway.

 

[Guest]

If anyone else is interested or curious about this problem, I am happy to
email them one sheet of the offending workbook.

Thanks Dave,
I appreciate that is difficult to solve a problem of this sort when you
cannot duplicate it on your machine.

It seems that somehow I have instructed that newly-inserted columns must not
be blank. I can work around it with a:
Range("IV") .Borders.LineStyle = xlNone
in my code, but this seems an ugly patch and its a pain because it has to be
included for each of the worksheets I operate on within the Workbook.

Thanks anyway.

 

[NickHK]

You could post the file to one of the free file upload sites e.g.
http://freefileupload.net/

and then post the URL here for anyone interested.

NickHK

 

[Guest]

A worksheet containing this phenomenom is posted at:
http://www.freefileupload.net/file.php?file=files/190507/1179545169/IVProblem.xls

 

[NickHK]

Well, I can't say why Excel is creating this border; some glitch in the WS I
suppose.
It seems that the line is an xlInsideHorizontal, but how you create one of
those is beyond me; I can only add a xlEdgeBottom ???
But you can permenantly get rid of it with this:

Private Sub CommandButton1_Click()
'Create a border line, so there is something to change
Columns("IU:IU").Delete Shift:=xlToLeft

'Change the borders
With Rows("46:47")
.Borders(xlInsideHorizontal).LineStyle = xlNone
' .Borders(xlEdgeBottom).LineStyle = xlNone
End With

'Test
Columns("IU:IU").Delete Shift:=xlToLeft

End Sub

NickHK

 

[Guest]

Thanks Nick

NickHK" wrote:

Well, I can't say why Excel is creating this border; some glitch in the WS I
suppose.
It seems that the line is an xlInsideHorizontal, but how you create one of
those is beyond me; I can only add a xlEdgeBottom ???
But you can permenantly get rid of it with this:

Private Sub CommandButton1_Click()
'Create a border line, so there is something to change
Columns("IU:IU").Delete Shift:=xlToLeft

'Change the borders
With Rows("46:47")
.Borders(xlInsideHorizontal).LineStyle = xlNone
' .Borders(xlEdgeBottom).LineStyle = xlNone
End With

'Test
Columns("IU:IU").Delete Shift:=xlToLeft

End Sub

NickHK