criar hiperlink na ultima linha

[Elizeu_Cavalheiro]

olá nobres,

 

tudo beleza...

 

utilizo o codigo abaixo para criar hiperlink, o codigo executa correto, porém, ele esta criando o hiperlink sempre na celula A8.

o que gostaria: que fosse criado o hiperlink sempre na ultima linha digitado da coluna A..

 

fico grato pela ajuda....

 

abraço.

 Dim sArquivo
    Dim sCaminho As String
    Dim sNome As String
    Dim sNome2 As String
    Dim sNomeCompleto

    
    Dim sNumero
    'o mesmo tem de ser alimentado nesta Variável
    sNumero = txtcod
    sNome = txt_descrição.Value
    sNome2 = txt_cliente.Value
    
    'Montamos o nome do arquivo
    sNomeCompleto = "AT - " & sNumero & "_" & sNome & "_" & sNome2
       
    'Caminho (Pasta) definida na rotina
    sCaminho = "P:\LABORATÓRIO\Análise técnica C.Q\AT\"
       
    'Montamos o Hyperlink
    sArquivo = sCaminho & sNomeCompleto & ".xlsm"
      
        If sArquivo <> CStr(False) Then
        
         ActiveSheet.Hyperlinks.Add Range("a8"), sArquivo, TextToDisplay:=sNomeCompleto
        Else
            'Nenhum arquivo foi selecionado
        End If

 

[Basole]

Veja se com esta alteração atende: 

 

Dim sArquivo
    Dim sCaminho As String
    Dim sNome    As String
    Dim sNome2   As String
    Dim sNomeCompleto
    Dim LR      As Long
    
    Dim sNumero
    'o mesmo tem de ser alimentado nesta Variável
    sNumero = txtcod
    sNome = txt_descrição.Value
    sNome2 = txt_cliente.Value
    
     LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    'Montamos o nome do arquivo
    sNomeCompleto = "AT - " & sNumero & "_" & sNome & "_" & sNome2
       
    'Caminho (Pasta) definida na rotina
    sCaminho = "P:\LABORATÓRIO\Análise técnica C.Q\AT\"
       
    'Montamos o Hyperlink
    sArquivo = sCaminho & sNomeCompleto & ".xlsm"
      
        If sArquivo <> CStr(False) Then
        
         ActiveSheet.Hyperlinks.Add Range("A" & LR), sArquivo, TextToDisplay:=sNomeCompleto
        Else
            'Nenhum arquivo foi selecionado
        End If

 

[Elizeu_Cavalheiro]

boa tarde Basole,

 

primeiramente obrigado pelo retorno,

 

o codigo nao criou o hiperlink, apenas deixou a ultima linha da coluna A sublinhado como link

 

antes deste codigo, utilizo um formulario userform para inserir os valores nesta ultima linha. conforme codigo abaixo. o hiperlink que falo, seria na cells(linhavazia,1).value = range("A3").value + 1, referencia do txtcod

 

obrigado..

escreve os dados na planilha
Cells(linhavazia, 4).Value = (Me.txt_cliente.Value)
Cells(linhavazia, 2).Value = (Me.txt_cod.Value)
Cells(linhavazia, 3).Value = (Me.txt_descrição.Value)
Cells(linhavazia, 14).Value = (Me.txt_desenho.Value)
Cells(linhavazia, 15).Value = (Me.txt_consumo.Value)
Cells(linhavazia, 16).Value = (Me.txt_comissao.Value)
Cells(linhavazia, 17).Value = (Me.txt_situação.Value)
Cells(linhavazia, 18).Value = (Me.TXT_LIGA.Value)
Cells(linhavazia, 19).Value = (Me.txt_peso.Value)
Cells(linhavazia, 20).Value = (Me.txt_frete.Value)
Cells(linhavazia, 5).Value = Format(Me.TXT_DATA, "mm/dd/yy")
Cells(linhavazia, 7).Value = Date
Cells(linhavazia, 1).Value = Range("A3").Value + 1