Retorno de pesquisa afterupdate em Format( "R$ #,###.00")
Enviado: 24 Mai 2018 às 10:46
Bom dia!
No evento afterupdate , abaixo, do "frm_rbpa" tenho a instrução para que caso seja digitada uma data no "txt_periodo" que já conste cadastradas no minha planilha que recepciona os dados salvos, a sheets("Comum"), os txtbox's: "txt_rpa" e "txt_fspa" sejam cadastrados com dados do registro da mesma linha; isso já ocorre, porém sem a formatação de moeda; meus txtbox's já estão configurados para assumir o formato moeda quando digitado um valor, porém quando o valor é retornado pelo afterupdate, retorno apenas como número.
No evento afterupdate , abaixo, do "frm_rbpa" tenho a instrução para que caso seja digitada uma data no "txt_periodo" que já conste cadastradas no minha planilha que recepciona os dados salvos, a sheets("Comum"), os txtbox's: "txt_rpa" e "txt_fspa" sejam cadastrados com dados do registro da mesma linha; isso já ocorre, porém sem a formatação de moeda; meus txtbox's já estão configurados para assumir o formato moeda quando digitado um valor, porém quando o valor é retornado pelo afterupdate, retorno apenas como número.
Código: Selecionar todos
Tentei algo como, porém nd :Private Sub txt_periodo_AfterUpdate()
Dim lngPriLin, lngUltLin, lngLoopLin As Long
Dim datPeriodo As Date
Dim strbusca As String
lngPriLin = 2
With Me
On Error GoTo trataErro
datPeriodo = .txt_periodo.Text
End With
With wshComum
lngUltLin = .Cells(.Rows.Count, 2).End(xlUp).Row
End With
With wshComum
For lngLoopLin = lngPriLin To lngUltLin Step 1
strbusca = .Cells(lngLoopLin, 2)
If strbusca = datPeriodo Then
Me.txt_rpa = CCur(.Cells(lngLoopLin, 3))
Me.txt_fspa = CCur(.Cells(lngLoopLin, 4))
Exit For
End If
Next lngLoopLin
End With
trataErro:
If Err.Number = 13 Then
Me.txt_periodo = ""
Me.txt_rpa = ""
Me.txt_fspa = ""
End If
End SubCódigo: Selecionar todos
Muito obrigado pelo atenção e tempo!If strbusca = datPeriodo Then
Format((Me.txt_rpa), "R$ #,###.00") = CCur(.Cells(lngLoopLin, 3))
Format((Me.txt_fspa), "R$ #,###.00") = CCur(.Cells(lngLoopLin, 4))
'Me.txt_rpa = CCur(.Cells(lngLoopLin, 3))
'Me.txt_fspa = CCur(.Cells(lngLoopLin, 4))
Exit For
End If