veja (anexo) se é isso :
Anexos
Click em Curtir se a resposta foi útil.
Basole, seria essa funcionalidade mas em vba, pq as informações podem variar e as vezes não será usado o campo sigla entao se ficar com formula na celula, quando precisar digitar outra coisa vai apagar as formulas. por isso tem que ser vba msm.
Obrigado pela atenção. Se souber em vba agradeço.
vlw
De doido todo mundo tem um pouco!
Alguém pode ajudar nessa causa?
De doido todo mundo tem um pouco!
Bom dia!!
Favor indicar as postagens cruzadas.
http://profwillianexcel.forumeiros.com/t805-funcao-procv-vba
Att
Resolvido galera!
Ficou assim:
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
Flw e obrigado a todos que ajudaram de alguma maneira.
De doido todo mundo tem um pouco!
