Macro con 2 criterios de búsqueda

[Angelica_]

Buenas tardes,

Necesito de su ayuda para resolver un inconveniente que tengo al realizar una macro con dos criterios de búsqueda, hasta el momento tengo lo que les presento a continuación, esta funciona a la perfección pues solo incluyo un criterio de búsqueda (Persona responsable) sin embargo necesito que localice la Persona responsable y la Cuidad donde nació esta persona (Ciudad_Nacimiento)

-----------------------------------------MACRO

Sub copiar_datos

Dim archivo_origen, Persona, Ciudad_nacimiento As String, RsBusq As Range

With Workbooks(archivo_origen)

.Activate

With .Sheets(1)

.Activate

'Criterio de búsqueda para Persona responsable

Set RsBusq = .Columns("B:G").Find(what:="Persona responsable:", lookat:=xlWhole, LookIn:=xlValues)

If Not RsBusq Is Nothing Then

Persona = RsBusq.Offset(0, 1).Value

Else

Lista_Errores = Lista_Errores & vbNewLine & "-No se pudo encontrar el nombre de la " _

& "Persona responsable en el archivo " & archivo_origen_ruta

Persona = ""

End If

End With

End With

If Persona <> "" Or Ciudad_nacimiento <> "" Then

With Workbooks(archivo_destino)

.Activate

With Sheets(1)

fila = .Cells(Rows.Count, "A").End(xlUp).Row + 1

If .Cells(Rows.Count, "C").End(xlUp).Row + 1 > fila Then fila = .Cells(Rows.Count, "C").End(xlUp).Row + 1

.Cells(fila, "A").Value = Persona

End With

End With

End If

Set RsBusq = Nothing

End Sub

Agradezco su ayuda con este tema.

[tese1969]

Adjunta el archivo ejemplo......normas del foro......para que alguien te pueda echar una mano.

Un saludo,

Tese

[tan178]

Sub copiar_datos

Dim archivo_origen, Persona, Ciudad_nacimiento As String, RsBusq As Range



With Workbooks(archivo_origen)

.Activate

With .Sheets(1)

.Activate


'Criterio de búsqueda para Persona responsable

Set RsBusq = .Columns("B:G").Find(what:="Persona responsable:", lookat:=xlWhole, LookIn:=xlValues)

If Not RsBusq Is Nothing Then

Persona = RsBusq.Offset(0, 1).Value

Else

Lista_Errores = Lista_Errores & vbNewLine & "-No se pudo encontrar el nombre de la " _

& "Persona responsable en el archivo " & archivo_origen_ruta

Persona = ""

End If

End With



End With


If Persona <> "" Or Ciudad_nacimiento <> "" Then


With Workbooks(archivo_destino)

.Activate

With Sheets(1)

fila = .Cells(Rows.Count, "A").End(xlUp).Row + 1

If .Cells(Rows.Count, "C").End(xlUp).Row + 1 > fila Then fila = .Cells(Rows.Count, "C").End(xlUp).Row + 1

.Cells(fila, "A").Value = Persona


End With

End With

End If

Set RsBusq = Nothing

End Sub[/CODE]

Con lo que tese1969 te recomendo,tambien es preferible que subas los codigos en etiquetas.

[tan178]

Microsoft OneDrive - Access files anywhere. Create docs with free Office Online.

[Angelica_]

Hola,

Muchas gracias por su ayuda, en el archivo adjunto les envío un ejemplo.

La idea es poder llenar la información de la ciudad de nacimiento de la persona responsable y del líder del proyecto, no puedo hacerlo especificando la celda donde esta información se encuentra pues esta varía de un documento a otro. La solución que se me ocurre es usar una búsqueda con dos criterios, es decir, dado que encontró a la Persona responsable, busque la celda donde está el lugar de nacimiento y lo mismo para el líder del proyecto.

Lo que he hecho hasta el momento lo he tomado de otros foros que me han sido de gran ayuda.

De nuevo les agradezco su valiosa colaboración.

Cordial saludo.

Ejemplo Macro 2 criterios.rar