Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
My code is
Private Sub ComboBox1_Change() Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") ruta = ActiveWorkbook.Path imagen = ComboBox1.List(ComboBox1.ListIndex) & ".jpg" ruta_e_imagen = ruta & "\FOTOS\" & imagen If fso.FileExists(ruta_e_imagen) Then Image1.Picture = LoadPicture(ruta_e_imagen) Cells.Find(What:=Replace(imagen, ".jpg", "")).Select <<<<------(ERROR HERE) Label3 = ActiveCell.Offset(0, 1) Label2 = ActiveCell.Offset(0, 2) Label12 = ActiveCell.Offset(0, 10) Label13 = ActiveCell.Offset(0, 11) Label14 = ActiveCell.Offset(0, 12) Label15 = ActiveCell.Offset(0, 13) Label16 = ActiveCell.Offset(0, 14) Else MsgBox "La Imagen: " & imagen & ", NO está disponible" End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Runtime Error '91' Object variable or With block variable not set | Excel Discussion (Misc queries) | |||
Runtime Error 91 Object variable or With block variable not set. | Excel Programming | |||
Error Number: 91 object variable or With block Variable not set | Excel Programming | |||
Run-time error '91': "Object variable or With block variable not set | Excel Programming | |||
Cells.Find error Object variable or With block variable not set | Excel Programming |