Solicito apoyo con una fórmula de excel
Hola quisiera ver quien me podría ayudar con el siguiente problema de excel.
Quiero sumar los valores que contiene la columna A desde la A1:A20 cada celda contiene datos numéricos pero esos valores se introducirán uno a uno y los cuales se requieren ir sumando y el total ponerlo en la columna B, pero la limitante seria que si el total es mayor o igual a 440 mande un mensaje de "Total Máximo" y que siga sumando los valores de la columna A pero el total de esa suma la ponga en otra celda de la columna B
100 Primer total 400
100 Segundo total 300
100
100
100
100
100
Algo Algo así requiero realizar
Espero alguien me pueda ayudar con este problema.
Muchas gracias de antemano.
Quiero sumar los valores que contiene la columna A desde la A1:A20 cada celda contiene datos numéricos pero esos valores se introducirán uno a uno y los cuales se requieren ir sumando y el total ponerlo en la columna B, pero la limitante seria que si el total es mayor o igual a 440 mande un mensaje de "Total Máximo" y que siga sumando los valores de la columna A pero el total de esa suma la ponga en otra celda de la columna B
100 Primer total 400
100 Segundo total 300
100
100
100
100
100
Algo Algo así requiero realizar
Espero alguien me pueda ayudar con este problema.
Muchas gracias de antemano.
1 Respuesta
Respuesta de Elsa Matilde
1
Te dejo una rutina que tendrás que colocarla en el objeto HOJA que tendrá la lista (En el Editor, panel a tu izquierda)
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'controlamos lo ingresado en col A
If Target.Column <> 1 Then Exit Sub
'controlamos el último valor en col B
'si esto + lo ingresado aquí supera los 440 se coloca en fila sgte, sinó se lo acumula
finB = Range("B65536").End(xlUp).Row
If Range("B" & finB) + Target.Value < 440 Then
Range("B" & finB) = Range("B" & finB) + Target.Value
Else
Msgbox "Total máximo"
Range("B" & finB + 1) = Target.Value
End If
'pasa a fila sgte
Target.Offset(1, 0).Select
End Sub
Pruébala y si quedó resuelto el tema no olvides finalizar la consulta
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'controlamos lo ingresado en col A
If Target.Column <> 1 Then Exit Sub
'controlamos el último valor en col B
'si esto + lo ingresado aquí supera los 440 se coloca en fila sgte, sinó se lo acumula
finB = Range("B65536").End(xlUp).Row
If Range("B" & finB) + Target.Value < 440 Then
Range("B" & finB) = Range("B" & finB) + Target.Value
Else
Msgbox "Total máximo"
Range("B" & finB + 1) = Target.Value
End If
'pasa a fila sgte
Target.Offset(1, 0).Select
End Sub
Pruébala y si quedó resuelto el tema no olvides finalizar la consulta
Hola ..
Muchas gracias
Solo una cosa no se donde poner eso es que soy nuevo en excel si me pudieras decir algo más sobre eso te agradecería mucho..
Muchas gracias de antemano
Muchas gracias
Solo una cosa no se donde poner eso es que soy nuevo en excel si me pudieras decir algo más sobre eso te agradecería mucho..
Muchas gracias de antemano
Entrá al Editor de macros (menú Herramientas, o con teclas Alt+F11)
Seleccioná con doble clic el objeto HOJA, del panel a la izquierda, que sea la hoja donde vas a cargar la lista
Copiála rutina
Volvé a la hoja y empezá a cargarla en col A. La col B debe estar libre para colocar los totales.
Sdos
Elsa
Seleccioná con doble clic el objeto HOJA, del panel a la izquierda, que sea la hoja donde vas a cargar la lista
Copiála rutina
Volvé a la hoja y empezá a cargarla en col A. La col B debe estar libre para colocar los totales.
Sdos
Elsa
