Ayuda con macro que busca
Buenas tardes
Tengo la siguiente macro en mi archivo la cual busca el dato de una celda en otra hoja, la cuestión es que la celda donde se encuentra tiene varios datos no solamente ese, mi macro me funcionaba bien pero la verdad no se que le moví que ahora solo me dice que los registros son inexistentes
Sub BUSCA()
Dim d As String
Sheets("BUSCAR REGISTRO").Select
d = Range("E3").Value
Sheets("BASE DE DATOS PEDIMENTOS").Select
Range("a2").Select
Set reg = Cells.Find(What:=d, After:=ActiveCell)
If Not reg Is Nothing Then
Cells.Find(What:=d, After:=ActiveCell).Activate
fila = ActiveCell.Row
Range("a" & fila).Select
x = Range("a" & fila).Value
Sheets("BUSCAR REGISTRO").Select
Range("G3").Value = x
Else
Sheets("BUSCAR REGISTRO").Select
MsgBox ("Registro no existente")
End If
End Sub
De antemano muchas gracias por la ayuda que me puedan dar
1 respuesta
Elsa, muchas gracias
Efectivamente se estaba colocando un numero que no existe, solo una cuestión mas que olvide agregar.
¿Será posible a esta misma macro restringirle el área de que solamente busque en las columnas E a la G?
De antemano agradezco tu tiempo y aporte.
Bonito dia
Si, siempre es mejor acotar la búsqueda:
Range("E1").Select
Set reg = range("E:G").Find(What:=d, After:=ActiveCell)
Sdos
Elsa
