[Gronxpyk]

Tjena jag har ett litet problem, Jag programerade lit i ett exceldokumet i en PC med Excel 2003.
Nu har jag uppgraderat till Excell 2010 men dockumentet vill inte funka.

Någon som har något tips?

Här är kodningen;

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
Dim MyCell As Range
Set MyCell = Workbooks("100427").Worksheets("Söksida").Range("D4")

RetVal = Shell("C:\windows\system32\mspaint.exe " & Chr(34) & MyCell.Value & Chr(34), vbNormalFocus)

End Sub

Private Sub CommandButton2_Click()
Dim MyCell As Range
Set MyCell = Workbooks("100427").Worksheets("Söksida").Range("D4")

RetVal = Shell("C:\program\microsoft office\office11\ois.exe " & Chr(34) & MyCell.Value & Chr(34), vbNormalFocus)

End Sub

Private Sub CommandButton3_Click()
Dim MyCell As Range
Set MyCell = Workbooks("100427").Worksheets("Söksida").Range("d4")

RetVal = Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe " & Chr(34) & MyCell.Value & Chr(34), vbNormalFocus)

End Sub


Felet ligger tydligen i raderna med röd text.

Felmeddelandet lyder : Körfel nr '9'. : Indexet är utanför intervall.


Tacksam för hjälp.

[Monshi]

Bryt ned raden till steg för steg, typ

With Workbooks("100427")
	With .Worksheets("Söksida")
    	Set myCell = .Range("D4")
	End With
End With

så kan vi se vilken rad det är som ger fel.

[Gronxpyk]

Monshi, den 13 jun 2012, 22:25, sa:

Bryt ned raden till steg för steg, typ

With Workbooks("100427")
	With .Worksheets("Söksida")
    	Set myCell = .Range("D4")
	End With
End With

så kan vi se vilken rad det är som ger fel.

Supertack för att du tar dig tid att hjälpa mig.
Felet ligger i raden, With Workbooks("100427")

[Monshi]

Första raden med andra ord.

Jag misstänker att felet är att du måste adressera med hela filnamnet. Idag kan du ju ha en bok som heter samma sak med olika filändelser öppna, förut hade alla böcker xls som standard.

Dvs skriv

With Workbooks("100427.xls")

[Gronxpyk]

Monshi, den 15 jun 2012, 06:44, sa:

Första raden med andra ord.

Jag misstänker att felet är att du måste adressera med hela filnamnet. Idag kan du ju ha en bok som heter samma sak med olika filändelser öppna, förut hade alla böcker xls som standard.

Dvs skriv

With Workbooks("100427.xls")

TACK! Det löste problemet!