Boa noite!!

Não repare a gambiarra

Não entendi muito bem mas tente isso...faça os teste

Option Explicit
Sub Ins_Form()
    Dim iRow     As Long
    With Worksheets("SOMA")
        iRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        With .Range("G2", .Cells(iRow, "G"))
            .Formula = "=SUMIF(DESPESAS!$F$2:$F$1026,F2,DESPESAS!$D$2:$D$1026)"
            .Value = .Value
        End With
    End With
End Sub

....

Sub Cop_Dados_AleVBA()
  Application.ScreenUpdating = False
  Worksheets("SOMA").Range("A2:F10000").Delete
  Worksheets("DESPESAS").Range("A2:F10000").Copy
  Worksheets("SOMA").Range("A2:F10000").PasteSpecial Paste:=xlValues, _
  Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
    Columns("A:F").Select
    ActiveSheet.Range("$A$1:$F$10000").RemoveDuplicates Columns:=5, Header:= _
        xlYes
        Call Ins_Form
    Range("A1").Select
  Application.ScreenUpdating = True
End Sub

.....Baixe seu arquivo em:
http://www.sendspace.com/file/ggx9wn
Att

Pô cara....matou a pau. Ficou melhor do que eu esperava. Agora é só passar o bendito relatório pro chefe.

Sem palavras para lhe agradecer Alexandre.

Abraço

Boa noite!!

Que bom que deu certo!!

Mas..você não clicou na mãozinha

Att

Poxa vida...desculpa. Jurei ter clicado.

Abraço

Alexandre me permita ressuscitar esse tópico.

A solução que você prôpos foi sensacional. Mas constatei um problema que ainda nao consegui solucionar.

Você predeterminou uma quantidade de linhas, porém nem sempre a quantidade é a mesma. Exemplo: Mês passado foram 1116 despesas diferentes, esse mês a empresa teve menos despesas, foram 983 (ou seja menos linha), mas com isso há erro. Poderia me dar um help?

Abraço

Boa noite!!

É isso que dá EU não saber nada de VBA e ficar fazendo gambiarra

Qual é o problema??...qual o erro???
Não sei se vou ter tanto tempo (creio que você deverá ter paciência), para fazer algo que preste...mas alguém não o fizer, prometo te ajudar!!!

Att

O arquivo ficou la no serviço. Amanha eu reproduzo o erro e posto aqui.

É isso que dá EU não saber nada de VBA e ficar fazendo gambiarra

e deixa de modéstia rapaz...rsrs. Abraço

Guima,

Duas coisas me intrigaram no caso que vc postou.

1 - Aparentemente, a tabela que lista as despesas é oriunda de uma tabela dinâmica, certo? Caso positivo, porque vc não apresenta o sumário de soma por categoria através de uma tabela dinâmica?

2 - Como vc fará para preencher as colunas No/Nome/Desc/Valor (A/B/C/D da aba SOMA)? A macro do Alexandre captura e sumariza (soma) corretamente as categorias mas não sei como vai resolver o preenchimento das 4 primeiras colunas para apresentar ao seu chefe.

Em anexo a TD que vc necessita.

Abs aos dois.

Ola Alexandre,

Desculpe pela demora em postar, na sexta tivemos fechamento do mês aqui no serviço e foi uma correria danada....

Mas vamos lá. O erro que ocorre é "1004 - Erro em tempo de execução. Erro de definição de aplicativo ou definição de objeto."

E na rotina "Ins_Form" nesta linha:

.Formula = "=SUMIF(RECEITAS - (venda produtos)!$F$2:$F$1026,F2,RECEITAS - (venda produtos)!$D$2:$D$1026)"

Mandrix

Agradeço imensamente sua contribuição, mas a ideia seria deixar esse processo o mais automático possível, de modo que qualquer um possa conseguir gerar um relatório.
- Na verdade essa planilha já é gerada por um programa externo e com conexão do BD SQL.
- Eu preciso apenas da coluna E e F com as com as somas por categorias

Abraço a todos