Ayuda con VBA

14/08/2013 - 12:17 por hectorperez | Informe spam

¡ Hola !
En este momento estoy creando un programa en VBA en el que realice cierta funcion segun una condicion se cumpla o no. La rutina es Function
Est (RL, RV, LV, LVE, RVE)
If RL > 4 Then
Est = ""
Else
If RL = 4 Then
Est = ""
Else
If RL = 3 Then
Est= Application.WorksheetFunction.LOOKUP(LV, LVE, RVE)
Else
If RL = 2 Then
Est = Application.WorksheetFunction.SumIfs(RVE, LVE, ">=" & LV, LVE, "<=" & (LV + 0.01))
Else
End If
End If
End If
End If
End Function

El problema se genera en Est = Application.WorksheetFunction.SumIfs(RVE, LVE, ">=" & LV, LVE, "<=" & (LV + 0.01)) en la cual solo me arroja de resultado el error #VALUE, pero al realizar la misma formula en excel si me da el resultado esperado.

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Emilio

14/08/2013 - 18:22 | Informe spam

-
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
-
Hola!

lo siento pero entre lo incompleto del código, las variables mal declaradas
y a falta de un ejemplo de datos para poder tratar de verificarlo resulta
imposible saber porque falla.

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

Responder a este mensaje

#2 Juan Español

15/08/2013 - 08:55 | Informe spam

Hola hectorperez:
No entro a valorar tu código, solo percibo un posible error donde tú dices
que te falla.

Prueba a ponerlo así:

Est = Application.WorksheetFunction.SumIfs(RVE, LVE, "">="" & LV,> LVE, "<="
& (LV + 0.01))

Date cuenta que he puesto comillas dobles donde tú las tenías sencillas.

Saludos.-

"hectorperez" escribió en el
mensaje de noticias news:

¡ Hola !
En este momento estoy creando un programa en VBA en el que realice cierta
funcion segun una condicion se cumpla o no. La rutina es Function
Est (RL, RV, LV, LVE, RVE)
If RL > 4 Then
Est = ""
Else
If RL = 4 Then
Est = ""
Else
If RL = 3 Then
Est= Application.WorksheetFunction.LOOKUP(LV, LVE, RVE)
Else
If RL = 2 Then
Est = Application.WorksheetFunction.SumIfs(RVE, LVE, ">=" & LV,
LVE, "<=" & (LV + 0.01))
Else
End If
End If
End If
End If
End Function

El problema se genera en Est = Application.WorksheetFunction.SumIfs(RVE,
LVE,
">=" & LV, LVE, "<=" & (LV + 0.01)) en la cual
solo me arroja de resultado el error #VALUE, pero al realizar la misma
formula
en excel si me da el resultado esperado.

Responder a este mensaje

#3 Juan Español

15/08/2013 - 09:05 | Informe spam

Si es que no es bueno ponerse a teclear según uno viene de fierta...
Mejor así:

Est = Application.WorksheetFunction.SumIfs(RVE, LVE, "">="" & LV, LVE,
""<="" & LV + 0.01)

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida