AJUDA
Tunusat estou tentando mas dá como não aceito o arquivo...você saberia o pq?
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.
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.
Gabi,
Consegui analisar o código?
Tunusat.
Consegui analisar o código?
Tunusat.
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...
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...
Entendi essa parte Tunusat...
Porém adaptando para a minha planilha está dando erra 1004...
Porém adaptando para a minha planilha está dando erra 1004...
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.
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.
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...
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...
Bom dia GABICPALMIERI,
Mas...
Duas linhas fazem isso, a saber:
Essas linhas não estão funcionando?
[][ô]s,
Tunusat.
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.
Não estão Tunusat...
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.
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.
Faça seu login para responder