Visual Basic - Error 424. Se requiere objeto

Life is soft - evento anual de software empresarial
   
Vista:

Error 424. Se requiere objeto

Publicado por Alejandra (2 intervenciones) el 20/05/2016 04:28:32
Buenas tardes,

Me podrían colaborar con este error. No soy muy experta en visual basic, pero estoy urgida por solucionar este problema...POR FAVOR AYUDAAAAA!!!!!! gracias.

El código es éste y el error sale en la línea que dice: x = Distr.Log.Inv(aleatorio, media, desviacion)


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
50
51
52
53
54
55
56
57
58
59
Private Sub CommandButton8_Click()
 
Dim media As Double
Dim desviacion As Double
Dim maximo As Double
Dim minimo As Double
Dim x As Double
Dim aleatorio As Double
Dim z As Double
 
 
minimo = Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 7)
maximo = Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 6)
media = Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 5)
desviacion = Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 6)
 
aleatorio = Rnd()
 
If (Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 3) = "Uniforme") Then
x = minimo + (maximo - minimo) * aleatorio
 
 
    Else
 
     If (Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 3) = "Triangular") Then
        If aleatorio < ((media - minimo) / (maximo - minimo)) Then
        x = minimo + Sqr((media - minimo) * (maximo - minimo) * aleatorio)
        Else
        x = maximo - Sqr((maximo - minimo) * (maximo - media) * (1 - aleatorio))
        End If
 
 
     Else
 
     If (Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 3) = "Exponencial") Then
     x = -media * Log(aleatorio)
 
     Else
 
        If (Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 3) = "Lognormal") Then
       [u] x = Distr.Log.Inv(aleatorio, media, desviacion)
 
 
        Else
 
        If (Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 3) = "Normal") Then
        x = Distr.NORM.Inv(aleatorio, media, desviacion)
 
        End If
 
     End If
 
     End If
 
End If
End If
 
Workbooks("Productividad Técnicos de Calle").Sheets("Hoja1").Cells(7, 8) = x
End Sub
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
Imágen de perfil de Andres Leonardo

Error 424. Se requiere objeto

Publicado por Andres Leonardo (698 intervenciones) el 20/05/2016 15:57:48
pODRIAS PONER EL CODIGO DE ESTA FUNCION

Distr.Log.Inv???
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

Error 424. Se requiere objeto

Publicado por Juan Gilberto (277 intervenciones) el 21/05/2016 18:38:26
Te falta referenciar una libreria en tu proyecto
o declarar una libreria en en un modulo o formulario
donde se encuentra ese procedimiento o funcion
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

Error 424. Se requiere objeto

Publicado por Alejandra (2 intervenciones) el 22/05/2016 04:51:44
Mil gracias. Lo solucioné agregando WorksheetFunction. antes del nombre de la función.
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