Usuário com melhor resposta
Rastreamento dos Correios com VBA

Pergunta
-
Bom dia pessoal, preciso muito da ajuda de vcs, de novo :)
O que eu quero é o seguinte: atribuir o link a seguir ao nome CORREIOS da imagem.
http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI=
Dessa forma, quando eu coloco o número no campo CÓDIGO DO OBJETO, marco a opção CORREIOS e salvo, esse código vai ser adicionado ao final do link e automaticamente todo esse endereço será salvo numa célula
http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI=MEU_CÓDIGO
Mas acontece que não quero que a célula fique enorme, quero que ao invés de aparecer o link por extenso, que apareça somente o nome CLIQUE PARA RASTREAR linkado com aquele endereço.
Respostas
-
Olá!!
Inclua o bloco a seguir no seu código:
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:= _ "http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI=" & "MEU_CÓDIGO", _ TextToDisplay:="CLIQUE PARA RASTREAR"
Mude a célula A1 para a célula desejada e lembre-se de declarar a váriável "MEU_CÓDIGO" como string.
Abraços!
- Sugerido como Resposta Rafael Kamimura sexta-feira, 23 de maio de 2014 19:43
- Marcado como Resposta Hezequias VasconcelosModerator quarta-feira, 28 de maio de 2014 17:41
Todas as Respostas
-
Olá!!
Inclua o bloco a seguir no seu código:
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:= _ "http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI=" & "MEU_CÓDIGO", _ TextToDisplay:="CLIQUE PARA RASTREAR"
Mude a célula A1 para a célula desejada e lembre-se de declarar a váriável "MEU_CÓDIGO" como string.
Abraços!
- Sugerido como Resposta Rafael Kamimura sexta-feira, 23 de maio de 2014 19:43
- Marcado como Resposta Hezequias VasconcelosModerator quarta-feira, 28 de maio de 2014 17:41
-
-