Saltar al contenido

Macro para buscar Datos de una Hoja Excel cuando cumpla con algunas condiciones

publicado

Hola, necesito ayuda con una Macro, en el cual de una primera hoja “Formato” me pase los datos a una segunda hoja y luego esos mismos datos pueda buscarlos y extraerlos a la primera hoja dándole 1 o 2 condiciones, tengo una macro, pero al parecer no me esta funcionando

Gracias

Formato REGISTRO SEGUIMIENTO NIÑO.rar

Featured Replies

publicado

Buenas tardes Edwin,

Para darle juego a la "Flecha" "Mostrar Registro", te propongo sustituir la rutina "Sub buscar01()" del Módulo2 por lo siguiente:


Sub buscar01()
Application.ScreenUpdating = False
cp = ActiveWorkbook.Sheets("Formato").Range("C13")
m = ActiveWorkbook.Sheets("Formato").Range("C15")
a = ActiveWorkbook.Sheets("Formato").Range("B17")
If cp <> "" Then
Set dni = ActiveWorkbook.Sheets("Hoja2").Columns("H").Find(What:=cp, _
LookIn:=xlValues, Lookat:=xlWhole)
If dni Is Nothing Then
MsgBox "Dni no encontrado!"
Else
u = dni.Row
buscar01_1
Exit Sub
End If
Set dni = Nothing
ElseIf m <> "" Then
Set CodAfi = ActiveWorkbook.Sheets("Hoja2").Columns("I").Find(What:=m, _
LookIn:=xlValues, Lookat:=xlPart)
If Not CodAfi Is Nothing Then
u = CodAfi.Row
buscar01_1
Exit Sub
Else
MsgBox "Código de Afiliación no encontrado!"
End If
Set CodAfi = Nothing
ElseIf a <> "" Then
Set Nombre = ActiveWorkbook.Sheets("Hoja2").Columns("J").Find(What:=a, _
LookIn:=xlValues, Lookat:=xlPart)
If Nombre Is Nothing Then
MsgBox "Nombre no encontrado!"
Else
u = Nombre.Row
buscar01_1
Exit Sub
End If
Set Nombre = Nothing

Else
MsgBox "Esta faltando ingresar un parametro"
End If
End Sub

[/CODE]

Saludos, Juan

publicado
  • Autor

Gracias por la Atención a mi consulta, bueno e sustituido el código que me enviaste, pero ahora me dice error 91en tiempo de ejecución - Variable de Objeto o bloque with no establecido.

Gracias Juan

publicado

Disculpa, que no cargué 2 variables.

Después de Application.ScreenUpdating = False mete lo siguiente:




Set H2 = ActiveWorkbook.Sheets("Hoja2")
Set F = ActiveWorkbook.Sheets("Formato")

[/CODE]

Saludos,

Juan.

publicado
  • Autor

Funciona perfectamente, y hasta ahí doy la consulta por solucionada. Pero tengo dos dudas, si me podrías ayudar:

1.- Como haria para que discrimine entre aquellos que tengan nombres parecidos ya que hasta ahora muestra la primera coincidencia.

2.- Cuando Busca los datos, hay la posibilidad de modificarlos pero como la macro de ingreso esta programada para insertar una nueva celda, pues ingresa los datos como un nuevo registro y no lo modifica como debería ser.

Gracias por la Ayuda

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.