Macro para buscar-copar y pegar hipervinculos

1 post / 0 nuevos
OSMAN YESID
Imagen de OSMAN YESID
Offline
última acción: Hace 8 meses 2 semanas
alta: 12/03/2019 - 16:07
Puntos: 50
Macro para buscar-copar y pegar hipervinculos

Hola

Muchas gracias por la ayuda que me han prestao en casos anteriores.

La idea es construir una macro que me permita buscar un dato que se escriba en una celda o Mensaje (InputBox), lo copie y lo pegue en una celda especifica. Cabe aclarar que el dato a copiar contiene hipervinculo y es necesario que se mantenga.

Actualmente llevo la opción buscar 

 

Sub Buscar()

Buscardato = InputBox("Escribir Dato")

If Trim(Buscardato) <> "" Then

        With Sheets("LIST_MAESTRO").Range("I:I")

            Set rng = .Find(What:=Buscardato, _

                            After:=.Cells(.Cells.Count), _

                            LookIn:=xlValues, _

                            LookAt:=xlWhole, _

                            SearchOrder:=xlByRows, _

                            SearchDirection:=xlNext, _

                            MatchCase:=False)

            If Not rng Is Nothing Then

                Application.Goto rng, True  

            Else

                MsgBox "Nothing found"

            End If

        End With

    End If

End Sub

 

Agradezco cualquier ayuda que me puedan brindar, 

Etiquetas: