Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Explicação macro.
 
Notifications
Clear all

Explicação macro.

 
2024 - VBA & Macros
Post Recente por w_silva 10 anos atrás
3 Posts
2 Usuários
0 Reactions
980 Visualizações
RSS
 w_silva
(@w_silva)
Posts: 8
Active Member
Topic starter
 

Galera, estou montando uma macro para analisar erros de digitação nos e-mails (domínio) mas surgiu a seguinte duvida segue abaixo:

Range("E1").Select ' entendido'
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""hotmail.com.br"",""@hotmail.com"")" ' não entendi'
Range("E2").Select 'entendido'

Fico grato se alguém tem alguma sugestão para essa macro também aceito.

 
Postado : 03/06/2014 7:50 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Apos selecionar a celula E1, essa passa a ser a celula ativa (ActiveCell).
Nessa celula ativa e colocada a formula se(D1="Hotmail....;"@hotmail...")
Formula R1C1 significa colocar a formula indicando a linha (Row -R) e coluna (Column -C); no caso RC[-1] "traduz-se" como mesma linha (R) uma coluna à esquerda [-1]
Seleciona a celula seguinte

 
Postado : 03/06/2014 7:55 am
 w_silva
(@w_silva)
Posts: 8
Active Member
Topic starter
 

Muito obrigado meu caro mas tive uma excelente ideia
vou criar uma formula assim
=se(D1<>"hotmail.com";"@hotmail.com"

Vlw :D

 
Postado : 03/06/2014 7:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico