Se você inserir novos modelos na Plan3, seguindo a mesma disposição do layout dos outros três que já estão lá (ou seja, dando um espaço de uma coluna entre um modelo e outro, começando na linha 5 e terminando na linha 7), você terá pouquíssimas alterações para fazer no código. As linhas de código que lê isso são essas:
Case Sheets("Plan3").Range("C1").Value
Sheets("Plan3").Range("A5:F17").Copy Destination:=Sheets("Plan1").Range("J12:O24")
O que dizem essas linhas ao processador: Diz para ele examinar qual é o conteúdo da célula C1 da Plan3 e verificar se ele é igual ao que está sendo solicitado lá na célula N9 (Target.Value) da Plan1. Se for igual, diz para ele copiar a faixa A5:F17 (alusiva ao primeiro modelo PVK 80/3200 existente na plan3) para a faixa J12:024 existente na Plan1.
Assim ele faz com as duas outras tabelas dos outros dois modelos existentes. Ou seja. digamos que agora existe um outro modelo existente na faixa V1:AA17. Teria que ser inserido uma nova linha Case com o seguinte teor:
Case Sheets("Plan3").Range("V1").Value
Sheets("Plan3").Range("V5:AA17").Copy Destination:=Sheets("Plan1").Range("J12:O24")
OK???
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 09/05/2014 12:00 pm