Notifications

Clear all

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

2024 - VBA & Macros

Post Recente por Necron 12 anos atrás

9 Posts

4 Usuários

0 Reactions

1,962 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!

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

Postado : 10/05/2013 11:56 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious 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).

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 10/05/2013 12:01 pm

Necron

(@necron)

Posts: 117

Estimable Member

Topic starter

Ola!

Segue planilha compactada:

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

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.

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

Postado : 10/05/2013 12:07 pm

Basole

(@basole)

Posts: 487

Reputable Member

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

ExemploMacroComentario.rar

Click em se a resposta foi util!

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.

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

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.

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

Postado : 10/05/2013 1:42 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Necron,

Boa Noite!

Veja se assim lhe atende.

Exemplo.rar

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 11/05/2013 7:57 pm