Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

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

Pedro Guarache

Recommended Posts

Pedro Guarache Novato

Pedro Guarache

publicado
publicado

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

Pedro Guarache Novato

Pedro Guarache

publicado
  • Autor
publicado

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 Veterano

Antoni

publicado
publicado

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]

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      187
    • Comentarios
      97
    • Revisiones
      29
    Más información sobre "Un juego del Rabino en Excel"
    Última descarga
    Un juego del Rabino en Excel
    Por pegones1

    2    1

  • Crear macros Excel

  • Mensajes

    • Tilin2023
      COMO ELIMINAR FILAS CON FECHA QUE NO APARECEN AL SIGUIENTE DIA

      Por Tilin2023 · publicado

      @JSDJSD Excelentes, GRACIAS POR TU SOPORTE , me ayudo demasiado es exactamente lo que quería. 5 ESTRELLAS
    • JSDJSD
      COMO ELIMINAR FILAS CON FECHA QUE NO APARECEN AL SIGUIENTE DIA

      Por JSDJSD · publicado

      'Opción 1 Sub FiltrarSKUPorFecha(): Application.ScreenUpdating = False Dim ultimaFila As Long, fila As Long Dim diccionarioSKU As Object Dim listaEliminar As Object Dim fechaActual As String, fechaSiguiente As String Dim f As Variant With Sheets("Consolidado") ultimaFila = .Cells(.Rows.Count, 1).End(xlUp).Row ' Crear diccionarios para comparar SKU y almacenar filas a eliminar Set diccionarioSKU = CreateObject("Scripting.Dictionary") Set listaEliminar = CreateObject("Scripting.Dictionary") ' Recorrer desde la primera fila hasta la penúltima For fila = 2 To ultimaFila - 1 fechaActual = .Cells(fila, 1).Value fechaSiguiente = .Cells(fila + 1, 1).Value ' Solo comparar la fecha actual con la siguiente (inmediatamente superior) If fechaActual <> fechaSiguiente Then diccionarioSKU.RemoveAll ' Limpiar el diccionario antes de llenarlo ' Guardar los SKU de la fecha siguiente (solo de la siguiente) For f = fila + 1 To ultimaFila If .Cells(f, 1).Value <> fechaSiguiente Then Exit For diccionarioSKU(.Cells(f, 2).Value) = 1 Next f ' Revisar los SKU de la fecha actual y marcar los que deben eliminarse For f = fila To 2 Step -1 If .Cells(f, 1).Value <> fechaActual Then Exit For ' Solo eliminar si el SKU no está en la fecha siguiente If Not diccionarioSKU.exists(.Cells(f, 2).Value) Then listaEliminar(f) = 1 ' Marcar fila para eliminar después End If Next f ' Ya no es necesario seguir buscando después de comparar la primera y la siguiente fecha Exit For End If Next fila ' Eliminar las filas marcadas sin afectar el bucle principal For Each f In listaEliminar.keys .Rows(f).Delete Next End With MsgBox "Completado correctamente.", vbInformation End Sub 'Opción 2 Sub FiltrarSKUPorFecha1(): Application.ScreenUpdating = False Dim ultimaFila As Long, fila As Long Dim listaEliminar As Collection Dim fechaActual As String, fechaSiguiente As String Dim f As Variant, i As Long Dim SKUExiste As Boolean With Sheets("Consolidado") ultimaFila = .Cells(.Rows.Count, 1).End(xlUp).Row ' Inicializar la colección para marcar las filas a eliminar Set listaEliminar = New Collection ' Recorrer desde la primera fila hasta la penúltima For fila = 2 To ultimaFila - 1 fechaActual = .Cells(fila, 1).Value fechaSiguiente = .Cells(fila + 1, 1).Value ' Solo comparar la fecha actual con la siguiente (inmediatamente superior) If fechaActual <> fechaSiguiente Then ' Revisar los SKU de la fecha actual y marcar los que deben eliminarse For f = fila To 2 Step -1 If .Cells(f, 1).Value <> fechaActual Then Exit For ' Comprobar si el SKU está en la fecha siguiente SKUExiste = False For i = fila + 1 To ultimaFila If .Cells(i, 1).Value <> fechaSiguiente Then Exit For If .Cells(i, 2).Value = .Cells(f, 2).Value Then SKUExiste = True Exit For End If Next i ' Si el SKU no se encuentra en la fecha siguiente, marcar para eliminar If Not SKUExiste Then listaEliminar.Add f ' Marcar fila para eliminar después End If Next f ' Ya no es necesario seguir buscando después de comparar la primera y la siguiente fecha Exit For End If Next fila ' Eliminar las filas marcadas sin afectar el bucle principal For Each f In listaEliminar .Rows(f).Delete Next f End With MsgBox "Completado correctamente.", vbInformation End Sub   TABLA ELIMINAR.xlsm
    • JSDJSD
      COMO ELIMINAR FILAS CON FECHA QUE NO APARECEN AL SIGUIENTE DIA

      Por JSDJSD · publicado

      Prueba y comenta 
    • Israel Cassales
      AYUDA PARA EXTRAER INFORMACIÓN ESPECIFICA DE UNA COLUMNA

      Por Israel Cassales · publicado

      Es una idea espero sea de ayuda productos.xlsb
    • Israel Cassales
      AYUDA PARA EXTRAER INFORMACIÓN ESPECIFICA DE UNA COLUMNA

      Por Israel Cassales · publicado

      Hola a ambos, Comparto lo que dice el maestro Victor, no está clara la consulta en cuanto a las definiciones, si tuviera que deducir las piezas son el resultado de la multiplicación posterior a los gramos, como los ejemplos son botanas es posible que sean cajas por piezas. Si es el caso, una opción es convertir ese texto a una operación matemática después de extraerlo. Para esto se puede definir una función de EVALUAR que no siempre esta disponible pero se puede mandar llamar en la definición de los nombres. Por otro lado hay múltiples "p" que estorban un poco, (Principe ChocoBlanco EmpBco 12p 126g FLOW MLA) así que yo recomendaría definir nombres y segmentar las funciones, no es complicado aunque tal vez requiera un poco de experiencia del usuario si quiere editar en lo futuro. Tal vez con eso sería suficiente dando un resultado similar a lo siguiente:

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.