¿Cómo hacer referencia automáticamente a datos en celdas específicas dentro de un intervalo de tiempo específico (como 1 minuto) en Excel2012 para gráficos u otros fines?
Sub prueba()
Dim no, va, va1, va2, va3, nuevaHora, nuevoMinuto, tiempo de espera
va = 1
va2 = 1
va3 = InputBox("Aquí, ingrese el último número absoluto de línea que se completará (por ejemplo, escriba 200, significa que se completará hasta la línea 200", "Aquí, ingrese el último número absoluto de línea que se completará) in"). Ingrese 200 para completar hasta la línea 200)", "Ingrese el número de línea de la última línea") * 1
Hacer hasta va gt; Si Len(Cells(va, va2)) gt; 0 Entonces
va = va 1
va1 = va - 1
Else.Cells(va, va2 ) = Celdas(va1, va2)
nuevaHora = Hora(Ahora())
nuevoMinuto = Minuto(Ahora()) 1
nuevoSegundo = Segundo ( Ahora())
Tiempo de espera = TimeSerial(nuevahora, nuevo minuto, nuevo segundo)
Aplicación.Espera tiempo de espera