Busqueda de texto y resultado

rafaelmartinez1968 · el 29 de noviembre

Buenas tardes y gracias de antemano

Necesito crear el código para buscar un texto en una serie de filas y si encuentra alguno de ellos, me de un resultado.

Texto a buscar = autopistas autorizadas - columna E

Donde buscar = autopistas realizadas - columna A

Resultado = está el trayecto autorizado??- columna B

como soy novato en VBA , agradecería un código sencillito de entender

gracias de nuevo por vuestro tiempo.

no me deja subir archivo ejemplo en Excel por lo que no puedo adjuntar ejemplo

Antoni · el 29 de noviembre

Genera un pequeño archivo .xls con un ejemplo, ya verás que si te permitirá subirlo.

Solo los archivos .xls y .xlsx se pueden subir sin comprimir.

rafaelmartinez1968 · el 30 de noviembre

Buenos días, Macro Antonio

Te remito el archivo rar.Gracias

PRUEBA1.rar

Antoni · el 30 de noviembre

__________________________________________________________

Aquí tienes la macro.

Sub BuscarAutopistaAutorizada()


'Basado en el ejemplo de la Ayuda de VBA Range.Find


Dim Celda As Range, PrimeraCelda As Variant

Application.ScreenUpdating = False

Range("B4:B" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents

For x = 4 To Range("E" & Rows.Count).End(xlUp).Row

  With Range("A4:A" & Range("A" & Rows.Count).End(xlUp).Row)

      Set Celda = .Find(Range("E" & x).Value, LookIn:=xlValues)

      If Not Celda Is Nothing Then

          PrimeraCelda = Celda.Address

          Do

              Celda.Offset(0, 1) = "AUTORIZADO"

              Set Celda = .FindNext(Celda)

          Loop While Not Celda Is Nothing And _

                          Celda.Address <> PrimeraCelda

      End If

  End With

Next


End Sub

[/CODE]

_____________________________________________________________

Armando Montes · el 2 de diciembre

Hola Rafael, una opcion:

Sub Autorizado()

LR = Cells(Rows.Count, 1).End(xlUp).Row

Range("B4:B" & LR).Formula = "=IF(SUMPRODUCT(--ISNUMBER(SEARCH(E$4:E$41, A4))),""AUTORIZADO"","""")"

End Sub[/CODE]

Armando Montes · el 2 de diciembre

Olvide mencionar que puedes aplicar directamente la formula sin necesidad de codigo.

Selecciona el rango introduces la formula y oprimes Control+Enter para llenar el rango o, pones la formula en la primera celda y doble clic abajo a la derecha de la celda.