Este fórum está sendo desativado

[Aurea]

Boa tarde, não estou conseguindo fazer a fórmula do PROCV dentro do VBA.

A partir da espécie da planilha wsColetaDados quero buscar Ordem e Família na planilha wsGrupos. A espécie é adicionada através do UserForm Laboratório. Uma observação: A planilha wsGrupos pode crescer no decorrer do trabalho.

Pra quem puder me ajudar, eu coloquei aqui a planilha zipada porque ela é muito grande.

Mto obrigada desde já!

[Foxtri]

Boa tarde.
Seria algo assim ??

Private Sub btNewCad_click()

Dim lin As Long
Dim i As Integer
Dim Data As Date
Dim resposta As String

lin = wsColetaDados.Range("A:A").Find(Empty).Row

Data = VBA.CDate(TextBoxData.Text)

With wsColetaDados
.Cells(lin, "A") = textCamp.Text
.Cells(lin, "B") = Data
.Cells(lin, "C") = Format(Data, "mmmm")
.Cells(lin, "D") = Year(CDate(Data))
.Cells(lin, "E") = cbLocal.Value
.Cells(lin, "F") = TextBoxPonto.Text
.Cells(lin, "G") = TextBoxOvos.Text
.Cells(lin, "H") = TextBoxLarvas.Text
.Cells(lin, "I") = Evaluate("VLOOKUP(""" & TextBoxEspecie.Value & """,grupos,3,0)")
.Cells(lin, "J") = Evaluate("VLOOKUP(""" & TextBoxEspecie.Value & """,grupos,2,0)")
.Cells(lin, "K") = TextBoxEspecie.Text
.Cells(lin, "L") = cbEstagio.Value

End With
lin = lin + 1
Data = VBA.DateAdd("m", 1, Data)

Unload Me

resposta = MsgBox("Deseja limpar os campos?", vbOK, "Limpar campos")

If resposta = vbOK Then
textCamp.Text = ""
TextBoxData.Text = ""
cbLocal.Text = ""
TextBoxPonto.Text = ""
TextBoxOvos.Text = ""
TextBoxLarvas.Text = ""
TextBoxEspecie.Text = ""
cbEstagio.Text = ""
End If
End Sub

Até Foxtri