Copiar una celda de una hoja a otra hoja en columnas consecutivas cada minuto

Pedro Guarache · el 2 de junio

Buenas tardes. Quisiera saber de que forma podría copiar la información de un grupo de celdas de una hoja de Excel a otra hoja de Excel pero en diferentes columnas de forma correlativa en intervalos de 1 minuto. Lo hice de la forma como se muestra el adjunto pero requiere que escriba el código por cada columna (A,B,C,D,E...) y de verdad no me es factible de esa forma porque necesito hacer dicha captura por aproximadamente 12 horas y eso implicaría escrbir el código para aproximadamente para 720 columnas y eso sería muy poco practico porque tendría un código muy grande.

Esperando sus sugerencias al respecto.

En el adjunto podrán ver como tengo creada la Macro para que me haga la captura de los datos. (Desactiven la opción de "'ActiveWorkbook.RefreshAll" porque ustedes no tienen acceso a mi fuente de datos obviamente

Para ejecutar la Macro pueden presionar Ctrl+M

Saludos.

Muchas gracias de antemano

Registro de temperatura.zip

Antoni · el 2 de junio

Mañana lo tienes, me voy a cenar.

Antoni · el 3 de junio

Aquí te lo dejo:

Ctrl+e para empezar el registro cada 10 minutos.

Ctrl+t para parar el registro.

.

Registro de temperatura cocedores.zip

Pedro Guarache · el 3 de junio

Muchas gracias, Macro Antonio, pero hay un pequeño problema, al menos conmigo, solo se registran dos columnas luego el programa se detiene y no se continúa ejecutando. Ahora, si lo ejecuto en modo de depuración paso a paso por instrucciones si registra los datos las veces que quiera. ¿Que podría estar ocurriendo?

Lo adjunto nuevamente tal y cual lo estoy usando pero con ciertas modificaciones sobre los datos de algunas celdas, nada que afecte el funcionamiento del Macro.

Saludos.

Registro de temperatura cocedores.zip

Antoni · el 5 de junio

Los errores mas simples son los que cuestan mas de encontrar por dar por supuesto cosas que no son ciertas.

En el último momento se me ocurrió cambiarle el nombre a una variable, pero no lo hice en la definición y encima me equivoqué en el nombre que quería darle.

Es bien cierto aquello que dice "Si funciona no lo toques, y si lo haces, asegúrate que sigue funcionando".

Mis disculpas.

Déjalo así:



Public Hora As Date, NoEsInicio As Boolean


Sub StartClock(): On Error Resume Next

If NoEsInicio = False Then RegistrarTemperaturas

Hora = Now + TimeValue("00:00:02") '<============== Intervalo de tiempo

Application.OnTime Hora, "RegistrarTemperaturas"

End Sub


Sub StopClock(): On Error Resume Next

NoEsInicio = False

Application.OnTime Hora, "RegistrarTemperaturas", , False

End Sub


Sub RegistrarTemperaturas(): On Error Resume Next

Dim Columna As Long

Dim T As Worksheet, V As Worksheet

'ActiveWorkbook.RefreshAll

Set T = Sheets("Registro de Temperatura")

Set V = Sheets("Vista en vivo")

Columna = T.Cells(1, Columns.Count).End(xlToLeft).Column + 1

T.Cells(1, Columna) = V.Range("H17")    'Fecha y hora

T.Cells(10, Columna) = V.Range("D4")    'Temp Pescado 1 Cocedor 2

T.Cells(11, Columna) = V.Range("D5")    'Temp Pescado 2 Cocedor 2

T.Cells(9, Columna) = V.Range("D6")     'Temp Cocedor 2

T.Cells(4, Columna) = V.Range("D7")     'Temp Cocedor 1

T.Cells(5, Columna) = V.Range("D8")     'Temp Pescado 1 Cocedor 1

T.Cells(6, Columna) = V.Range("D9")     'Temp Pescado 2 Cocedor 1

T.Cells(14, Columna) = V.Range("D11")   'Temp Cocedor 3

T.Cells(15, Columna) = V.Range("D12")   'Temp Pescado 1 Cocedor 3

T.Cells(16, Columna) = V.Range("D13")   'Temp Pescado 2 Cocedor 3

If NoEsInicio = False Then

   NoEsInicio = True

Else

   StartClock

End If

End Sub


[/CODE]