VBA - Búsqueda Find con retornos múltiples Resuelto

Question

Hola,  he visto con gran interés su artículo sobre los retornos múltiples: https://www.commentcamarche.net/faq/18696-vba-recherche-find-avec-retour-multiple  Sin embargo, me gustaría devolver la información de una celda, en lugar de la dirección de la celda encontrada.  No manejo bien las tablas virtuales; ¿cómo traducir Tb(i) (es decir, una referencia en forma $Col$Lg) en cells(1,tb(i))?  En otras palabras, ¿cómo recuperar los números de fila en Tb(i)?  Gracias por su ayuda.

Patrice33740 · Accepted Answer

Hola,  Como esto, adaptando FindRech según sea necesario: Sub RechMulti() Dim R As Long, TB() Dim i As Integer, Rch As String Rch = 22 'por ejemplo With Sheets("Feuil1") .Columns(7).ClearContents ' para los resultados R = RechFind(Rch, .Range("B1:E500"), 2, TB()) If R > 0 Then .Range("G1") = R & " Ocurrencias encontradas para : " & Rch .Range("G2").Resize(R, 1) = Application.Transpose(TB) Else MsgBox "No encontrado", , "Búsqueda" End If End With End Sub Function RechFind(ByVal Cle$, ByVal Plage As Range, _ ByVal Col&, ByRef TBval()) As Long 'Devuelve todos los valores encontrados en la búsqueda 'Clave = valor buscado 'Rango = rango a recorrer. 'Col = columna que contiene los valores a devolver. 'TBval = Tabla que devuelve los valores de la columna Col. Dim Cherche, Ix As Long, Adr With Plage Set Cherche = .Find(Cle, , xlValues, xlWhole) If Not Cherche Is Nothing Then Adr = Cherche.Address Do ReDim Preserve TBval(Ix) TBval(Ix) = Plage.Parent.Cells(Cherche.Row, Col) Set Cherche = .FindNext(Cherche) Ix = Ix + 1 Loop While Not Cherche Is Nothing And Cherche.Address <> Adr End If End With 'número de ocurrencia(s) encontrada(s), Devuelve 0 si no hay ninguna ocurrencia RechFind = Ix Set Cherche = Nothing 'Libera la memoria ocupada por el objeto. End Function -- Atentamente Patrice

Patrice33740 · Answer

Hola,  Sin mirar tu archivo, la función Split permite extraer la fila o la columna de una dirección absoluta: Split("$B$12", "$")(1) da la columna (B) Split("$B$12", "$")(2) da la fila (12)  -- Cordialmente Patrice

yg_be · Answer

Hola, creo que esto te da el número de línea: Range(Tb(i)).Row

Patrice33740 · Answer

Re,  Si no, puedes modificar el módulo para que devuelva el valor en lugar de la dirección, solo necesitas reemplazar: TBadress(Ix) = Cherche.Addresspor TBadress(Ix) = Cherche.Value   -- Atentamente Patrice

Mouftie · Answer

Gracias a todos ustedes, las respuestas de Patrice (primera respuesta) y de yg_be corresponden exactamente a lo que estaba buscando La segunda respuesta de Patrice no funciona; me da la misma respuesta tantas veces como ocurrencias hay, y además la respuesta es incorrecta. De hecho, Tb(i) toma el valor buscado.

michel_m · Answer

Hola,  no entiendo bien lo que intentas hacer ya que buscas el valor y no la dirección si en la demostración mencionada buscas todos los valores 12, la respuesta será 12! a menos que 12 esté incluido en otros caracteres como por ejemplo "azerty12uiop"  lo mejor sería que adjuntaras tu libro Adjuntar el libro sin datos confidenciales en « mon-partage.fr »y hacer clic derecho-pegar el acceso directo en tu mensaje   y que expliques lo que quieres obtener    Michel

Mouftie · Answer

Hola Michel y gracias por tus tutoriales. Estoy buscando recuperar, para cada ocurrencia encontrada, los datos de la columna "X" correspondientes a la fila encontrada. Por eso, las respuestas de Patrice y de Yg_be me han satisfecho perfectamente. Aquí tienes el código completo: Sub RechMulti()Dim R As Long, TB()Dim i As Integer, Rch As StringRch = 22 'por ejemplo Sheets("Feuil1").Columns(7).ClearContents 'Columna(7) para los resultados R = RechFind(Rch, ThisWorkbook.Name, "Feuil1", "B1:E500", TB()) If R > 0 Then For i = 0 To R - 1 ' o ubound(TB) Sheets("Feuil1").Range("G1") = "Ocurrencias encontradas para : " & Rch Sheets("Feuil1").Cells(i + 2, 7) = Cells(Range(TB(i)).Row, 2) Next i Else MsgBox "No encontrado", , "Búsqueda" End IfEnd Sub Sin embargo, no sé cómo buscar un valor exacto, porque en este ejemplo, me reporta 122, 422, 220... he probado con "", pero no cambia nada.  Finalmente, para ir en el sentido de Patrice (segunda propuesta), había que reemplazar  TBadress(Ix) = Cherche.Address por  TBadress(Ix) = Cherche.Row He entendido bien vuestras propuestas, solo me queda encontrar la forma de buscar "exactamente".

michel_m · Answer

La búsqueda es una fábrica de gas horrible y complicada   ya que Mouftie quiere las filas en la columna G donde está la referencia buscada  Option ExplicitConst Ref As Integer = 12 'por ejemplo'------------Sub buscar_ref()Dim Zona As Range, Celda As RangeDim Nbre As IntegerDim T_sal, Cptr As Integer'Dim prueba  Application.ScreenUpdating = False  Columns("G").Clear  Set Zona = Range("B1:E500")   Nbre = Application.CountIf(Zona, Ref)  If Nbre = 0 Then GoTo vacio  With Zona  Set Celda = Zona.Find(what:=Ref, LookIn:=xlValues, lookat:=xlWhole)  For Cptr = 1 To Nbre  'prueba = Celda.Address  Cells(Cptr, "G") = Celda.Row  Set Celda = .FindNext(Celda)  Next  End With  'ordena en orden ascendente si la celda B1 = ref (de lo contrario, la fila 1 estará abajo  If Range("B1") = Ref Then  Range("G1:G" & Nbre + 1).Sort Key1:=Range("G1"), Order1:=xlAscending  End If  Exit Sub'gestor de erroresvacio:  MsgBox Ref & " desconocido en la zona"End Sub   y el modelo:  https://mon-partage.fr/f/QCeLgCgv/  --  Michel

VBA - Búsqueda Find con retornos múltiples

8 respuestas

Copiar/ pegar texto escaneado formato jpeg

Mensaje de error al iniciar

Pantalla negra en pc hp

El ventilador del gabinete no funciona

Identificador y contraseña

Defender ¿cómo borrar los archivos de cuarentena?

Visibilidad de iconos de la barra de tareas

Problema de texturas en enshrouded

Activación del programa esu para actualizaciones en windows 10

Quitar la mancha de marcador del monitor de pc