Copie uma célula específica em todas as folhas para a pasta principal

Question

Eu tenho uma planilha mestre com o formato abaixo: Folha mestre

Column A          Column B         Column C
No                Description        Price

E várias planilhas com o formato abaixo:

Folha 1

          Column A           Column B
Row 1     Company Name       ABC
Row 2     Delivered to       XYZ
Row 3     Description        ABCXYZ
Row 4     Delivered date     2014
Row 5     Price              $5

Folha 2

          Column A           Column B
Row 1     Company Name       ABC
Row 2     Delivered to       XYZ2
Row 3     Description        TestDesc
Row 4     Delivered date     2014
Row 5     Price              $50

Agora, quero que a folha mestre obtenha automaticamente o valor das folhas na planilha mestre, como abaixo: Folha mestre

Column A          Column B         Column C
No                Description        Price
1                 ABCXYZ              $5        (value from sheet 1)
2                 TestDesc            $50       (value from sheet 2)

Você poderia, por favor, me mostrar como escrever código vba para fazer essa atualização automaticamente. Obrigado

    

Answer 1

Você pode fazer isso sem o VBA. Você pode usar as seguintes fórmulas para todas as linhas nas colunas B e C da sua planilha mestre;

=INDIRECT(" 'sheet " & ROW()-1 & " '! " & " B3 ")

=INDIRECT(" 'sheet " & ROW()-1 & " '! " & " B5 ")

Isto assume que os nomes das suas planilhas são planilha1, planilha2 e assim por diante. Se esse não for o caso, basta substituir 'sheet " & ROW()-1 por algo que corresponda aos nomes de suas planilhas. Para torná-lo mais dinâmico, você pode usar a seguinte fórmula para pesquisar os campos correspondentes com base no cabeçalho da sua planilha mestre;

=VLOOKUP(B$1, INDIRECT("'sheet"&ROW()-1&"'!"&"A:B"), 2, FALSE)