Traspaso de valores con decimales en formulario de Escell
Tengo un formulario en el que tengo un capo de moneda, el primer problema es que tengo que utilizar la coma y no el punto y el segundo es que me traspasa los datos como texto y no como numero os adjunto el código
Private Sub CommandButton1_Click()
Dim ulfila As String
If Me.proveedor = "" Or Me.importe = "" Then
MsgBox (" Faltan Datos")
Else
ulfila = Sheets("Pagos").Cells(Rows.Count, "A").End(xlUp).Row
ulfila = ulfila + 1
Range("A" & ulfila).value = (Me.fecha)
Range("b" & ulfila).value = Me.fecha_factura
Range("c" & ulfila).value = Me.proveedor
Range("d" & ulfila).value = Me.n_factura
Range("e" & ulfila).value = FormatCurrency(Me.importe, 2)
Rem Range("e" & ulfila).value = Format(Me.importe, "###.##")
End If
Unload Me
Worksheets("Caja"). Activate
End Sub
2 Respuestas
Respuesta de david ..
1
Respuesta de Enrique Feijóo
1