Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Capturar endereço d...
 
Notifications
Clear all

Capturar endereço das células selecionadas

 
2024 - VBA & Macros
Post Recente por naxel 7 anos atrás
6 Posts
3 Usuários
0 Reactions
1,441 Visualizações
RSS
 naxel
(@naxel)
Posts: 3
New Member
Topic starter
 

Preciso do seguinte:
Em uma determinada planilha, que contenha várias células selecionadas, preciso percorrer do início ao fim e capturar o endereço de CADA célula que estiver selecionada.

Alguém pode me ajudar?

Vejam, não é célula ativa, é selecionadas.

 
Postado : 21/09/2017 5:35 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia naxel

Movi teu tópico para VBA & Macros, que deduzi ser o assunto da tua dúvida.
Onde você havia postado, não é permitido postar dúvidas, é exclusivo para a apresentação dos novos usuários.

Como você é novato, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links 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

[]s
Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/09/2017 8:04 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Use esta :

For Each i In Selection
    MsgBox i.Address(0, 0)
Next i

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/09/2017 10:49 am
 naxel
(@naxel)
Posts: 3
New Member
Topic starter
 

Amigo Mauro, infelizmente não deu certo!
Ele informa que o objeto não aceita essa propriedade ou método.
veja o código abaixo:
Dim cell As Object
For Each cell In Selection
Cont = Cont + 1
Next cell
End sub

 
Postado : 25/09/2017 11:40 am
gfranco
 gfranco
(@wzxnet7)
Posts: 653
Honorable Member
 

Boa tarde
Veja se te ajuda:

Sub enderecos()

Dim cel As Range

For Each cel In Selection

    MsgBox cel.Address

Next cel

End Sub

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 25/09/2017 2:05 pm
 naxel
(@naxel)
Posts: 3
New Member
Topic starter
 

Amigo Wzxnet7.
Funcionou perfeitamente.
Muito obrigado!

 
Postado : 28/09/2017 9:53 am
Forum Jump:
  Tópico Anterior
Próximo Tópico