Observação: tenho vários txtboxes desta forma.
Código: Selecionar todos
Private Sub txtDiaria_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Calculo
txtDiaria.Value = Format(txtDiaria, "R$ #.00")
End Sub
silva_jmp
Código: Selecionar todos
Private Sub txtDiaria_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Calculo
txtDiaria.Value = Format(txtDiaria, "R$ #.00")
End Sub