Borrar contenido de celdas, al suprimir otra

albediaz · el 13 de marzo

Hola foro

Otra vez solicitando su ayuda

Recién me han ayudado a colocar fecha hora y minutos en celdas separadas, pero al estar utilizando la solución dada, me percate de que me falta una linea de código que, al borrar el contenido de la columna A, también se borren los contenidos del las celdas B, C y D.

Subo el archivo con el código que me ayudaron a modificar, esperando me puedan ayudar a insertar el código para borrar como he dicho antes.

Gracias de antemano

pegar fecha 2.xls

edgar castillo pompilla · el 14 de marzo

Hola albediaz, aquí te dejo la solución que buscas espero que sea lo correcto, si es así da por solucionado el tema Saludos.

Pegar Fecha1.rar

albediaz · el 14 de marzo

Hola albediaz, aquí te dejo la solución que buscas espero que sea lo correcto, si es así da por solucionado el tema Saludos.

Hola edgar

Muchas gracias por la ayuda, si funciona lo que me enviaste, lo malo es que al agregar las lineas que tenia para que en la columna D me pusiera los minutos, la macro se detiene, en una computadora si funciona pero en otras no, y realmente no se que sea. Subo el archivo ya con la linea de código que comento, para ver si esto se puede solucionar.

Me aparece como "Se ha producido el error "13" en tiempo de ejecución"

Pegar Fecha1_rev.rar

edgar castillo pompilla · el 15 de marzo

Hola albediaz, con lo referido a tu pregunta este sería otro tema, pero descuida lo revisare.

edgar castillo pompilla · el 15 de marzo

Hola albediaz, lo unico que tendrías que hacer es cambiar la parte del código:

Range("D" & Target.Row) = Left(Right(Now, 5), 2) * 1

por esto:

Range("D" & Target.Row) = Minute(Now)' esto es para minutos

Para segundos es de esta manera:

Range("D" & Target.Row) = Second(Now) ' esto es para segundos

Bueno espero que esto solucione tu problema saludos.

edgar castillo pompilla · el 15 de marzo

Aqui te adjunto el archivo.

edgar castillo pompilla · el 15 de marzo

Te adjunto tu archivo.

Pegar Fecha1_rev.rar

albediaz · el 15 de marzo

Hola albediaz, lo unico que tendrías que hacer es cambiar la parte del código:
Range("D" & Target.Row) = Left(Right(Now, 5), 2) * 1

por esto:

Range("D" & Target.Row) = Minute(Now)' esto es para minutos

Para segundos es de esta manera:

Range("D" & Target.Row) = Second(Now) ' esto es para segundos

Bueno espero que esto solucione tu problema saludos.

Edgar funciona muy bien muchas gracias, solo un último favor, decidí proteger la hoja de trabajo por algunas formulas que están ahí, la macro no se va a ejecutar si la hoja esta protegida, se puede poner alguna linea, para que se desproteja y se proteja automáticamente y la macro se pueda ejecutar?

edgar castillo pompilla · el 16 de marzo

Hola albediaz, por normas específicas del foro con respecto a tu pregunta a sido respondida satisfactoriamente, por lo tanto sería bueno que des por solucionado este tema y abras un nuevo tema con las inquietudes que tienes...