none
hiperlink RRS feed

  • 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
    quarta-feira, 20 de setembro de 2017 15:22

Todas as Respostas

  • 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

    quarta-feira, 20 de setembro de 2017 15:29
  • 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

    quarta-feira, 20 de setembro de 2017 15:30
  • 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

    quarta-feira, 20 de setembro de 2017 20:12
  • bom dia,

    o codigo do Anderson deu certo, era como queria.

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

    obrigado..

    quinta-feira, 21 de setembro de 2017 11:32
  • Favor marcar como respondido.

    Anderson Diniz

    sexta-feira, 22 de setembro de 2017 18:44