Problema excel

17/09/2003 - 18:24 por javier.lezaun | Informe spam
Por primera vez me atrevo a incorporarme a este grupo que he visto
funciona muy bien. Bueno, el problema que tengo es que he realizado
una hoja excel con unos datos en una celdas y que van a cambiar
frecuentemente y necesito que estos datos vayan (cada vez que
introduzca datos nuevos) a otra hoja del mismo cuaderno, pero en
celdas secuenciales para ir registrando todos los datos que he
generado en la primera hoja.
gracias por vuestro tiempo.
joselin
 

Leer las respuestas

#1 Héctor Miguel
17/09/2003 - 19:32 | Informe spam
Hola, Joselin [¿Javier?] !

... datos en unas celdas ... vayan (cada vez que ... datos nuevos) a otra hoja del mismo cuaderno
... en celdas secuenciales para ir registrando todos los datos que he generado en la primera hoja.



==> con los siguientes 'supuestos':
1) la hoja con los datos que 'van a ir cambiando' se llama 'Hoja1'
2) el rango de celdas que se va a 'controlar' son las celdas 'A1', 'B2' y el rango 'C3:C5'
3) la hoja donde se llevara el 'registro' de los cambios se llama 'Hoja2'

el siguiente codigo 'pasara' [secuencialmente] a la Hoja2, que celda cambia, el valor [o dato] 'nuevo', fecha y hora.
=> modifica el rango de celdas 'supuesto' y puedes tambien modificar los formatos de fecha y hoja < para activar el modulo de codigo de Hoja1 => 'click-derecho' [sobre la pestaña del nombre] -> Ver codigo...
en el modulo de codigo de 'Hoja1' ==Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1,b2,c3:c5")) Is Nothing Then Exit Sub
With Worksheets("Hoja2").Range("a65536").End(xlUp)
.Offset(1) = Target.Address
.Offset(1, 1) = Target
.Offset(1, 2) = Format(Date, "dd/mmm/yyyy")
.Offset(1, 3) = Format(Time, "h:mm:ss a/p")
End With
End Sub
_______
Saludos,
Héctor.
MS-MVP

Preguntas similares