Notifications
Clear all

Ajuda com criterio cor

14 Posts
2 Usuários
0 Reactions
2,310 Visualizações
(@leandrogsp)
Posts: 13
Active Member
Topic starter
 

Ola,

gostaria de uma ajuda,

preciso de uma função que use como critério cor,

:S

não manjo nada de VBA essas coisa

alguém poderia me da uma ajuda?

segue em anexo planilha de exemplo

 
Postado : 21/08/2013 9:23 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Desculpe mas não entendi. Pode fornecer maiores detalhes, bem como um exemplo do resultado esperado (faça manualmente)

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

 
Postado : 21/08/2013 9:46 am
(@leandrogsp)
Posts: 13
Active Member
Topic starter
 

segue em anexo resultado que deverias me fornecer

tipo eu quero valor em peso somente do que esta fabricado, já entregue, que esta no jato e ainda não foi fabricado

segue anexo manualmente.

 
Postado : 21/08/2013 10:27 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Estou movendo teu tópico para o fórum adquado, VBA & Macro.

Att.

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

 
Postado : 21/08/2013 2:04 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Leandro, não conheço uma função nativa do Excel que execute o que deseja, então é preciso criar alguma; porem para isso precisamos entender quais os critérios utilizados.
No seu segundo exemplo, alguns valores são "somados" em duplicidade, e correto essa situação?
Exemplo itens no "Jato" e "Fabricado" também itens na "Pintura" e "Fabricado".
Em contrapartida os itens 01 à 15 (linhas 7 a 21) não foram considerados no seu total de "Pintura", somente em "Fabricado", também é correto?
O que considerar? Somente as cores, independente das sobreposições de soma, ou existe algo mais?

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

 
Postado : 21/08/2013 2:23 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja no anexo o resultado obtido; porem diverge de seu exemplo

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

 
Postado : 21/08/2013 2:50 pm
(@leandrogsp)
Posts: 13
Active Member
Topic starter
 

Reinaldo
era exatamente isso que eu precisava
só que quando copio sua formula da #NOME?

Qual seria a solução?

 
Postado : 22/08/2013 4:54 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

A "formula" é baseada em uma UDF, ou seja em uma função em VBA. Para utiliza-las em outra planilha deve copiar a função para essa outra planilha.

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

 
Postado : 22/08/2013 4:59 am
(@leandrogsp)
Posts: 13
Active Member
Topic starter
 

pode me ajuda com isso um pouco
não manjo muito de VBA

qual seria a formula?

e aonde teria que ser copiada?

 
Postado : 22/08/2013 5:42 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Na planilha que lhe enviei, tecle Alt+F11, isso abrirá o editor VBE.
Terá um modulo chamado "CelCor" e nesse modulo uma função denominada "Function SomaPeso", é essa função que deve ser copiada para a(s) planilha(s) necessárias.

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

 
Postado : 22/08/2013 5:55 am
(@leandrogsp)
Posts: 13
Active Member
Topic starter
 

vlw reinaldo me ajudou muito ^^

 
Postado : 22/08/2013 6:01 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Conforme solicitado em MP, segue uma alteração da Função, deixando a coluna como variavel, copie e cole no modulo da planilha a ser utilizado.
a sintaxe para utilização é SomaPeso2(Range;CelulacorReferencia;numero da coluna a ser somada)
no seu exemplo ficara: =SomaPeso2($A$7:$BE$61;AD68;58) ou =SomaPeso2($A$7:$BE$61;AD68;COL(BF1))

'Conta a cor interna de uma range de celulas
Function SomaPeso2(qRange As Range, ByVal qRef As Range, qCol As Integer) As Double
    Dim c As Range, Xcolor&, Xvalue#, Xrow&
    'Xcolor = cor de referencia para a somatoria
     Xcolor = qRef.Interior.ColorIndex
    'qrange range cujas celulas serão somadas
    
    For Each cel In qRange
        If cel.Interior.ColorIndex = Xcolor And cel.Row <> Xrow Then
            Xrow = cel.Row
            Xvalue = Xvalue + Cells(Xrow, qCol).Value
        End If
    Next
    
    SomaPeso = Xvalue
End Function

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

 
Postado : 22/08/2013 6:34 am
(@leandrogsp)
Posts: 13
Active Member
Topic starter
 

Mais uma vez obrigado

só mais uma pergunta noob

sempre que fecho a planilha e atualizo os valores ele fica invalido

ai tenho que copia esse vba novamente

tem uma forma de deixa esse vba salvo nessa planilha?

 
Postado : 22/08/2013 6:59 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se seu Excel for 2007 ou acima (.xlsx)é necessário salvar a planilha habilitada para macros (extensão .xlsm). Vá em salvar como, e no Combo "Salvar Tipo Arquivo" escolha: Pasta de trabalho Habilitada par macro Excel.

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

 
Postado : 22/08/2013 8:51 am