Invertir orden de datos en excel
hola
miren tengo en una hoja de calculo, una tabla de datos que va desde B15 a E10000
tengo una macro que me pega los datos que necesito, estos siempre varían en la cantidad de filas pero todas las columnas siempre están llenas, es decía de 15 a 10000 no siempre se ocupa todo pero de B a E si se ocupan todas, lo que necesito es una vez que pegue los datos, este archivo se de vuelta es decir, 15 en vez de ser el primero y el ultimo sea el nuevo primero , invertir el orden de la planilla completa sin modificar los datos hacia los lados , se puede hacer please ayuda
gracias
1 Respuesta
Yo incluiría un procedimiento como el siguiente para dar la vuelta a las líneas (al final te pongo una forma de llamarlo).
Option Explicit
Sub invertirDatosDeUnRango(ByRef rangoDatos As Range)
Dim numLin As Long
Dim numCol As Integer
Dim i As Long
Dim j As Integer
' Vemos cuántos datos nos han pasado
numLin = rangoDatos.Rows.Count
numCol = rangoDatos.Columns.Count
' Definimos 2 matrices: una la original y otra la invertida
ReDim matOri(1 To numLin, 1 To numCol)
ReDim matInv(1 To numLin, 1 To numCol)
' Pasamos los datos de nuestro rango a la matriz original
matOri = rangoDatos
' Damos la vuelta a los datos sobre la invertida
For i = 1 To numLin
For j = 1 To numCol
matInv(numLin - i + 1, j) = matOri(i, j)
Next j
Next i
' Asignamos la matriz invertida al rango
rangoDatos = matInv
End Sub
Sub prueba()
invertirDatosDeUnRango Sheets("hoja1").Range("A1:C4")
End Sub
