Foro Excel

Es en evento que llama luego a una funciión:

Private Sub worksheet_change(ByVal Target As Range)
Dim BuscarRango As Range
If Target.Address = "$C$2" Then
Range("Base_Resultado").Select
Selection.ClearContents
Set BuscarRango = Worksheets("BD").Range("Base_Datos")
If Not Find_Range(Range("Fecha_Busqueda"), BuscarRango, xlFormulas, xlWhole) Is Nothing Then
Find_Range(Range("Fecha_Busqueda"), BuscarRango, xlFormulas, xlWhole).EntireRow.Copy Range("Resumen!A6")
Else
MsgBox "No existen Registros con esa Fecha"
End If
Range("A6").Select
Application.ScreenUpdating = True
End If
End Sub

El texto en rojo es la parte que no entiendo, además claro de toda la FDU

Function Find_Range(Find_Item As Variant, _
Search_Range As Range, _
Optional LookIn As Variant, _
Optional LookAt As Variant, _
Optional MatchCase As Boolean) As Range

Dim c As Range
If IsMissing(LookIn) Then LookIn = xlValues 'xlFormulas
If IsMissing(LookAt) Then LookAt = xlPart 'xlWhole
If IsMissing(MatchCase) Then MatchCase = False

With Search_Range
Set c = .Find( _
What:=Find_Item, _
LookIn:=LookIn, _
LookAt:=LookAt, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=MatchCase, _
SearchFormat:=False)
If Not c Is Nothing Then
Set Find_Range = c
firstAddress = c.Address
Do
Set Find_Range = Union(Find_Range, c)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Function


Adjunto archivo original, y perdón si no menciono al autor, pero no recuerdo el nombre


gracias

Hola DOOCH,

Creo recordar el codigo, lo he probado y no obtengo ningun error.

Es de ayuda si nos dices cual es el error que te indica.

Saludos

SALUDOS sailepaty

Pues no se trata de ningún error, al contrario creo es perfecto por eso quiero ENTENDERLO, explicaba que me pierdo desde el texto en rojo y la FDU jeje osea casi todo.

If Not

Find_Range(Range("Fecha_Busqueda"), BuscarRango, xlFormulas, xlWhole)

Is Nothing Then

Find_Range(Range("Fecha_Busqueda"), BuscarRango, xlFormulas, xlWhole).EntireRow.Copy Range("Resumen!A6")
Traduciendo:
SI NO RESULTA NULA LA BUSQUEDA QUE HACE FIND_RANGE ENTONCES LO QUE FIND_RANGE HAYA ENCONTRADO HAGALO EXTENSIVO A LA FILA ENTERA DE LOS DATOS EN DONDE ENCOnTRO, COPIELOS EN EL rango de salida RESUMEN.

Gali

Gracias galileogali

Eso despeja mi duda del texto en rojo, pero me queda la duda de la función y porque fue necesario definirla?