Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

error "1004" en tiempo de ejecución

25/10/2006 - 20:23 por JLMorales | Informe spam
Ayuda Hacer una pregunta
Hola grupo:

Me apararece el siguiente error:
Se ha producido el error "1004" en tiempo de ejecución:
Error definido por la aplicación o el objeto

Esto es cuando corro una macro como esta:

Function Guardar()
Application.ScreenUpdating = False

Worksheets("Bitácora").Activate
ActiveSheet.Range("B6").End(xlDown).Offset(1, 0).Select
ufila = ActiveSheet.Cells(65536, 2).End(xlUp).Row + 1
With Sheets("Bitácora")

.Cells(ufila, 1) = Date
.Cells(ufila, 2) = Sheets("Hoja de Servicio").Range("AK3")
.
.Cells(ufila, 31) = Sheets("Hoja de Servicio").Range("A59")

End With
Worksheets("Hoja de Servicio").Activate
Application.ScreenUpdating = True
End Function

El error lo mando cuando llega a
ActiveSheet.Range("B6").End(xlDown).Offset(1, 0).Select

Tengo otro archivo con algo similar y trabaja sin problemas.

En realidad deseo que Bitacora este en la misma "hoja de servicio" es decir,
agregar los registros en celda "BI3" pero tambien me marca error. Solo quiero
ocupar una sola hoja.
¿que está sucediendo?
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Ivan
25/10/2006 - 20:58 | Informe spam
hola JLMorales

no me hagas mucho caso, pero a la espera de alguien mas experto, me da
la impresion de que debajo de B6 debe estar vacio, osea que la ultima
fila es la 6. De estar en lo cierto estas queriendo seleccionar una
celda mas abajo de las existentes, la B65537.

de todas formas, o tienes un rango de celdas vacias entre b6 y la
ultima fila con datos de la columna B o la siguiente instruccion hace
exactamente lo que esta (con xlUp), y ademas, si en b6 hay algo
seguramente te evitara el error.

si no es asi, un posible truco para evitar el error cuando esto suceda
(este vacio el resto de la columna) es poner algo similar a esto->

If ActiveSheet.Range("B7") = "" then ActiveSheet.Range("B7").Select
else _ ActiveSheet.Range("B6").end(xlDown).offset(1,0).Select

-> esto suponiendo que en b6 tienes algo parecido a titulo de campo

no se si ira por aqui el tema, pero puede ser algo similar

espero te ayude en algo

un saludo y hasta pronto
Ivan
?

Preguntas similares

 

Busqueda sugerida :