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.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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.