Se vc quer um histórico, eu sugiro que vc crie uma planilha somente para ele, e que fique invisível com o atributo xlsheetveryhidden Nela, vc pode in...

Desse jeito fica difícil te ajudar. Coloca a planilha modelo, compactada, e assim a gente consegue progredir.

Como o colega acima falou, para fazer com indireto vc tem que criar os nomes para cada fruta, incluindo neles o range com os subtipos. Fiz uma soluçã...

Pronto, não tenho. Vc pode fazer usando o gravador de macros. Ou eu posso ver pra vc mais tarde, qdo tiver um tempinho (e o modelo do arquivo no Exc...

Q bom que resolveu. Por favor, clique na mãozinha como agradecimento.

Só faltou incluir essa linha: ComboBox1.Value = "Option A" Assim: Private Sub ComboBox1_Change() Select Case Sheet1.ComboBox1.Value ...

Estranho vc não conseguir abrir o arquivo. Em todo caso, segue o código. Vc deve colocá-lo, não em um módulo, mas diretamente no código da planilha; ...

Como vc tem muitas linhas e colunas, provavelmente o código vai inflando a memória até que dá erro (foi um estouro, não foi?). Se foi mesmo um estour...

Não testei, mas experimente: Sub copiar_em_ordem() Dim i As Long, j As Long, n As Long Application.ScreenUpdating = False j = 1 For k = 1 To ...

filtro? Pode até aplicar filtro via vba e imprimir

Nesse caso, vc pode enviar um exemplo da planilha? E se acontecer de ter o valor 1 e o valor 2 (por exemplo), na mesma coluna?

Não entendi, nessa linha, vc copia se o valor for 2, não se for 1 If Cells(5, 1 + i).Value = 2 Then Mas, pode trocar por: If Cells(5, 1 + i).Value...

Então está resolvido? Se estiver, marque o tópico como resolvido e clique na mãozinha.

Essa linha: Application.CutCopyMode = False Limpa da memória o que foi copiado (cancela o copiar colar). Experimente o código sem ela.

Ah... explicando direitinho a gente entende Veja o anexo. É o princípio, talvez vc precise incluir mais alguma coisa, dependendo do teu projeto. Blo...