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???
Postado : 09/05/2014 12:00 pm