Excel - CELLS, RANGE y SHEETS dan error dentro de función VBA

   
Vista:
Imágen de perfil de Federico

CELLS, RANGE y SHEETS dan error dentro de función VBA

Publicado por Federico (2 intervenciones) el 30/03/2018 03:19:40
Quiero escribir un resultado en una celda desde una función VBA. Si coloco una de las tres instrucciones CELL, RANGE o SHEETS en el código VBA el resultado es #¡VALOR! en la celda que llama la función. La fonción trabaja bien y puede exprsar el valor it (# iteración) a través de un MsgBox.
El código es el siguiente:

Valores de prueba Function Preciofin
P = 1175
inc = 0.001
tol = 0.0005
rd = 10
Resultados cuando no se usan las funciones mencionadas:
Preciofin = 1181.82
iteraciones = 6820

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
' ***** inicio de instrucciones VBA Modulo1
Public it As Integer
Function truncarn(x As Double, n As Integer) As Double
  truncarn = Int(x * ((10) ^ n)) / ((10) ^ n)
End Function
 
Function Preciofin(P As Double, inc As Double, tol As Double, rd As Integer) As Double
Dim pnuevo, Dif, precioi As Double
'Dim it As Integer
 
it = 0
precioi = P
 
Do
it = it + 1
 
Preciofin = precioi - truncarn(precioi - truncarn(precioi * 1.1 / rd, 0) * rd / 1.1, 2)
 
If Preciofin <= P Then
  pnuevo = precioi + inc
Else
  pnuevo = precioi
End If
 
If pnuevo - precioi <= tol Then
  Dif = 0
Else
  Dif = pnuevo - precioi
End If
precioi = pnuevo
 
If it > 10000 Then
  Dif = 0
End If
Loop Until Dif = 0
Preciofin = Round(Preciofin, 2)
 
'Sheets("Metodoit").[H7].Formula = it
'Range("H7").Value = it
' La siguiente instrucción genera un error #¡VALOR! en
' la celda donde se invoca la función, en este caso H5
Cells(7, 8).Value = it
 
'El siguientes Msgbox da un resultado correcto cuando
'no se activan las celdas con instrucciones Sheets, Range o Cells
MsgBox "iteraciones = " & it
' *** fin de instrucciones VBS Modulo1
 
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

CELLS, RANGE y SHEETS dan error dentro de función VBA

Publicado por JuanC juanc2942@gmail.com (1230 intervenciones) el 30/03/2018 11:16:45
desde una Function no podés modificar el valor de otra celda, por eso el error
simplemente la función debe devolver el valor así:

'Cells(7, 8).Value = it <-- no está permitido

Preciofin = it <-- devuelve el valor
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar
Imágen de perfil de Federico

CELLS, RANGE y SHEETS dan error dentro de función VBA

Publicado por Federico (2 intervenciones) el 30/03/2018 11:26:28
Esta respuesta no es una solución porque está cambiando un valor importante que es el precio final por el del número de iteraciones. Sin embargo queremos las dos cosas, el preciofin en una celda e it en otra celda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

CELLS, RANGE y SHEETS dan error dentro de función VBA

Publicado por JuanC juanc2942@gmail.com (1230 intervenciones) el 30/03/2018 11:40:12
entiendo que no sea 'la solución', pero explica el por qué del #¡VALOR!
una posibilidad es usar el código como macro y no como UDF
la otra es usar un truco para que la función permita modificar otra celda...
se trata de usar una variable global que tendrá la referencia de la celda que llama a la función

luego interceptando el evento Worksheet_Change y chequeando valores
se actúa sobre otra celda que nos interese o sobre el formato de la celda que llamó a la función...

parece complicado pero es muy simple y funciona...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad