Excel will not open

[Peter Veale]

I have just encountered a problem which is preventing
excel from starting. It briefly opens (in a small window)
and quickly closes again. When it first happened I got
some message about visual basic and editing, but it came
and went so quickly that I couldn't read it. It happens
when I try to open the program or a document created in
excel.
I have tried deleting the program and re installing but no
success.
Help

 

[Frank Kabel]

Hi
locate your XLStart folder and remove all files from this folder. You
may also move your pseronal.xls file to a different location. Now try
starting Excel again
If this does not help try starting Excel in 'safe' mode to disable all
add-ins

 

[Dennis]

David and Frank


In this case, XL 2003 (up-to date)


On the Tools | Options tab no items are selected (no transition etc.)

Here is the code:

Sub ArrayCopy()
'
Selection.FormulaArray = _
"=IF(ISERROR(INDEX(FRE!R1C2:R318C2,SMALL(IF(FRE!R1C1:R318C1=RC1, _
ROW(FRE!R1C1:R318C1)),COLUMN()-6))),"""",INDEX(FRE!R1C2:R318C2, _
SMALL(IF(FRE!R1C1:R318C1=RC1,ROW(FRE!R1C1:R318C1)),COLUMN()-6)))"
Selection.AutoFill Destination:=ActiveCell.Range("A1:A304"), _
Type:=xlFillDefault
ActiveCell.Range("A1:A304").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:AJ304"), _
Type:=xlFillDefault
ActiveCell.Range("A1:AJ304").Select
With Selection
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False

End Sub

After Copy | Paste Special | Values; Every cell in the "range" has either " ' "
or ' (value displayed)

TIA Dennis

 

[Guest]

Thanks

-----Original Message-----
Hi
locate your XLStart folder and remove all files from this folder. You
may also move your pseronal.xls file to a different location. Now try
starting Excel again
If this does not help try starting Excel in 'safe' mode to disable all
add-ins

--
Regards
Frank Kabel
Frankfurt, Germany




.

 

[Dave Peterson]

See one more reply in the other thread.

David and Frank

In this case, XL 2003 (up-to date)

On the Tools | Options tab no items are selected (no transition etc.)

Here is the code:

Sub ArrayCopy()
'
Selection.FormulaArray = _
"=IF(ISERROR(INDEX(FRE!R1C2:R318C2,SMALL(IF(FRE!R1C1:R318C1=RC1, _
ROW(FRE!R1C1:R318C1)),COLUMN()-6))),"""",INDEX(FRE!R1C2:R318C2, _
SMALL(IF(FRE!R1C1:R318C1=RC1,ROW(FRE!R1C1:R318C1)),COLUMN()-6)))"
Selection.AutoFill Destination:=ActiveCell.Range("A1:A304"), _
Type:=xlFillDefault
ActiveCell.Range("A1:A304").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:AJ304"), _
Type:=xlFillDefault
ActiveCell.Range("A1:AJ304").Select
With Selection
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False

End Sub

After Copy | Paste Special | Values; Every cell in the "range" has either " ' "
or ' (value displayed)

TIA Dennis

 

[Dennis]

This post was an accident (wrong thread)

See one more reply in the other thread.