AJUDA

GABICPALMIERI 30/09/2015 13:47:46
#451965
Tunusat estou tentando mas dá como não aceito o arquivo...você saberia o pq?
TUNUSAT 30/09/2015 15:15:01
#451970
Gabi,

Montei algo, mas não sei se é isso que você quer.
Anexo zipado um arquivo chamado [Ô]CodigoAnalise.xlsm[Ô] (contém código VBA).
Depura o código passo-a-passo com [Ô]F8[Ô], tente entender o que faz cada linha.

[][ô]s,
Tunusat.
TUNUSAT 01/10/2015 08:26:18
#452000
Gabi,

Consegui analisar o código?

Tunusat.
GABICPALMIERI 01/10/2015 08:45:27
#452002
Bom dia Tunusat!
Consegui olhar agora, pois ontem a tarde fiquei sem internet no trabalho...
então...não entendi muito bem essa parte:
[Ô][ô]Podemos fazer um looping aqui também? veja que existe muita repetição de dados!
For j = 2 To 23

If Cells(2, j).Value = strCriterio Then

If UCase(strAcao) = [Ô]DESCONTAR[Ô] Then
Plan1.Cells(6, 7) = Plan1.Cells(5, 7) - Plan1.Cells(3, j)
Else
Plan1.Cells(6, 7) = Plan1.Cells(5, 7) + Plan1.Cells(3, j)
End If[Ô]

Não é possível um looping nessa parte, pois alguns critérios são descontados/atribuídos 1 ponto, outros 2 pontos e outros 3 pontos...
GABICPALMIERI 01/10/2015 09:59:00
#452008
Entendi essa parte Tunusat...
Porém adaptando para a minha planilha está dando erra 1004...
TUNUSAT 02/10/2015 07:43:03
#452081
GABICPALMIERI,

Você sabe rodar código VBA passo-a-passo com [Ô]F8[Ô] dentro?
Se não sabe:
- Vá até a guia [Ô]Desenvolvedor[Ô] ... procure um esquadro azul [Ô]Modo de Design[Ô].
- Clique duas vezes no botão e abrirá o código. Clique na tecla [Ô]F8[Ô] e acompanhe o processamento passo-a-passo.

Bom, sobre o erro é preciso fazer algum ajuste para que o gráfico funcione.
==========================================
Uma mensagem de erro [Ô]Erro em tempo de execução 1004[Ô] é exibida ao alterar as entradas de legenda em um gráfico no Excel
https://support.microsoft.com/pt-br/kb/832166
==========================================

[][ô]s,
Tunusat.

GABICPALMIERI 02/10/2015 09:02:09
#452092
Bom dia Tunusat...
sei, já fiz isso e como disse no comentário anterior entendi o que vc havia feito...
Porém o código continuar a não encontrar o o critério correto e ao invés de descontar os pontos, ele apenas atribui...
TUNUSAT 02/10/2015 10:49:16
#452094
Bom dia GABICPALMIERI,

Mas...

Duas linhas fazem isso, a saber:
[ô]...
strCriterio = ComboBox3.Text
[ô]...
If Cells(2, j).Value = strCriterio Then
...


Essas linhas não estão funcionando?

[][ô]s,
Tunusat.
GABICPALMIERI 02/10/2015 14:16:42
#452102
Não estão Tunusat...
TUNUSAT 02/10/2015 15:44:07
#452107
GABICPALMIERI,

O que tem dentro da variável [Ô]strCriterio[Ô] e dentro de [Ô]Cells(2, j).Value[Ô]?
Para ver isso abra a janela [Ô]Verificação Imediata[Ô] (Immediate - Ctrl+G)

===================================================
5 Ways to Use the VBA Immediate Window in Excel
http://www.excelcampus.com/vba/vba-immediate-window-excel/
===================================================

[][ô]s,
Tunusat.

Página 2 de 2 [20 registro(s)]
Faça seu login para responder