Excel Macro somar itens Duplicados e deletar

[Kleitonkaza]

Boa tarde a todos,

Estou com dificuldades com macros no excel,

tenho uma planilha ao qual é referente a orçamentos de itens,

terei um item com nome do produto orçado em uma aba, logo abaixo na coluna B terá os códigos de cada item, na coluna ao lado o nome do item desse código e na outro coluna do lado a quantidade deste item, assim terei uma lista de talvez 10 itens que compõe o produto,

isto estou inserindo com VBA, quando preciso lançar outro item faço o mesmo processo e este é lançado a baixo do produto ja lançado,

 

minha dificuldade é a seguinte, enquanto estou lançando os itens no VBA, sempre tenho alguns itens específicos que preciso lança-los repetidas vezes só que com valores diferentes, pois estes sao copiados automaticamente para outra aba, mas na aba principalmente onde mostra o orçamento dos produtos nao se pode repetir o mesmo item dentro de um produto, logo ele precisa ser lançado uma vez e somado,

 

Exemplo, o produto A ja esta lançado com seus itens,  o produto B em vermelho, lancei como mostrado mas esta repetindo o item 1, esta errado, em verde o Produto B esta correto, somei  o item 1 e deletei a repetição. Porém preciso fazer isto manualmente, sei que existe maneira de usar do proprio excel, porém preciso de uma macro para fazer isto quando finalizo um VBA que lança os itens de cada produto.

 

Produto A

item 1 /  item especifico do tipo 1 / 5x

item 2 / item especifico do tipo 2 / 1x

item 3 / item especifico do tipo 3 / 6x

 

Produto B (ultimo produto lançado, esta repetido, ou seja, errado)

item 1 /  item especifico do tipo 1 / 5x

item 1 / item especifico do tipo 1 / 1x

item 5 / item especifico do tipo 5 / 6x

 

Produto B (ultimo produto lançado, esta correto, somou o item 1 e deletou o repetido)

item 1 /  item especifico do tipo 1 / 6x

item 5 / item especifico do tipo 5 / 6x

 

 

Obrigado a todos!

[Kleitonkaza]

Tirei um print para entenderem melhor o que preciso

Se notarem no MATERIAL PRODUTO 01, la constam um produto repetido 3 vezes, onde eu precisaria de uma macro para somar os valores deste produto apenas neste subitem e deletar as copias, mas sem interferir no MATERIAL PRODUTO 02 que esta acim....

Desculpe o transtorno, mas tenho pouco conhecimento em VBA e macros excel.....e realmente preciso que isto seja feito com uma macro, pois, tenho muitas outras que executam na planilha e inserem estes itens

 

muito obrigado

 

[Philipp Moreira]

Na sua rotina em que registra os itens nesta aba em que os itens não podem se repetir e devem ser somados, você inclui cada registro linha a linha?

 

Caso esteja fazendo isso, tente, ao invés de escrever linha linha jogar em um array, e nele coloque um processamento para nao duplicar.

 

Caso nao tenha entendido, poste uma planilha que contenha a estrutura e as rotinas VBA, para que os demais membros possam analisar e propor uma solução mais adequada.

[Kleitonkaza]

Obrigado pelo retorno,

Neste caso preciso repetir os itens, pois, em uma outra aba espelhada ira aparecer os itens e suas quantidades parciais, porém na folha de rosto não poderá se repetir,

Estou quase conseguindo algo para minha planilha, porém, estou em outro empasse, parece algo bobo mas estou com dificuldade em um vba, caso eu consiga resolver este vba irei juntar e finalmente finalizar o que preciso,

Segue a duvida que me falta

 

Sub Inserir_formula()
    Range("J28").Select
     y = ActiveCell.Range("D29").End(xlDown).Value
   
   ActiveCell.FormulaR1C1 = "=SUMIF(R28C3:R[" & y & "]C3,RC[-7],R28C4:R[" & y & "]C4)"
  End Sub

 

O que acontece, preciso inserir esta formula de Somase, mas o que acontece uma posição é fixa, mas a outra é variavel, que seria a ultima célula preenchida da coluna D29, porém quando executo esta vba ela nao grava a posição da ultima celula preenchida para inserir na formula,

a formula estará inserida na celula J28, mas precisa selecionar a Celula D28 ate a ultima preenchida continuamente, ou seja, apareceu a primeira célula vazia não conta,

 

[Kleitonkaza]

Pessoal, 
Estou quase solucionando meu problemas, falta-me um detalhe, para então juntar todas as macros e chegar onde quero, que seria a primeira mensagem postada,
o que preciso agora é o seguinte,
como mencionado acima estou inserindo uma macro ao qual inseri uma formula Somase, porém esta formula possível seleções variáveis conforme a quantidade de linhas, porém o que me acontece é que eu consigo inserir a formula com as variável corretamente, porém, preciso congelar a formula em determinada parte, exemplo =SOMASE($C$28:$C$31;C28;$D$28:$D$31), ficando livre apenas a parte central da formula ;C28;
ate gravei uma macro para verificar se tem algo errado, mas o que me acontece que a formula congela uma parte como eu preciso e outra nao congela corretamente o que deixa uma parte variando conforme copia e cola na linha abaixo, exemplo =SOMASE($C$28:$C31;C28;$D$28:$D31)
como podem observar na parte C28:C31 foi congelado corretamente apenas a parte C28 ficando $C$28 ja a parte C31 ficou C$31, gostaria que ficasse $C$28:$C$31 como mencionado, assim acontece na terceira parte da formula D28:D31,

Resumo a formula inserida fica =SOMASE($C$28:$C31;C28;$D$28:$D31), porém preciso que ela fique assim =SOMASE($C$28:$C$31;C28;$D$28:$D$13)
onde esta grifado em amarelo é onde esta o que acontece e o preciso que aconteça

a macro esta da seguinte forma

Sub Formula_somase()

Dim Lin As Long, Sin As Long, y As Long
Lin = 28 'primeira linha a ser verificada
Sin = 30
y = 1


Do While Not IsEmpty(Range("C" & Lin))
Lin = Lin + 1
Sin = Sin + 1
y = y + 1
Loop
MsgBox "A primeira linha vazia coluna C é a linha: " & Lin


Cells(28, 10).FormulaR1C1 = "=SUMIF(R28C3:R[" & Lin - Sin + y & "]C3,RC[-7],R28C4:R[" & Lin - Sin + y & "]C4)"

End Sub

Bom desde ja agradeço a atenção!

[JhamesCremm]

Olá Senhores(as).

Estou com uma dúvida em uma macro, vocês poderiam me ajudar? Preciso criar uma macro que copie alguns itens de uma tabela (Plan1), cole em uma segunda aba (Plan2) que já foi criada antecipadamente, e somar as quantidades eliminando os duplicados.

Eu preciso executar esses comandos da primeira Aba (Plan1), sem ter que entrar em aba por aba e atualizar manualmente. Imaginei de colocar 2 botões na primeira planilha mesmo, que já fizesse a limpeza e o preenchimento das demais planilhas automaticamente.

A minha macro já está da seguinte forma, preciso completa-la com os dois itens que falei acima.

Sub Filtro_Avancado()
'
' Filtro_Avancado Macro
' Realiza filtro avançado.
'
' Atalho do teclado: Ctrl+f
'
    Range("'Geral'!A4:'Geral'!J1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A5:J6"), CopyToRange:=Range("A9:J9"), Unique:=False
End Sub
Sub Filtro_Avancado_2_Criterios()
'
' Filtro_Avancado_2_Criterios Macro
' Realiza filtro avanção usando duas linhas de critérios.
'
' Atalho do teclado: Ctrl+k
'
    Range("'Geral'!A4:'Geral'!J1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A5:J7"), CopyToRange:=Range("A9:J9"), Unique:=False
End Sub
Sub Limpar_Dados()
'
' Limpar_Dados Macro
' Limpa os dados da área de Critérios e da área de Extração.
'
' Atalho do teclado: Ctrl+d
'
    Range("A10:J1000").Select
    Selection.ClearContents
    Range("A10:J10").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("J5").Select
    
End Sub

Thank’s

Jhames Cremm