Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
CRIAR LOOP COM CONT...
 
Notifications
Clear all

CRIAR LOOP COM CONTADOR

 
2024 - VBA & Macros
Post Recente por Eltonc09 7 anos atrás
5 Posts
3 Usuários
0 Reactions
995 Visualizações
RSS
 Eltonc09
(@eltonc09)
Posts: 17
Active Member
Topic starter
 

Bom dia pessoal, estou quebrando a cabeça a alguns dias e não consegui resolver
o seguinte problema:

Na célula K1 tenho o caminho de um arquivo e na M1 é onde crio o Hiperlink utilizando o caminho K1.
A fórmula abaixo funciona, porém queria criar um loop (acho que é isso), para o caminho de K2 virar
hiperlink em M2, caminho de K3 virar hiperlink em M3 e assim por diante.

Sub Macro3()
Range("K1").Select
    ActiveCell.FormulaR1C1 = Range("K1").Text
    Range("M1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        Range("K1").Text, TextToDisplay:= _
        Range("K1").Text

End Sub

Espero conseguir ajuda, desde já agradeço.

 
Postado : 02/01/2018 9:29 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 


Sub Macro3()

Dim i As Integer
For i = 1 To 1000
Range("K" & i).Select
ActiveCell.FormulaR1C1 = Range("K" & i).Text
Range("M" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Range("K" & i).Text, TextToDisplay:= _
Range("K" & i).Text
Next
End Sub
 
Postado : 02/01/2018 9:35 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Sub Macro4()

Dim i As Long
i = 1
While Range("A" & i).Value <> ""
Range("K" & i).Select
ActiveCell.FormulaR1C1 = Range("K" & i).Text
Range("M" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Range("K" & i).Text, TextToDisplay:= _
Range("K" & i).Text
i = i + 1
Wend
End Sub
 
Postado : 02/01/2018 9:37 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Eltonc09,

Bom dia!

Seja muito bem vindo ao fórum.

Para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Solicitamos, por gentileza, utilizar a ferramenta CODE localizada logo acima da caixa de mensagens, quando postar códigos VBA aqui no fórum.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 02/01/2018 9:49 am
 Eltonc09
(@eltonc09)
Posts: 17
Active Member
Topic starter
 

Caracas, tu é foda, fiquei um tempão pensando em como fazer isso rsrs.
Deu certo, obrigado.

Isso já me atende, mas tenho mais uma dúvida, que já pesquisei muito e não encontrei nada que me atendesse.

Estou criando um programinha no Vba, quando aperto no botão novo, vou cadastrando da seguinte forma:

- Contrato na célula A1;
- Contratada na célula B1;
- Documento na célula C1;
- Na Célula D1, queria criar um hiperlink ... quando apertasse o botão de comando, aparecesse para eu pesquisar o hiperlink
e ele fosse criado na D1.

Isso é possível? Eu criei um botão de comando para depois conseguir acessar esse hiperlink dentro do vba, porém não consigo
criar um botão para cadastrar o hiperlink.

Desde já agradeço.

 
Postado : 02/01/2018 9:53 am
Forum Jump:
  Tópico Anterior
Próximo Tópico