Macro valor máximo por columnsa y crear pares

Tengo una tabla, con varias columnas, debo crear pares formados por siempre la celda de la columna A con el valor máximo de cada columna siguiente, por ejemplo AB, AC, AD, AF
A B C D F
W 2 4 2 1
X -1 3 5 2
Y 1 0 2 3
Z 4 2 1 -1
Como resultado la lista los pares generados serian
Z 4
W 4
POR 5
Y3

1 respuesta

Respuesta
1
Listo esta macro hace lo que necesitas, solo la debes adaptar a tu archivo, yo la probé y funciona
Sub Macro1()
Dim Comprobar, Contador
Comprobar = True: Contador = 0 ' Inicializa variables.
Columns("A:E").Select
ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=Range("A1:A65000"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Hoja1").Sort
.SetRange Range("A1:E65000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Do ' Bucle externo.
Do While Contador < 65000 ' Bucle interno.
a = a + 1
Contador = Contador + 1 ' Incrementa el contador.
If Range("A" & a).Value = "" Then ' Si la condición es verdadera.
Comprobar = False ' Establece el valor a False.
Else
Range("F" & a).Value = "=A" & a & "&" & "MAX(B" & a & ":D" & a & ")"
Exit Do ' Sale del bucle interno.
End If
Loop
Loop Until Comprobar = False ' Sale inmediatamente
Range("F:F").Select
Selection.Copy
Application.CutCopyMode = False
Range("F1").Select
End Sub
Hola, si funciona, ¿pero cómo hacer para que trabaje con N columnas?, ya que el archivo que genero trae un numero variable de columnas,
Muchas gracias y disculpa tanta molestia
Saludos
Lo podemos hacer con un input, es decir, al correr la macro te va a preguntar cual es la ultima columna a revisar
Sub Macro1()
ki = inputbox("Ingrese el nombre de la ultima columna del rango")
Dim Comprobar, Contador
Comprobar = True: Contador = 0 ' Inicializa variables.
Columns("A:"& ki).Select
ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=Range("A1:A65000"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Hoja1").Sort
.SetRange Range("A1:" & ki & "65000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Do ' Bucle externo.
Do While Contador < 65000 ' Bucle interno.
a = a + 1
Contador = Contador + 1 ' Incrementa el contador.
If Range("A" & a).Value = "" Then ' Si la condición es verdadera.
Comprobar = False ' Establece el valor a False.
Else
cell ( a, ki +1).value= "=A" & a & "&" & "MAX(B" & a & ":D" & a & ")"
Exit Do ' Sale del bucle interno.
End If
Loop
Loop Until Comprobar = False ' Sale inmediatamente
Range(ki).Select
Selection.Copy
Application.CutCopyMode = False
Range(ki & "1").Select
End Sub
Prueba y me avisas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ordenar tabla con macro

Necesito una macro para ordenar una tabla. Buscando he encontrado una macro que hace lo que necesito pero cuando intento adaptarla a mi hoja no me funciona. Lo que pretendo es ordenar una tabla. Cada columna es un campo diferente. En una celda de...
1 respuesta

Rango variable para ordenar

Me he tropezado con un nuevo problema. Como sabes utilizo excel 2007 y con esta versión se puede autofiltrar por colores, cosa que es fundamental en el libro que estoy creando. El problema es que al compartir el libro me he dado cuenta que ha...
1 respuesta

Enviar datos a otra columna sin duplicados,

Resulta que en una columna tengo estos datos así (solo pondré 10 datos pero en realidad son 300) 1 2 4 6 1 7 8 9 4 1 Ahora quiero enviar estos datos a otra columna pero no en la misma pestaña de excel, si no que en otra pestaña, pero sin que se...
2 respuestas

¿Excel Vba como Buscar datos Repetidos en una Columna?

Como le podría hacer para buscar datos repetidos en una columna y que me muestre en una hoja nueva una lista donde el primero sea el mas repetido, el segundo menos repetido y asi sucesivamente.. Si mi columna tiene 10 datos hacia abajo.. Ejemplo Esto...
1 respuesta

Ordenar por dos criterios

Necesito que me ayuden a construir una macro que dependa de dos criterios, Ordena primero de n.v,,,, luego de la A a la Z,,, sube o baja la información de toda la fila. Yo lo elabore con la grabadora pero a veces no me funciona. Les dejo el código:...
1 respuesta

Como ordenar columna de rango variable

Grabe una macro y no se como hacer el rango variable en al parte donde dice SetRange range ("A1:M17") La macro grabada es esta: Sub Ordenar_responsable2() ' ' Ordenar_reponsable2 Macro Columns("I:I").Select...
3 respuestas