Atualizar dados de planilha

[Zé Luiz]

Olá pessoal, se alguém puder ajudar ficaria contente:

Tenho 2 planilhas Plan1 e Plan2, na Plan1 tenho um número na coluna A que refere-se a cada projeto, e nas colunas L, M e N existe formatação condicional de acordo com o status do projeto.

Na Plan2 em coluna A também existe o número referente ao número do projeto da Plan1, por exemplo na Plan1 tem um projeto que recebe o número 2, na Plan2 existe alguma descrição que recebe o número 2, mas ela pode repetir mais de uma vez.

Eu gostaria de comparar o valor da coluna A da Plan2 com a coluna A da Plan1, se os valores forem iguais as colunas L, M e N da Plan2 recebe os valores das colunas L, M e N da Plan1.

Não sei se conseguir deixar claro a idéia, mas espero uma ajuda se possível!!

Muito grato pessoal

[Macêdo]

Private Sub Worksheet_Change(ByVal Target As Range)

Dim x As Long
Dim y As Long
Dim plan1A As Long
For y = 1 To 50
plan1A = Plan1.Cells(y, 1)
plan1L = Plan1.Cells(y, 12)
plan1M = Plan1.Cells(y, 13)
plan1N = Plan1.Cells(y, 14)
    For x = 1 To 50
    If Plan2.Cells(x, 1) = plan1A Then
    Plan2.Cells(x, 12) = plan1L
    Plan2.Cells(x, 13) = plan1M
    Plan2.Cells(x, 14) = plan1N
    End If
    Next x
Next y

End Sub

Editado Março 14, 2009 por Macêdo