Jump to content
xafel

Sumarsi en VBA

Recommended Posts

Buenas tardes

Necesito sumar rangos de una hoja Excel y mostrar los resultados en un textbox, si no hay condición uso lo siguiente:

TextBox2 = Application.WorksheetFunction.Sum(Range("f5:f94"))
Funciona bien, pero cuando de ese mismo rango necesito solo las ventas de un determinado mes no me sale, he probado con:

Dim Fecha As Date
Dim mes As Integer

Fecha = (Range("a5:a94"))
mes = Month(Fecha)

Case "1"
TextBox5 = Application.WorksheetFunction.Sum(Range("f5:f94"))
Case "2"
TextBox6 = Application.WorksheetFunction.Sum(Range("f5:f94"))
'etc hasta el mes12
End Select
Alguien puede echarme una mano?

Mil gracias de antemano

Share this post


Link to post
Share on other sites

Hola @xafel, no me queda muy claro tu planteamiento y tampoco creo que estés usando correctamente el "Select Case", pues por lo que veo te faltaría anexar antes de Case "1" Select Case mes, pues no lo veo en el código que anexas.

Saludos !!!

 

Share this post


Link to post
Share on other sites

Mil Gracias.... por tu respuesta es justo lo que necesito, ahora lo adapto a mi formulario.

La próxima ayuda que os pida preparo un excel solo con lo que no funcione, para que no pese mucho.

Gracias de nuevo

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png