Boa noite, Srs.
tenho uma base que terá algumas série de data, onde eu preciso identificar qual é a menor série e ajustar todas conforme a menor série, porém não sei como fazer isso.
Exemplo:
SÉRIE - A
- Inicia em 01/01/1910
- Final em 01/12/1912
SÉRIE - B
- Inicia em 01/01/1911
- Final em 01/12/1912
SÉRIE - C
- Inicia em 01/01/1910
- Final em 01/12/1911
SÉRIE - D
- Inicia em 01/01/1912
- Final em 01/12/1912
Estou tentando deixar todas as SÉRIES no mesmo tamanho de acordo a menor que no caso seria a SÉRIE - C.
Toda e qualquer ideia sempre é bem vinda.
Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. 
Olhei para a planilha e nao entendi o que vc precisa.
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Boa noite, MPrudencio.
O quero fazer é deixar as séries com o mesmo tamanho.
Eu tenho 4 séries quero identificar a menor e deixar todas elas com a mesmo tamanho, de acordo com a menor série.
Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.
Boa tarde, MPrudencio.
Consegui montar um código que identifica a quantidade de registros nas séries, e insere logo acima da coluna a quantidade, gostaria de uma ajuda para identificar a menor série e ajustar as outras séries de acordo com a menor série.
Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.
Boa tarde, Srs.
Consegui escrever um código que identifica qual a menor série dentre as 4 disponível no arquivo.
Depois utilizando a menor série como padrão realiza a checagem nas outras séries para identificar se existe registros iguais, registro concordante pinta em amarelo.
O que quero fazer agora e excluir o registro da série e o total da série para igualar todas as séries porem não consegui, anexo tem o arquivo que esta identificando os registros iguais.
* Não quero excluir a linha toda somente as duas colunas da série
Toda e qualquer ajuda e bem vinda
Obs.: Sei que meu código não é enxuto mas foi o que consegui montar
Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.
Pergunta vc quer excluir o que esta identificado pela cor? Ou o que nao esta?
No caso de ser o que esta identificado vai excluir de acordo com o seu exemplo toda a coluna J I?
E em caso de ser o que nao esta identificado vai excluir toda a coluna G H?
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Boa tarde, MPrudencio.
Pergunta vc quer excluir o que esta identificado pela cor? Ou o que nao esta?
Quero excluir o que não está identificado pela cor
No caso de ser o que esta identificado vai excluir de acordo com o seu exemplo toda a coluna J I?
Não
E em caso de ser o que nao esta identificado vai excluir toda a coluna G H?
Não
Quero excluir a célula que esta sem a cor e o seu respectivo total, estilo o excluir deslocar célula para cima.
Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.
No seu exemplo as colunas IJ nao possui nenhuma celula colorida, neste caso nao faz nada??
O codigo abaixo nao esta pronto mas serve como ideia inicial.
Estou partindo do principio do exemplo
Datas em ordem crescente e sem nenhuma data nao presente apos a primeira
Tenta completar
Sub excluir()
Dim data As Date
data = Range("J4").Value
Do While ActiveCell <> ""
Range("A4").Select
If ActiveCell.Value <> data Then
Range("A4:B4").Select
Selection.Delete Shift:=xlUp
Range("A4").Select
End If
Exit Sub
Loop
End Sub
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Boa noite, MPrudencio.
As datas sempre estão em ordem crescente e sem nenhuma data não presente apos a primeira, todas as séries que irei utilizar serão completas, por que quando chegar nesse ponto já foram tratadas anteriormente.
Obrigado, pela força ...
Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.
Boa noite, Galera.
Depois que quebrar a cabeça com essa bagaça, consegui chegar onde eu queria.
Anexo tem a base, pra quem quiser olhar o código, melhorias na estrutura do VBA, aceito sugestões.
Gostaria de agradecer,pela ajuda de todos do fórum .... 
Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.