Inquiridor
hiperlink

Pergunta
-
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
Todas as Respostas
-
-
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
-
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
Dim sArquivo
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 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 -
-