Este fórum está sendo desativado

[JeffersonS]

Bom dia Amigos,

Preciso de uma ajudinha,

Tenho um TxtBox onde eu quero gravar o mes de uma despesa. Esse mês será alimentado por um DTPicker.
Porém o meu TextBox fica sempre em branco. Será que alguém tem alguma ideia para corrigir.


'Txt_Data_Despesa é um DTPicker
Private Sub Txt_Data_Despesa_AfterUpdate()

Dim dados As Range
Dim Mes As String

On Error GoTo Erro

Mes = Txt_Data_Despesa
Sheets("Teste").Select
Set dados = Range("R1:S12")

tempo = Application.WorksheetFunction.VLookup(Right(Left(Mes, 5), 2), dados, 2, False)

txt_Mes = tempo


Exit Sub
Erro:
texto = "Não foi localizado nenhum Conta Razão correspondente a Despesa, Escolha novamente a Despesa..."
mensagem = MsgBox(texto, vbOKOnly + vbInformation)


End Sub


Segue Exemplo da Planilha.

https://drive.google.com/file/d/0B0R8Wi ... sp=sharing

Abs,

[JeffersonS]

Consegui Achar o erro, tinha uma outra formula inteferindo.

Segue o código correto.

Private Sub cb_despesa_AfterUpdate()

Dim intervalo As Range
Dim codigo As String
Dim dados As Range
Dim Mes As String

On Error GoTo Erro

Mes = Txt_Data_Despesa
codigo = cb_despesa
Sheets("Teste").Select
Set intervalo = Range("O1:P3")
Set dados = Range("R1:S12")


Pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
Pesquisa2 = Application.WorksheetFunction.VLookup(Right(Left(Mes, 5), 2), dados, 2, False)


txt_Conta = Pesquisa
txt_Mes_Despesa = Pesquisa2


Exit Sub

Erro:
texto = "Não foi localizado nenhum Conta Razão correspondente a Despesa, Escolha novamente a Despesa..."
mensagem = MsgBox(texto, vbOKOnly + vbInformation)

End Sub

Segue planilha com o código funcionando.

Abs,