Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
Avatar do usuário
Por Aurea
#67110
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á!
Você não está autorizado a ver ou baixar esse anexo.
Avatar do usuário
Por Foxtri
#67198
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
Filtro suspenso bugado

Anexa o arquivo, oferecer uma soluçã[…]

Ajuda para Vincular colunas.

Na sua Planilha2 vc tem uma fórmula em q pa[…]

Faaala @DJunqueira . Camarada, vc salvou uma v[…]

@DJunqueira , Muuuito obrigada! :)

Conexão odbc

Bom dia pessoal, estou com problemas em fazer co[…]

Adidas Yung-1 Pas Cher

Adidas Yung-1 Pas Cher https://www.solewishes.co[…]

Adidas Falcon Men

Adidas Falcon Men https://www.solesstockx.com/me[…]

Adidas EQT Homme

Adidas EQT Homme https://www.nmdchaussures.com/m[…]