Repetir Fórmula por "n" Linhas

[PeHeBaCaSo]

Bom dia amigos,

meu caso é o seguinte:

Minha Plan 1 tem a entrada dos dados nas respectivas colunas:

A1 = Matricula, B1 = Data de Nascimento, C1 = Sexo, etc.

Já a Plan 2 tem algumas formulas referentes a entrada de cada participante da Plan 1, por exemplo:

A1 (Matricula) = Plan1!A1; B1 (Idade)= INT((Plan1!B1 - Hoje())/365), etc.

O problema é que minha entrada vária de cliente para cliente. por exemplo tenho clientes que utilizo 100 linhas na Plan1, outros 250, outros 500, e assim vai. E tenho sempre de me reportar a Plan 2 para arrastar ou excluir as linhas de referência inválida da Plan1, ou seja, as linhas que não precisa mais "puxar"

Existe uma maneira até por VB de que as formulas contidas na primeira linha da Plan2 se repitam automaticamente ou com algum botão o números de linhas da Plan1?

Estou disposto a esclarecer meu problema e uso o Excel 2007.

Agradeço a todos desde já.

Pedro Henrique Souza.

[Flavio Soares]

Poste um exemplo de sua planilha para facilitar a ajuda.

[PeHeBaCaSo]

Flávio,

segue o exemplo da minha planilha:

o código abaixo funcionou apenas para a primeira coluna, gostaria de saber se tem como aprofundar e desenvolver para as demais colunas e também com outras funções como data.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Linha, LinhaFinal As Integer
LinhaFinal = Range("A500000").End(xlUp).Row
For Linha = 9 To LinhaFinal
If Range("A" & Linha) <> "" Then
    Range("A" & Linha).Copy Plan2.Cells(Linha, 1)
End If
Next Linha
End Sub

Valeu pessoal.

Att,

Pedro Henirque B. C. de Souza

[joseA]

Poste um exemplo de sua planilha para facilitar a ajuda.

você postou uma imagem...

Com a planilha daria para trabalhar diretamente nela.

[PeHeBaCaSo]

Amigos,

desculpe minha ignorância no entendimento do que vocês desejavam.:p:p

Achei que era o modelo do formato da planilha. Segue o link com a planilha:

http://uploaddearquivos.com.br/download/Teste.xlsm

*a planilha está no Excel 2007

Galera a respeito do código que postei acima, ele faz referência a coluna A, assim que uma célula da coluna A Plan1 é preenchida, automaticamente é copiada para a coluna A Plan2. Tenho que fazer outras mudanças como calcular a idade na coluna B Plan2, no caso queria usar a fórmula DATADIF do Excel 2007.

Abraços

[dofall]

Não dá para entender qual o seu problema, o que você faz na Plan1 que faz com que as fórmulas da Plan2 fiquem sem referência?

Pelo código que você passou é só expandir a área de cópia, mas vou tentar adaptar pelo que entendi que você quer. Faça o seguinte:

1)Na linha 9 da Plan2 coloque todas as fórmulas necessárias para cada coluna;

2)Supondo que a linha 9 nunca perca a referência...

3)Mude o código para o seguinte...

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Linha, LinhaFinal As Integer

LinhaFinal = Range("A500000").End(xlUp).Row

For Linha = 10 To LinhaFinal

If Range("A" & Linha) <> "" Then

Plan2.Rows(9).Copy Plan2.Rows(Linha)

End If

Next Linha

End Sub

Veja se é isso que você quer.