Puxando Dados De Outra Planilha

[bEbEr]

Galera.. é o seguinte.

Tenho duas planilhas. Plan1 e Plan2.

Na Plan1 é onde esta o "bando de dados". Estão preenchidos da seguinte forma:

1000 (A1) - Tiago (B1)

1001 (A2) - Adriana (B2)

1002 (A3) - João (B3)

Fim da Plan1.

A Plan2 vai funcionar da seguinte forma: quando eu digitar no campo A1 da Plan2 o código "1000", no campo B1 da Plan2 ira aparecer "Tiago", entenderam? Se eu digitasse no campo A1 "1002", no campo B1 iria aparecer "João".

Tentei usar While e If.. mas não consegui :S:S

flww ae

abraço

:D

[bEbEr]

?

[Graymalkin]

No evento Change do objeto Worksheet da Plan2 você pode colocar o seguinte:

    If Target.Column = 1 Then
        Set busca = Plan1.Cells.Find(Target.Value)
        If Not busca Is Nothing Then
            Me.Range("B" & Target.Row).Value = Plan1.Range("B" & busca.Row)
        End If
    End If

Certo? ;)

Graymalkin

[bEbEr]

deu certo cara..

mas assim

quando eu coloco 1000 aparece Tiago.. e dps que eu deleto o 1000.. continua o Tiago la..

como faço pra excluir na coluna B.. quando não c tem nada na coluna A??

falou

:D

[Graymalkin]

Basta olhar se o valor da célula é vazio e então definir a célula correspondente na coluna B também como vazia:

    If Target.Column = 1 Then
        If Target.Value = "" Then
            Me.Range("B" & Target.Row).Value = ""
        Else
            Set busca = Plan1.Cells.Find(Target.Value)
            If Not busca Is Nothing Then
                Me.Range("B" & Target.Row).Value = Plan1.Range("B" & busca.Row)
            End If
        End If
    End If

Certo? ;)

Graymalkin