tvareta, bem-vindo ao Planilhando!

É possível sim.

Particularmente, entendo que o melhor seja através de programação (VBA), mas também deve ser possível através de fórmulas/vínculo.

Neste caso, especificamente, entendo que o ideal seja disponibilizar um modelo, com dados fictícios, para facilitar o entendimento dos colaboradores do fórum.

tvareta, bem-vindo ao Planilhando!

É possível sim.

Particularmente, entendo que o melhor seja através de programação (VBA), mas também deve ser possível através de fórmulas/vínculo.

Neste caso, especificamente, entendo que o ideal seja disponibilizar um modelo, com dados fictícios, para facilitar o entendimento dos colaboradores do fórum.

Bom dia Edson, obrigado pela resposta.
Junto envio um ficheiro exemplo para que possa ser mais fácil:

Olá,

veja se eu entendi bem:

1 - Cada cliente possui um identificador único (Nº Cliente)
2 - Você recebe a lista de quantidade Meses Sem Encomendas por cliente;

O que precisa é apenas atualizar as demais planilhas com a quantidade de MSE ?

Se for, é bem mais simples. Você poderia utilizar formulas de Busca e Referencia.

Ex SOMASE:
=SOMASE('Folha a Actualizar'!$A$2:$A$1000;B2;'Folha a Actualizar'!$B$2:$B$1000)

Veja o anexo se está de acordo.

Veja se era isso o que deseja.

E, lembre-se, da próxima vez, compacte os ficheiros.
Tire um tempinho e leia as regras do fórum

Falhei nessa de compactar também. Vou ler as regras...

Veja se era isso o que deseja.

E, lembre-se, da próxima vez, compacte os ficheiros.
Tire um tempinho e leia as regras do fórum

Olá gtsalikis, vejo que no botão vai chamar a macro:

Sub actualizar()
'codigo por gtsalikis em 19/11/2013 via planilhando
Dim ws As Worksheet, i, j, MSE As Integer, cliente As String
i = 2
Do Until IsEmpty(Sheets("Folha a Actualizar").Cells(i, 1)) = True
cliente = Sheets("Folha a Actualizar").Cells(i, 1).Value
MSE = Sheets("Folha a Actualizar").Cells(i, 2).Value
For Each ws In ActiveWorkbook.Worksheets
j = 2
Do Until IsEmpty(Sheets(ws.Name).Cells(j, 2)) = True
If Sheets(ws.Name).Cells(j, 2).Value = cliente Then Sheets(ws.Name).Cells(j, 1).Value = MSE
j = j + 1
Loop
Next
i = i + 1
Loop
End Sub

Será que podia explicar o que faz cada linha de código? Gostava imenso de perceber para depois poder aplicar em outros projectos e não estar só a copiar/colar código sem preceber as coisas.

Respondi com comentários no próprio código.

Creio que seja um tanto complexo entender dessa forma, até porque são 3 loops. Uma dica que pode ajudar é vc executar o código linha por linha e ver o que acontece, assim: entre no editor, entre na sub e pressione F8 para executar uma linha, passe o mouse sobre a linah executada e vc vai ver os valores sendo atualizados.

Sub actualizar()
'codigo por gtsalikis em 19/11/2013 via planilhando
Dim ws As Worksheet, i, j, MSE As Integer, cliente As String ' define as variáveis : ws é a planilha (comumente chamada de "aba"), i, j, MSE são números inteiros, por isso integer, cliente é texto, por isso string
i = 2 'define que o valor de i é 2, pois vai ser usado para a segunda linha da planilha
Do Until IsEmpty(Sheets("Folha a Actualizar").Cells(i, 1)) = True ' "Do" é o comando para fazer um loop, corre cada linha da coluna 1 da planilha "folha a atualizar" até que encontre uma linha vazia - note que Cells(i, 1) identifica a linha i, que no caso é 2, e a coluna 1, ou seja, A)
cliente = Sheets("Folha a Actualizar").Cells(i, 1).Value ' define o valor da variável cliente com o que encontrar na celula linha i, coluna 1
MSE = Sheets("Folha a Actualizar").Cells(i, 2).Value ' define o valor da variável MSE com o que encontrar na celula linha i, coluna 2
For Each ws In ActiveWorkbook.Worksheets inicia um outro loop, dentro do primeiro, correndo cada planilha, e executa o seguinte:
j = 2 'define que o valor de j será 2 (segunda linha da planilha)
Do Until IsEmpty(Sheets(ws.Name).Cells(j, 2)) = True ' idem o caso acima, mas agora, uso o comando "ws.Name", que pega o nome da planilha na qual está trabalhando, esse nome vai mudar quando recomeçar o loop com outra planilha
If Sheets(ws.Name).Cells(j, 2).Value = cliente Then Sheets(ws.Name).Cells(j, 1).Value = MSE ' se o valor da célula linha j, coluna 2 for igual ao que já tem atribuído no valor cliente, vai colocar na mesma linha (identificada por j), só que na coluna 1, o valor que ele possui em MSE
j = j + 1 'aumenta o valor de j em mais 1, o que vai fazer com que execute o loop na linha de baixo da planilha
Loop ' recomeça a partir de "Do until...", executando os mesmos procedimentos, mas agora o valor de j é maior, então corre a linha de baixo
Next ' quando acabar o loop "do until", recomela o loop "for each...", ou seja, passa para a próxima planilha e faz tudo de novo"
i = i + 1 ' aumenta o valor de i
Loop ' quando terminar de correr todas as planilhas, vai recomeçar o primeiro loop, descendo uma linha da planilha que tem os dados a serem buscados nas demais planilhas.
End Sub

Um adendo, como esclarecimento:
diferente do que muitos creem, a declaração de varias Variáveis em uma unica linha requer a "especificação" de cada uma das variáveis individualmente, caso contrario assumira o valor padrão que é Variant.
Ou seja declarar : Dim i, j, MSE As Integer, sómente MSE será Integer, i e j serão Variant.
Isso na pratica em projetos pequenos não afeta o desempenho da rotina.

do Help VBA Excel

' Múltiplas declarações em uma única linha. AnotherVar é do tipo Variant porque o seu tipo está omitido.
Dim AnotherVar, Choise As Boolean, BirthDate As Date

Obrigado a todos os que intreviram neste tópico! RMaia a sua solução também funciona no entanto o que pretendia era mais parecido com o gtsalikis indicou, um especial agradecimento aos dois!