Anónimo
Ayuda para mostrar en una celda de excel la posición de valores que cumplen una condición
Hola amigos expertos, primero que todo agradecer y muy buena la página.
Mi pregunta es que; tengo dos columnas con datos numéricos. Por ejemplo en la columna A con números de 12 al 25 y en la columna b con datos del 1 al 5, en donde por ejemplo se repite el 1 en la posición 12, 16, 18,20,24, necesito que en una celda de más abajo por ejemplo en la celda A40 me muestre la posición en que están los numero 1, como mencione más arriba por ejemplo en 12,16,18,20,24 y me los muestre tal cual separados por comas para poder distinguir la posición. Se entiende.. Ojalá me puedan ayudar es urgente si no por favor díganme un correo para enviar la tabla con m consulta.
De antemano muchas gracias amigos expertos.
Mi pregunta es que; tengo dos columnas con datos numéricos. Por ejemplo en la columna A con números de 12 al 25 y en la columna b con datos del 1 al 5, en donde por ejemplo se repite el 1 en la posición 12, 16, 18,20,24, necesito que en una celda de más abajo por ejemplo en la celda A40 me muestre la posición en que están los numero 1, como mencione más arriba por ejemplo en 12,16,18,20,24 y me los muestre tal cual separados por comas para poder distinguir la posición. Se entiende.. Ojalá me puedan ayudar es urgente si no por favor díganme un correo para enviar la tabla con m consulta.
De antemano muchas gracias amigos expertos.
1 Respuesta
Respuesta de Victor Perdomo
1
Abre el editor de vb, alt+f11, dale insertar modulo y pega este código. Tendrás una función que podrás usar en tu hoja. Ejemplo: =listarx(B1:b100;-1;1), donde b1:b100 es por ejemplo el rango donde tienes los datos del 1 al 5, el -1 indica el numero de columnas donde tienes las posiciones, en este caso A que esta -1 columnas a B, si por ejemplo estuviera en DE seria 2 y por ultimo pon el dato a buscar ejemplo 1. La función te devolverá una cadena de texto con las posiciones separadas por comas.
Function listarx(celdas1 As Range, indicador As Integer, ByVal name As Variant) As String
Dim cont As String
Dim rnCell As Range
Application.Volatile
For Each rnCell In celdas1
If rnCell.Value = name Then
c = rnCell.Column + indicador
f = rnCell.Row
acum = acum & Cells(f, c).Value & ","
End If
Next rnCell
acum = Left(acum, Len(acum) - 1)
listarx = acum
End Function
Function listarx(celdas1 As Range, indicador As Integer, ByVal name As Variant) As String
Dim cont As String
Dim rnCell As Range
Application.Volatile
For Each rnCell In celdas1
If rnCell.Value = name Then
c = rnCell.Column + indicador
f = rnCell.Row
acum = acum & Cells(f, c).Value & ","
End If
Next rnCell
acum = Left(acum, Len(acum) - 1)
listarx = acum
End Function
Muchas gracias por tu respuesta a la brevedad amigo experto me fue de gran utilidad la respuesta y el código brindado era lo que necesitaba precisamente.
Se agradece la ayuda..
Se agradece la ayuda..