Função Procv VBA

Bom dia galera,

Estou precisando de uma vba para fazer a função de procv.

Tenho duas colunas na planilha, uma descrição e outra sigla. Tenho um banco de dados com as siglas e descrições já preenchidos.

A coluna sigla da planilha tem uma validação de dados de acordo com o banco de dados.

Gostaria que ao escolher uma sigla na planilha ele buscasse a descrição no banco de dados em vba.

Ao selecionar sigla, busque descrição.

Não dá para ser formulas na célula pq existe informações que não vão precisar de usar a sigla e ai na hora de digitar vai apagar as formulas, por isso tem que ser em vba.

Tem como fazer isso?

Grato

Bom dia!!

Mande seu arquivo modelo!!


Att

Bom Dia,
por aqui como que posta o arquivo?

nesse link tem ele.

http://www.hardware.com.br/comunidade/procv-vba/1343620/

Grato

Bom dia!!

Veja o modelo em:
http://www.sendspace.com/file/y3wmvy

Att

Alexandre tem como funcionar sem utilizar o botão?

No caso, quando eu selecionar a sigla na célula, ai ela já faz a função do jeito que está funcionando?

Grato

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Dim lastrow As Long

lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = 0
With Worksheets("Plan1")
[C2].Formula = "=IFERROR(VLOOKUP(B2,$G$2:$H$7,2,0),"""")"
.Range("C2").AutoFill Destination:=Range("C2:C" & lastrow)
.Range("C2:C9000").Value = .Range("C2:C9000").Value
End With
Application.ScreenUpdating = 1
End If

End Sub

Fiz essa mudança e deu certo! Obrigado Alexandre

Boa tarde!!

Que bom que resolveu!


Att