Notifications
Clear all

Como achar o endereço de uma célula via VBA?

5 Posts
2 Usuários
0 Reactions
2,380 Visualizações
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Eu gostaria de tranformar essa fórmula do Excel:

=ENDEREÇO(CORRESP(Valor_Procurado;Matriz_Procurada;0);Núm_Coluna)

Em uma fórmula para VBA.

O caso é que preciso localizar em uma planilha uma certa palavra, e na coluna ao lado dessa palavra, inserir o valor de uma variável que eu tenho dentro de um Form, só que para que isso aconteça, eu preciso saber o endereço dessa célula (baseado nessa Palavra que vai estar na planilha)

"O impossível, é só uma questão de tempo"

 
Postado : 02/05/2013 8:48 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Sub EunaoEntendi()
MsgBox "Celula selecionada '" & ActiveCell.Value & "' e seu endereço é '" & ActiveCell.Address(False, False) & "'"
End Sub

Att

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

 
Postado : 02/05/2013 9:33 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente o metodo find.
Seria algo +/- assimm

'Determine aqui sua planilha e range
With Sheets("Plan1").Range("E:E")
     ' Carrega a variavel de Objeto Localizado
    Set Localizado = .Find(Procurar, LookIn:=xlValues, LookAt:=xlPart)  'Para localizar um texto exato na celula, mudar a propriedade para xlWhole
    ' Sempre que a variavel nao for numero ou texto, e ter que carregar algum objeto tem que usar o SET
'Se localizou  
    If Not Localizado Is Nothing Then
'Se tiver mais do que um valor igual
        EndPrimeiroItem = Localizado.Address  'guarda o endereço da célula do 1º.valor localizado   
        Do
            Localizado.Offset(1, 0).Select
            ActiveCell.value= "XYZ"          
 Set Localizado = .FindNext(Localizado)  'Segue a procura
        Loop While Not Localizado Is Nothing And Localizado.Address <> EndPrimeiroItem
    
    End If

End With

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

 
Postado : 02/05/2013 11:05 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tente usar o WorksheetFunction.Match (equivalente ao corresp), pq aí, não precisa de muito código pra ficar procurando o item....
vc não especificou qual a coluna onde a busca está acontecendo.... se puder, isso facilitaria...

tipo assim, ajuda a gente a te ajudar ;-)

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

 
Postado : 03/05/2013 8:46 pm
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Reinaldo, perfeito meu camarada!
Desculpe a demora de um Feedback, é que estive ausente aqui no serviço por alguns dias.

Mais sua dica matou a charada!
Mais uma vez, muito obrigado pela força!

Forte abraço!

"O impossível, é só uma questão de tempo"

 
Postado : 21/05/2013 6:46 am