Macro excel
Hola buenos días mi nombre es María Angélica.
Te cuento que necesito realizar una macro en excel que tome el valor de una celda en la hoja 1 y lo vaya copiando en la hoja siguiente con el día y hora en que tomo el registro. El valor de esta celda se va actualizando cada 30 minutos. Yo realice la macro pero quiero saber como se puede autoejecutar cada vez que se vaya actualizando la celda. Mira este es mi código, yo recién estoy aprendiendo macros de manuales y la web, entonces puede ser que mi código no este bien...
Ojala me puedas ayudar muchas gracias.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 And Target.Row = 1 Then
Call ingreso
End If
End Sub
Sub ingreso()
Worksheets("Hoja1").Activate
ActiveSheet.Range("A1").Activate
Selection.Copy
Worksheets("Hoja2").Activate
ActiveSheet.Range("A1").Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Date
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Time
End Sub
Te cuento que necesito realizar una macro en excel que tome el valor de una celda en la hoja 1 y lo vaya copiando en la hoja siguiente con el día y hora en que tomo el registro. El valor de esta celda se va actualizando cada 30 minutos. Yo realice la macro pero quiero saber como se puede autoejecutar cada vez que se vaya actualizando la celda. Mira este es mi código, yo recién estoy aprendiendo macros de manuales y la web, entonces puede ser que mi código no este bien...
Ojala me puedas ayudar muchas gracias.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 And Target.Row = 1 Then
Call ingreso
End If
End Sub
Sub ingreso()
Worksheets("Hoja1").Activate
ActiveSheet.Range("A1").Activate
Selection.Copy
Worksheets("Hoja2").Activate
ActiveSheet.Range("A1").Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Date
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Time
End Sub
1 Respuesta
Respuesta de andriu25
1
A parte de que el código esta MUY BIEN generado aún no logro entender tu problema...
Como tienes diseñada la macro, la hoja2 se está actualizando automáticamente cada vez que la celda a1 de la hoja1 sufre una modificación y según lo que veo así la quieres tener!
Para ser nueva en el tema vas muy muy bien!
Si el problema es otro.
Como tienes diseñada la macro, la hoja2 se está actualizando automáticamente cada vez que la celda a1 de la hoja1 sufre una modificación y según lo que veo así la quieres tener!
Para ser nueva en el tema vas muy muy bien!
Si el problema es otro.
Andriu25, muchas gracias por responderme.
Bueno te cuento que encontré mi problema y era que escribí la macro en un módulo y no en la hoja 1. Ahora si funciona correctamente, pero tengo otra duda, como puedo hacer para que la pantalla no cambie tan brusco cuando pasa de una hoja a la otra, ¿ya qué pega como un salto?.
Atentamente.,
María Angélica.
Bueno te cuento que encontré mi problema y era que escribí la macro en un módulo y no en la hoja 1. Ahora si funciona correctamente, pero tengo otra duda, como puedo hacer para que la pantalla no cambie tan brusco cuando pasa de una hoja a la otra, ¿ya qué pega como un salto?.
Atentamente.,
María Angélica.
