Hola Cacho, me podras ayudar con esta macro, te paso el codigo:
Sub Copiar_Numeros()
Range("V2", Cells(999001, Columns.Count)).ClearContents
For i = 2 To 999001
If Cells(i, "U") > 2 And Cells(i, "U") < 9 Then
k = Columns("V").Column
For j = 1 To Columns("T").Column
If Cells(i, j) <> "" Then
Cells(i, k) = Cells(i, j)
k = k + 1
End If
Next
End If
Next
MsgBox "Fin"
End Sub
Necesito acelerar el proceso de copia al maximo ya que se trata de 999.000 datos que no es poca cosa.
Lo que la macro hace es: de la fila A2:T2 que contiene celas vacias y celdas con numeros, primero chequea la U2 tenga un numero entre el 3 y el 8, si se cumple esa condicion copia de izquierda a derecha consecutivamente los numeros en las celdas V2:AC2 y asi hasta la ultima fila
Gracias
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Para: Cacho R
Hola Cacho, me podras ayudar con esta macro, te paso el codigo:
Sub Copiar_Numeros()
Range("V2", Cells(999001, Columns.Count)).ClearContents
For i = 2 To 999001
If Cells(i, "U") > 2 And Cells(i, "U") < 9 Then
k = Columns("V").Column
For j = 1 To Columns("T").Column
If Cells(i, j) <> "" Then
Cells(i, k) = Cells(i, j)
k = k + 1
End If
Next
End If
Next
MsgBox "Fin"
End Sub
Necesito acelerar el proceso de copia al maximo ya que se trata de 999.000 datos que no es poca cosa.
Lo que la macro hace es: de la fila A2:T2 que contiene celas vacias y celdas con numeros, primero chequea la U2 tenga un numero entre el 3 y el 8, si se cumple esa condicion copia de izquierda a derecha consecutivamente los numeros en las celdas V2:AC2 y asi hasta la ultima fila
Gracias