¿Como puedo corregir el error 91: variable de objeto o bloque With no establecido?
Tengo un inconveniente con mi macro, cuando la hoja está sin protección funciona bien; sin embargo cuando está protegida me sale error 91 variable de objeto o bloque With no establecido ¿cómo puedo corregir ese error?
Lo que he utilizado es lo siguiente:
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
'cargamos esa imagen en el cuadro de la imagen
Image1.Picture = LoadPicture(ruta_e_imagen)
Cells.Find(What:=Replace(imagen, ".jpg", "")).Select (aquí se marca el error cuando la hoja esta protegida)
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
1 respuesta
me sigue saliendo el mismo error
O no colocaste las instrucciones donde te marqué, o tu problema está en alguna otra instrucción.
Porque la instrucción marcada con negrita solo selecciona una celda y si estando desprotegida no te da error ... es que necesita 'antes' que la desprotejas.
¿Quizás se ejecutan otras macros en esa hoja?
Enviame x favor tu hoja y el formulario al correo que aparece en mi sitio o dejame un correo tuyo y te escribo.
