hiperlink

Question

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

Answer 1

Sub LinhaEmBranco()
Dim linha As Long
linha = 1

While ThisWorkbook.Sheets("Planilha1").Cells(linha, 1) <> ""


linha = linha + 1

Wend

'coloque aqui o código para preencher a próxima linha em branco

End Sub

---

Anderson Diniz

Answer 2

Sub UltimaLinhaPreenchida()
Dim linha As Long
linha = 1

While ThisWorkbook.Sheets("Planilha1").Cells(linha, 1) <> ""


linha = linha + 1

Wend
linha = linha - 1
'coloque aqui o código para preencher a última linha com dado

End Sub

---

Anderson Diniz

Answer 3

boa tarde Anderson,

primeiramente obrigado pelo retorno.

antes do codigo de criar hiperlink, utilizo um formulario userfom para inserir os valores na planilha. segue abaixo.

apos este codigo do userform, vem na sequencia este codigo para criar o hiperlink.

o teu codigo enviado, ate que funcionou, porem nao abriu o arquivo apareceu msg "não é possivel abrir o arquivo especificado", e outra que inseriu na ultima linha o valor 1.

na ultima linha é inserido um valor numérico sequencial, atraves de um textbox, conforme codigo abaixo.

'conta quantas informações foram inseridas na coluna A da aba dados
linhavazia = WorksheetFunction.CountA(Range("b:b")) + 3



'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

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
    
           
     Me.txt_cliente = ""
 Me.txt_cod = ""
 Me.txt_descrição = ""
 Me.txt_desenho = ""
 Me.txt_consumo = ""
 Me.txt_comissao = ""
 Me.txt_situação = ""
 Me.TXT_LIGA = ""
 Me.txt_peso = ""
 Me.txt_frete = ""
 Me.TXT_DATA = ""
  Unload Me

Answer 4

bom dia,

o codigo do Anderson deu certo, era como queria.

antes, tinha um erro na planilha, foi corrigido...

obrigado..

Answer 5

Favor marcar como respondido.

---

Anderson Diniz