Como transferir dados automaticamente do mestre para subpainhas no Excel

Se você estiver usando o Excel e quiser transferir automaticamente dados de uma planilha mestre para subpáginas especificadas quando uma determinada condição for atendida, este artigo explicará como usar o VBA ( Visual Basic for Applications ) para fazer isso. Este exemplo demonstrará como transferir automaticamente várias colunas de uma folha para outra quando o valor em um dos campos for " Sim ". O valor do campo condicional pode ser alterado conforme necessário.

Transferir automaticamente dados do mestre para subpainhas no Excel

Para começar, abra o documento do Excel e abra o Microsoft Visual Basic para aplicativos janela pressionando [Alt] + [F11].

Em seguida, encontre suas folhas na coluna da esquerda e clique duas vezes no mestre . Os nomes das folhas dependerão do nome que você deu no Excel. A planilha principal é a planilha principal na qual os dados são inseridos pela primeira vez e a planilha secundária é o local onde os dados serão preenchidos. Em seguida, cole o seguinte código no campo branco grande:

 Private Sub Worksheet_Change (ByVal Target como Range) Se Intersect (Target, Columns ("G")) Não é nada, então saia Sub 'Quando não houver alteração na' coluna G, então não faça nada. 'O valor da célula que foi alterado na coluna G será agora referido como Destino. If Target.Value = "Yes" Então 'Quando a condição for atendida ("Yes" na coluna G) então Range (Cells (Target.Row, "A"), Células (Target.Row, "G")) Copy _ Sheets (Target.Offset (0, -1) .Value) .Range ("A" & Rows.Count) .End (xlUp) .Offset (1, 0) 'Copie a linha onde a alteração é feita da coluna A até coluna G. 'Cole na folha mencionada na coluna F e na primeira linha disponível. End If End Sub 

Agora, você pode fechar a janela Microsoft Visual Basic para Aplicativos e seu arquivo estará pronto para transferir automaticamente os dados inseridos na planilha mestre para as subpáginas selecionadas. Lembre-se de que a macro só será executada quando uma alteração for feita na coluna G.

Obrigado a TrowaD por esta dica.

Imagem: © Microsoft.