Anónimo
Indicar posición mediante fórmula o no se como
Hola tengo en la hoja1 varias columnas con números correlativos y en otras números con porcentaje. Ejemplo:
A B D E G H J K
1 70% 7 100% 13 25% 19 50%
2 100% 8 70% 14 50% 20 25%
3 50% 9 50% 15 70% 21 50%
4 70% 10 25% 16 100% 22 25%
5 25% 11 70% 17 70% 23 50%
6 100% 12 100% 18 50% 24 25%
Entonces necesito que en la hoja2 en la columna A25 (ejemplo) me diga la posición de todos los porcentajes que son 70 y 100 osea que quede algo asi; 1;2;4;6 separados por comas o punto y coma. En la A26 me diga; 7;8;11;12. En la A27 me diga 14;15;16;17. Y en la A28 la posición de los porcentajes de la columna QUE, como no hay ninguno que sea 70 y 100 me la deje limpia.
Por favor es urgente he preguntado algunos expertos por msje privado pero no me han respondido. Si no se entiende por favor me dan algún correo y envío el ejemplo.
De antemano muchas gracias.
A B D E G H J K
1 70% 7 100% 13 25% 19 50%
2 100% 8 70% 14 50% 20 25%
3 50% 9 50% 15 70% 21 50%
4 70% 10 25% 16 100% 22 25%
5 25% 11 70% 17 70% 23 50%
6 100% 12 100% 18 50% 24 25%
Entonces necesito que en la hoja2 en la columna A25 (ejemplo) me diga la posición de todos los porcentajes que son 70 y 100 osea que quede algo asi; 1;2;4;6 separados por comas o punto y coma. En la A26 me diga; 7;8;11;12. En la A27 me diga 14;15;16;17. Y en la A28 la posición de los porcentajes de la columna QUE, como no hay ninguno que sea 70 y 100 me la deje limpia.
Por favor es urgente he preguntado algunos expertos por msje privado pero no me han respondido. Si no se entiende por favor me dan algún correo y envío el ejemplo.
De antemano muchas gracias.
2 Respuestas
Respuesta de el_canas
1
No explicas si quieres que que te lo haga automáticamente desde una celda de excel o mediante una macro.
Yo te lo he gestionado desde una macro. Lo único que tienes que hacer es poner un command. Button y en su subrutina (commandbutton1_click copiar este código:
Private Sub CommandButton1_Click()
'ESTA HECHO PARA QUE ESCRIBA EN LAS CASILLAS A12, A14, A16 Y A18 (POR COMODIDAD)
'PUEDES VARIARLO
'Pongo en blanco las casillas donde se mostrará el resultado
For j = 2 To 8 Step 2
Cells(10 + j, 1).Value = ""
Next j
'Aquí está la solución
For j = 2 To 8 Step 2
For i = 1 To 6
pp = Cells(i, j).Value
If Cells(i, j).Value = 70 / 100 Or Cells(i, j).Value = 100 / 100 Then
If Cells(10 + j, 1).Value = "" Then
Cells(10 + j, 1).Value = Cells(i, j - 1).Value
Else
Cells(10 + j, 1).Value = Cells(10 + j, 1).Value & "," & Cells(i, j - 1).Value
End If
End If
Next i
Next j
End Sub
Nota: a las columnas impares les he dado formato de número sin decimales y a las pares formato de porcentaje sin decimales. Por eso la comparación la hago dividiendo por 100
Yo te lo he gestionado desde una macro. Lo único que tienes que hacer es poner un command. Button y en su subrutina (commandbutton1_click copiar este código:
Private Sub CommandButton1_Click()
'ESTA HECHO PARA QUE ESCRIBA EN LAS CASILLAS A12, A14, A16 Y A18 (POR COMODIDAD)
'PUEDES VARIARLO
'Pongo en blanco las casillas donde se mostrará el resultado
For j = 2 To 8 Step 2
Cells(10 + j, 1).Value = ""
Next j
'Aquí está la solución
For j = 2 To 8 Step 2
For i = 1 To 6
pp = Cells(i, j).Value
If Cells(i, j).Value = 70 / 100 Or Cells(i, j).Value = 100 / 100 Then
If Cells(10 + j, 1).Value = "" Then
Cells(10 + j, 1).Value = Cells(i, j - 1).Value
Else
Cells(10 + j, 1).Value = Cells(10 + j, 1).Value & "," & Cells(i, j - 1).Value
End If
End If
Next i
Next j
End Sub
Nota: a las columnas impares les he dado formato de número sin decimales y a las pares formato de porcentaje sin decimales. Por eso la comparación la hago dividiendo por 100
