Este fórum está sendo desativado

[Edgardy]

ALGUÉM PODE ME AJUDAR??

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub CLICANDO()
'
' Clicando Macro
'

'
Range("C1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

'Clicando TAB
Application.Wait (Now + TimeValue("00:00:03"))
Call SendKeys("{TAB}")
Application.Wait (Now + TimeValue("00:00:01"))
'Enter para enviar o texto
Call SendKeys("{ENTER}")

End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Preciso que depois dele APERTAR ENTER, ele vá pra próxima linha/link e repita o mesmo processo enquanto tiver valor na coluna, caso tenha 1000 links, ele vá clicando e fazendo o processo de tabs, 1 de cada vez, até acabar.

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub CLICANDO()
 Dim c As Range
  For Each c In Range("C1:C" & Cells(Rows.Count, 3).End(3).Row)
   c.Select
   Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
   'Clicando TAB
   Application.Wait (Now + TimeValue("00:00:03"))
   Call SendKeys("{TAB}")
   Application.Wait (Now + TimeValue("00:00:01"))
   'Enter para enviar o texto
   Call SendKeys("{ENTER}")
  Next c
End Sub