Este fórum está sendo desativado

[AMORIM123]

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.

Código: Selecionar todos

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 Sub

Tentei algo como, porém nd :

Código: Selecionar todos

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

Muito obrigado pelo atenção e tempo!

[JCabral]

Experimente o seguinte

Código: Selecionar todos

Me.txt_rpa= Format(CCur(.Cells(lngLoopLin, 3)), "R$ #,###.00") 
Me.txt_fspa = Format(CCur(.Cells(lngLoopLin, 4)), "R$ #,###.00")

[AMORIM123]

Deu rock!
vlw meu caro!