Como eu disse não entendi o que vc quer fazer

Abri os arquivos e a coisa piorou entendi menos ainda... Isso de uma planilha para cada produto nao vai dar certo vc imagina se tiver 500 itens como ...

Nao da pra juntar tudo em um arquivo???????????? Disponibilize um modelo descrevendo o resulltado esperado Crie o formulario com tudo que precisa e ...

Isso é facil fazer mas falta informações Na planilha relatorio vc nao tem a informação Razao Social e nao tem a informação Liquido. Entao onde buscar...

Bom de forma simples segue os 3 codigos sub imprimir() activesheet.printout end sub sub salvar() activeworkbook.save end sub Sub fec...

Juro que nao entendi a necessidade da primeira tabela (calendario), eu preencheria diretamente a segunda e pronto. Depois é so filtrar os dados por ...

Como eu disse ao inves de separa os intervalos por linha faça por coluna

Como vc nao disponibilizou o arquivo, vai minha sugestao colocar cada grupo em uma coluna. Assim vc nao tera problemas da sequencia da linha que deve...

O codigo é simples mas pra funcionar corretamente sugiro que vc poste sua planilha com o formulario para o codigo correto. Sub NovoArquivo() Dim Arq...

E necessario dados na planilha de origem e na de destino indicando o que deve ser copiado para onde.

Outra sugestão Private Sub cbo_ExibePlanilha_Change() On Error Resume Next 'Se não for vazio If cbo_ExibePlanilha.Text <> "&...

ae ja nao sei....

Procurando na internet encontrei esse codigo Sub Abrircomsenha() Workbooks.Open Filename:="C:Arquivosteste.xlsx&...

Salve o arquivo novamente com novo nome Apague o arquivo com problema Renomeie o novo arquivo com o nome original Mova o arquivo novo para o local...

Em L2 cole essa formula =SOMARPRODUTO((Entrada_diesel!$A$5:$A$130=Saída_diesel!A2)*(Entrada_diesel!$D$5:$D$130=Saída_diesel!E2)*(Entrada_di...