O básico seria :

Sub somaColuna()
    Dim sSoma

    With Plan1
       sSoma = Application.WorksheetFunction.Sum(Range("A2:A11"))
    End With

    MsgBox sSoma
    
End Sub

É só ajustar o seu range e jogar o resultado para o textbox.

[]s

Show Mauro, é isso que preciso, porém não souber especificar melhor...

anexei a planilha para melhor entender.. eu preciso somente soma da coluna "QTD M2" das linhas pintadas mas não sei como separar as informações via código vba.
se eu fizer da coluna completa vou ter valores a mais do que preciso,

Só preciso de uma base para iniciar meu projeto se puder ajudar... fico agradecido

franca, procurei achar um ponto de referencia que distinguiria as celulas pintadas, e pudesse utilizar uma função tipo o SOMARPRODUTO, e como não encontrei, o jeito foi adaptar umas funções que somam por cor, de uma olhada faça alguns testes e veja se ajuda.
Neste exemplo estou supondo que a cor será sempre a mesma, pois na function que adaptei, nela definimos o "NÚMERO DA COR" que no seu modelo é "19", se alterar a cor tem de ajustar na rotina do formulário.

Para isto usei as functions do link abaixo:
Color Functions In Excel
Function SumColor
Fonte : http://www.cpearson.com/excel/colors.aspx

Somar Valores por cor das celulas

Se a dica foi útil, agradeça clicando na mãozinha ao lado do icone CITAR

[]s

Top Mauro...

seguindo essa lógica, eu consigo tipo.. separar minhas quantidades de acordo com os meses tambem?

Top Mauro...

seguindo essa lógica, eu consigo tipo.. separar minhas quantidades de acordo com os meses tambem?

wfranca, primeiro ficaria grato se agradecesse a minha ajuda clicando na mãozinha ao lado do icone CITAR.

A function é para trabalhar com cores, e você pode utiliza-la da forma que for conveniente, mas não entendi o que quer dizer com "separar minhas quantidades de acordo com os meses tambem?"
Para isto pode utilizar o Filtro, apesar que tambem temos alem de meses, anos diferentes.

Detalhe melhor o que pretende de forma mais objetiva e direta.

[]s

Claro Mauro, sou sempre grato pela força que tenho aqui n forum..

Quando falo na questão de separar.. é que tenho uma produção por mês... a soma me carrega o valor total e vou ter que separar a soma por mês... tenho um campo de data e é esse que quero utilizar. Só estou tentando pensar uma forma de aderir um textbox de cada mês e ao calcular minha soma ele me retornasse o valor de cada mês.

wfranca, eu acredito que de para se fazer, só não acho produtivo, e como eu disse anteriormente, acho que o ideal seria definir criterios utilizar um filtro.

Veja bem, este seu modelo tem mais de 5000 linhas, usando a rotina para somar, ela verifica linha por linha pela cor e vai armazenando em uma variável para somar tudo, agora construir uma para Verificar MES, depois a cor da celula e em seguida armazenar o valor e ir somando, demandará mais tempo, e tambem não estou considerando que temos meses iguais mas anos diferentes.

[]s

Tem razão Mauro.. to trabalhando em cima do modelo que me passou...

só uma dúvida.. não estou conseguindo identificar o numero das cores no excel...

preto = 1 e os outros? consigo criar uma tabela?

Tem razão Mauro.. to trabalhando em cima do modelo que me passou...

só uma dúvida.. não estou conseguindo identificar o numero das cores no excel...

preto = 1 e os outros? consigo criar uma tabela?

Voce pode utilizar a propriedade :

Sub Cor_da_Seleção()
    MsgBox Selection.Interior.ColorIndex
End Sub

De uma olhada no link abaixo tem algumas tabelas :
Color Palette and the 56 Excel ColorIndex Colors
http://dmcritchie.mvps.org/excel/colors.htm

[]s

Boa tarde!

Mauro ou mais alguém que possa me auxiliar..

realizar a soma por cores eu consegui, porém ainda sinto confiante por ter que ficar colorindo todo o relatório,

atualizei o relatório pensando se é possível realizar essa soma por centro de trabalho e por mês.

se for possível me ajude com a iniciativa por favor... anexo está a planilha.

corrigindo * ainda não me sinto confiante em ter que ficar colorindo todo o relatório.

Pq nao totaliza numa tabela dinamica...

Simples e direto.

A resposta no tópico http://gurudoexcel.com/forum/viewtopic.php?f=12&t=2195 não lhe atendeu?