Cara, da uma olhada ai e da um retorno.

BLZ?

T+

Bom dia
seria quase isso, só que quando apertamos o botão legal ele transfere para as devidas pasta,
só que não gera o saldo anterior correto
Exemplo - Produto 01 - Saldo Anterior 100
Entrada 10
Saida 0
Saldo Atual 110
apos rotina deverria ser Saldo Anterior 110
Entrada 0
Saida 0
Saldo Atual 110
Obrigado pela ajuda se conseguir resolver agradeço
Abraços
Ivair

Eu gerei mais uma macro GerarSaldo
ela copia saldo atual e cola na anterior
antes de zerar as outras planilhas
ficou uma macro copiar e colar mas resolveu
aguardo nova ideias

Sub Macro1()
Sheets("Produtos").Select
GerarSaldo
Sheets("Compras").Select
Range("A2").Select
Application.CutCopyMode = False
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Range(ActiveCell, ActiveCell.End(xlToRight)).Copy Destination:= _
Sheets("TComp").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Loop
Sheets("Vendas").Select
Range("A2").Select
Application.CutCopyMode = False
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Range(ActiveCell, ActiveCell.End(xlToRight)).Copy Destination:= _
Sheets("TSaid").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Loop
Sheets("Compras").Select
Range("A2").Select
ActiveCell.Offset(1, 0).Select
Do While ActiveCell <> ""

Range(ActiveCell, ActiveCell.End(xlToRight)).Delete Shift:=xlUp

Loop
Sheets("Vendas").Select
Range("A2").Select
ActiveCell.Offset(1, 0).Select
Do While ActiveCell <> ""

Range(ActiveCell, ActiveCell.End(xlToRight)).Delete Shift:=xlUp

Loop
End Sub

Sub GerarSaldo()
' GerarSaldo Macro
Columns("F:F").Select
Selection.Copy
Columns("C:C").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("C2").Select
ActiveCell.FormulaR1C1 = "Anterior"
Range("G1").Select
End Sub

BLZ!

Não tinha entendido direito a questão do saido.

Ta funcionando direitinho.

Vc precisa doque agora, não entendi bem.

To mais lerdo que o normal esses dias

Blz
Ta funcionando só mencionei que fiz uma macro copiar e colar, caso vc tivesse uma rotina mais funcional.
Agradeço a ajuda quebrou uma arvore rs.....
Abraços
Ivair

Só!

Não tenho não, mas se precisar de qualquer coisa posta ai.

A gente vai tentando ate conseguir .

oque não resolvermos a galera da uma força.

BLZ?

T+

Ok resolvido
odrigado pela ajuda pessoal