Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Inserir um comentár...
 
Notifications
Clear all

Inserir um comentário na Celula de acordo com o value

 
2024 - VBA & Macros
Post Recente por Necron 11 anos atrás
9 Posts
4 Usuários
0 Reactions
1,938 Visualizações
RSS
 Necron
(@necron)
Posts: 117
Estimable Member
Topic starter
 

Boa Tarde!

Tenho uma planilha de controle de produtos, onde o usuário seleciona um valor em uma lista e "talvez" o valor selecionado na lista faça com que a celula da coluna da frente apresente o seguinte valor "MANUAL". Isso ocorre através da formula =se() que efetua uma serie de testes lógicos para mim.

O Que quero que o VBA faça é:
* Quando o valor da celular for = "MANUAL", ele devera inserir um comentário na mesma célula com a descrição = "Valor informado manualmente".

Estou anexando uma planilha fictícia.

Exemplo.xlsx

Obrigado!

 
Postado : 10/05/2013 11:56 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Necron,

Boa Tarde!

Por gentileza, compacte sua planilha e disponibilize o arquivo novamente. Não consegui baixar seu arquivo (problema de bloqueio de downloads).

 
Postado : 10/05/2013 12:01 pm
 Necron
(@necron)
Posts: 117
Estimable Member
Topic starter
 

Ola!

Segue planilha compactada:

 
Postado : 10/05/2013 12:05 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Necron, os arquivos anexados teem de estar compactados, leia as Regras do Forum.

 
Postado : 10/05/2013 12:07 pm
 Basole
(@basole)
Posts: 487
Reputable Member
 

Necron, vee se é isso que vc. tah precisando. :?:

ExemploMacroComentario.rar
 
Postado : 10/05/2013 12:54 pm
 Necron
(@necron)
Posts: 117
Estimable Member
Topic starter
 

Obrigado!

Mas ainda não é isso.

Eu gostaria que esse comentário fosse na coluna "F", mas somente se a minha formula retornasse o resultado "MANUAL". Lembrando que essa coluna estará bloqueada para edição, pois contem uma formula.

 
Postado : 10/05/2013 1:34 pm
 Necron
(@necron)
Posts: 117
Estimable Member
Topic starter
 

Apenas por curiosidade!

A formula que contenho nessa coluna "F" é essa:

=SEERRO(SE(E28="";"";SE(ÉERROS(SE(ÉERROS(SE(ÉERROS(PROCV(TEXTO(A28-1;"dd/mm/aaaa")&" - "&E28;F:K;6;0));PROCV(TEXTO(A28-2;"dd/mm/aaaa")&" - "&E28;F:K;6;0);PROCV(TEXTO(A28-1;"dd/mm/aaaa")&" - "&E28;F:K;6;0)));PROCV(TEXTO(A28-3;"dd/mm/aaaa")&" - "&E28;F:K;6;0);SE(ÉERROS(PROCV(TEXTO(A28-1;"dd/mm/aaaa")&" - "&E28;F:K;6;0));PROCV(TEXTO(A28-2;"dd/mm/aaaa")&" - "&E28;F:K;6;0);PROCV(TEXTO(A28-1;"dd/mm/aaaa")&" - "&E28;F:K;6;0))));PROCV(TEXTO(A28-4;"dd/mm/aaaa")&" - "&E28;F:K;6;0);SE(ÉERROS(SE(ÉERROS(PROCV(TEXTO(A28-1;"dd/mm/aaaa")&" - "&E28;F:K;6;0));PROCV(TEXTO(A28-2;"dd/mm/aaaa")&" - "&E28;F:K;6;0);PROCV(TEXTO(A28-1;"dd/mm/aaaa")&" - "&E28;F:K;6;0)));PROCV(TEXTO(A28-3;"dd/mm/aaaa")&" - "&E28;F:K;6;0);SE(ÉERROS(PROCV(TEXTO(A28-1;"dd/mm/aaaa")&" - "&E28;F:K;6;0));PROCV(TEXTO(A28-2;"dd/mm/aaaa")&" - "&E28;F:K;6;0);PROCV(TEXTO(A28-1;"dd/mm/aaaa")&" - "&E28;F:K;6;0)))));"MANUAL")

Ela faz vários testes lógicos, e em um dos teste ele poderá retornar a palavra "MANUAL", é nesse momento que eu gostaria que o comentário fosse inserido automaticamente.

 
Postado : 10/05/2013 1:42 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Necron,

Boa Noite!

Veja se assim lhe atende.

Exemplo.rar
 
Postado : 11/05/2013 7:57 pm
 Necron
(@necron)
Posts: 117
Estimable Member
Topic starter
 

Perfeito!!!! Acertou na mosca :D

Muitíssimo obrigado!

 
Postado : 14/05/2013 8:50 am
Forum Jump:
  Tópico Anterior
Próximo Tópico