Copiar uma célula com macro

[leonardojoserufino]

Tenho uma planilha aonde via macro faço ele filtrar uma base de dados e copiar e colar em outra planilha. Porém uma dessas células é um hiperlink que leva para outra planilha e ele está colando somente o texto sem o hiperlink. Preciso colar como hiperlink, alguém que possa ajudar?

[Reinaldo]

Normalmente o copy/paste (ctrl+c/ctrl+v) "leva" inclusive o hiperlink.
Poste um modelo de sua planilha para que possamos tentar acompanhar a execução da rotina e (talvez) propor uma solução

[leonardojoserufino]

Bom dia,

Salvei a planilha no drive.

https://docs.google.com/spreadsheets/d/ ... ue&sd=true

[Paulo7]

Obrigado! tive o mesmo problema! com a vossa ajuda, resolvi-o. Quero ser-lhe útil também, artigo científico pronto para qualquer tema, pode poupar-lhe tempo. Também pode encontrar muita informação útil!

[Reinaldo]

Talvez assim

Código: Selecionar todos

Sub Pesquisa()
'
' Pesquisa Macro
'
Application.ScreenUpdating = False
Dim x As Integer, y As Integer
y = 23
For x = 8 To 40
    If Sheets("Índice").Cells(x, 15).Value = Sheets("Pesquisa").Range("J7").Value Then
        Sheets("Índice").Range("N" & x & ":" & "Q" & x).Copy
        Sheets("Pesquisa").Range("H" & y).Select
        ActiveSheet.Paste
    y = y + 1
    End If
Next
    Range("I23").Select
End Sub

[leonardojoserufino]

Bom dia,

Muito Obrigado, ajudou muito.

Abraços, Fique com Deus!