Error 91 y 1004 en Macros ¿Cómo puedo solucionarlo?
Tengo un archivo de trabajo al cual añado información actualizada cada semana para realizar reportes. Mi ordenador sufrió una actualización de windows y no sé si es debido a eso pero ahora, cuando le doy a generar macros me salen errores, el más usual es el ''Se ha producido el error 91 en tiempo de ejecución' Variable de objeto o bloque With no establecido''. Al darle a 'depurar' me marca en amarillo lo siguiente:
Sheets("RESUMEN JA y GC").Select
Range("B1:B13").Select
Selection.Find(What:=JefeArea, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Mi problema es que no sé mucho de macros y no sabría como solventar esta incidencia.
Agradecería tu ayuda/soporte para este tema.
[Ho la y bienvenido a TodoExpertos!
El mensaje de error es porque el dato no existe.
De la siguiente manera realizas la búsqueda y almacenas el resultado en el objeto 'f'.
Si el objeto 'f' está vacío, entonces el dato no existe.
Adapta el siguiente código a tu macro.
Sub test()
Dim f As Range
Dim JefeArea
'
Sheets("RESUMEN JA y GC").Select
Set f = Range("B1:B13").Find(What:=JefeArea, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not f Is Nothing Then
f.Select
Else
MsgBox "No existe el dato"
End If
End SubSi tienes problemas para adaptar el código, entonces pon aquí tu macro completa y te ayudo.
[Si te ayuda la respuesta, entonces al final de mi respuesta hay un botón para valorar, es como un liki.
Like https://ecp.yusercontent.com/mail?url=https:%2F%2Fs.yimg.com%2Fnq%2Fyemoji_assets%2Flatest%2Fyemoji_assets%2F1f44d.png&t=1660057440&ymreqid=18f73179-9353-8498-1c3b-c10004016400&sig=VHuc6q3kWBIRJ98sHjaHFg--~D
