Podrían ayudarme con una macro
tengo una macro que me copia la celda 132 cada media hora hacia 133 luego 134 hasta llegar a 182 lo que necesito es que a las 7:00 se regrese a copiar nuevamente a 133 y asi cada dia!
Alguien sabe de alguna macro
Saludos
1 respuesta
Sub copiarCadaMediaHora()
Dim i As Integer
Dim sh As Worksheet
Dim celda As Range
Set sh = ActiveSheet
' Copiamos la linea 132 en la 133 hasta la 182
For i = 133 To 182
Set celda = ActiveCell
sh.Rows(132).Copy
sh.Activate
sh.Rows(i).Select
ActiveSheet.Paste
Application.CutCopyMode = False
celda.Activate
celda.Select
esperaMediaHora
Next i
End Sub
Private Sub esperaMediaHora()
Dim timer1 As Double
Dim timer2 As Double
Dim mediaHora As Double
mediaHora = 30 * 60 ' 30 minutos por 60 segundos
timer1 = Timer
Do
DoEvents
timer2 = Timer
If timer2 < timer1 Then
' Hemos cambiado de día
timer2 = timer2 + 24# * 60# * 60#
End If
Loop Until timer2 > (timer1 + mediaHora)
End Sub
Esta es la macro gracias por la pronta respuesta
SAludos
Después de esta línea
EsperaMediaHora
Pon esta línea
If Hour(Time) = 7 Then i = 132
Saludos. Dante Amor
Si es lo que necesitas.
