Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
erro ao gravar no v...
 
Notifications
Clear all

erro ao gravar no vba

 
2024 - VBA & Macros
Post Recente por Silverio 8 anos atrás
6 Posts
3 Usuários
0 Reactions
1,477 Visualizações
RSS
 Silverio
(@silverio)
Posts: 50
Trusted Member
Topic starter
 

Bom dia.

Tenho a seguinte formula no excel e precisava automatizá-la porém dá erro ao gravar acredito que seja devido a quantidade de condições, tem algum comando no vba que copie a formula de uma celula para outra.

Tentei colocar = a celula anterior pois veio somente o resultado e não a formula.

SE(E(J9=J6;Z6<>"N/A");PROCV((PROCV(Z6;CALENDÁRIO_SHE!D:E;2;0));CALENDÁRIO_SHE!C:D;2);SE(E(J9=J5;Z5<>"N/A");PROCV((PROCV(Z5;CALENDÁRIO_SHE!D:E;2;0));CALENDÁRIO_SHE!C:D;2);SE(E(J9=J4;Z4<>"N/A");PROCV((PROCV(Z4;CALENDÁRIO_SHE!D:E;2;0));CALENDÁRIO_SHE!C:D;2);SE(E(J9=J3;Z3<>"N/A");PROCV((PROCV(Z3;CALENDÁRIO_SHE!D:E;2;0));CALENDÁRIO_SHE!C:D;2);SE(E(J9=J2;Z2<>"N/A");PROCV((PROCV(Z2;CALENDÁRIO_SHE!D:E;2;0));CALENDÁRIO_SHE!C:D;2);SE(E(J9=J1;Z1<>"N/A");PROCV((PROCV(Z1;CALENDÁRIO_SHE!D:E;2;0));CALENDÁRIO_SHE!C:D;2);SE(P9>$AK$1;P9;$AK$1)))))))

 
Postado : 18/09/2016 8:48 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Sua formula aparentemente esta errada, poste o arquivo com dados e explicações do que pretende.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 18/09/2016 2:27 pm
 Silverio
(@silverio)
Posts: 50
Trusted Member
Topic starter
 

Não acredito que esteja errado, pois no excel funciona normal, tive o mesmo erro com outra linha, porém está era menor e consegui programar.

Existe algum código no vba que copie a formula de uma célula para outra?

 
Postado : 18/09/2016 6:18 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

So o fato de ter dois PROCV((PROCV(Z6; sem ter o valor pesquisado no primeiro ja gera o erro mas tudo bem se vc acha que esta certo va em frente

Use o gravador ative referencia relativa copie e cole especial formulas.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 19/09/2016 2:00 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Marcelo, o valor procurado para o Primeiro Procv é fornecido pelo segundo Procv, que procura pelo valor em Z6.

Para copiar o comando basico é 

'Copia celula ou rangepreviamente selecionada
Selection.Copy
 'Destino para onde será "colado" os dados copiados   
Range("K18").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

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

 
Postado : 20/09/2016 5:19 am
 Silverio
(@silverio)
Posts: 50
Trusted Member
Topic starter
 

Prudencio bom dia, não sei porque na visualização no fórum fica pela metade o que eu estou colando, por isto disse que a fórmula está completa, ela não tem só a linha que apareceu na publicação.

SE(E(J10=J7;Z7<>"N/A");PROCV((PROCV(Z7;CALENDÁRIO_SHE!D:E;2;0));CALENDÁRIO_SHE!C:D;2);SE(E(J10=J6;Z6<>"N/A");PROCV((PROCV(Z6;CALENDÁRIO_SHE!D:E;2;0));CALENDÁRIO_SHE!C:D;2);SE(E(J10=J5;Z5<>"N/A");PROCV((PROCV(Z5;CALENDÁRIO_SHE!D:E;2;0));CALENDÁRIO_SHE!C:D;2);SE(E(J10=J4;Z4<>"N/A");PROCV((PROCV(Z4;CALENDÁRIO_SHE!D:E;2;0));CALENDÁRIO_SHE!C:D;2);SE(E(J10=J3;Z3<>"N/A");PROCV((PROCV(Z3;CALENDÁRIO_SHE!D:E;2;0));CALENDÁRIO_SHE!C:D;2);SE(E(J10=J2;Z2<>"N/A");PROCV((PROCV(Z2;CALENDÁRIO_SHE!D:E;2;0));CALENDÁRIO_SHE!C:D;2);SE(P10>$AK$1;P10;$AK$1)))))))

Editado:
Silvério --> é só usar a ferramenta Code que a formula aparece completa. (Depois apago esta edição)

 
Postado : 20/09/2016 5:56 am
Forum Jump:
  Tópico Anterior
Próximo Tópico