Macro recorre filas y copia números
Tengo la base de datos A1: T30 con celdas con números y celdas en blanco, necesito una macro que haga lo siguiente:
Recorrer por fila, empezando por la A1:T1, de izquierda a derecha y todos los números que encuentre los copie en ese orden en las celdas V1:AO1 y así sucesivamente hasta la fila A30:T30.
1 respuesta
Te anexo 2 macros, hacen lo mismo.
Sub Copiar_Numeros()
'Por.Dante Amor
Range("V1", Cells(30, Columns.Count)).ClearContents
For i = 1 To 30
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
Next
MsgBox "Fin"
End Sub'
Sub Copiar_Numeros2()
'Por.Dante Amor
On Error Resume Next
Range("V1", Cells(30, Columns.Count)).ClearContents
For i = 1 To 30
Range("A" & i & ":T" & i).SpecialCells(xlCellTypeConstants, 23).Copy Range("V" & i)
Next
MsgBox "Fin"
End SubPrueba con las 2.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Un espectáculo, como siempre Dante.
Muchas Gracias
Dante, necesito abusar de tu amabilidad, a la macro Copiar Números() necesito agregarle una validación por el comando IF----->Then
Si la Celda U (en la primera fila sería U1) el numero que contiene (es una celda con un dato numérico) es mayor que 2 y menor que 9, es decir tiene que estar entre el 3 y el 8 entonces ejecute la macro y si no cumple esta condición que pase a la próxima fila.
Ej:
En la macro actual sería, rango A1:T1 si la celda U1 es un 7 prosigue y si es un 1 pasa a la fila A2: T2 y así hasta la A30: T30
Gracias.
Con mucho gusto te ayudo con todas tus peticiones.
Crea una nueva pregunta en Todoexpertos.com dentro del tema de microsoft excel. En el desarrollo de la pregunta escribe: "para Dante Amor". Ahí me describes con detalle y ejemplos lo que necesitas.
Sal u dos
