Error 13 al correro en Windows 10
Publicado por pedro (1 intervención) el 23/10/2018 00:05:26
hola. tengo un problema con este codigo en windows7 office 2016 corre bien pero cuando traigo a la pc windows 10 mismo office me da el error 13 a que se debe.: esto haciend un formulario.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub txt_Cantidad_Change()
Dim Fila As Integer
Dim Final As Integer
Dim antes As Integer
Dim ahora As Double
Dim saldo As Double
Dim totalimporte As Double
For Fila = 1 To Final
If ComboBox1 = Hoja3.Cells(Fila, 1) Then
Me.txt_Stock = Hoja3.Cells(Fila, 3)
antes = Hoja3.Cells(Fila, 3)
ahora = Me.txt_Cantidad
saldo = antes - ahora
Me.txt_Saldo = saldo
Exit For
End If
Next
totalimporte = Val(Me.txt_Cantidad) * Me.txt_PreciodeVenta ' aqui me marca el error "13"
Me.txt_Importe.Text = totalimporte
Me.txt_Importe.Text = Format(totalimporte, "$##,##0.00")
saldo = Val(Me.txt_Cantidad) - Me.txt_Stock
Me.txt_Saldo.Text = saldo
End Sub
Valora esta pregunta
0