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

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.

Buenos días, Macro Antonio

Te remito el archivo rar.Gracias

PRUEBA1.rar

__________________________________________________________

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]

_____________________________________________________________

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]

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.

Buenos días, Macro Antonio y Armando

Estoy intentando traspasar ambos códigos enviados al fichero en real pero siempre

me da error. Siento mi torpeza pero todavía estoy harto verde en VBA.

Me podéis mirar el código en el fichero real, por favor

Gracias de antemano y reitero mis disculpas por mi torpeza

FICHERO AUTOPISTAS EN REAL.rar

Hola, intenta con la formula, solo traducela y adecua las referencias, te resultara mas facil.

Ejemplo original con formula incluida:

PRUEBA1.rar

Buenas tardes, Armando

Pues me ha ido perfecto...muchas gracias!!

Me podrías aclarar , por favor, el significado de ""--esnumero"" en la fórmula del sumaproducto.

Gracias de nuevo y un saludo

Es para que el resultado sea cero o uno en vez de falso o verdadero, aqui hay una amplia explicacion sobre la funcion sumaproducto:

SUMAPRODUCTO.doc - Google Drive