Anónimo
Qquiero poner en una celda la suma de varias celdas y que el resultado sea menor a 40
Hola Buenas noches mi pregunta es :quiero poner en una celda la suma de varias celdas y que el resultado sea menor a 40 si el resultado llegase a ser mayor a 40 lo deseo poner la diferencia en otra celda ... Al igual quisiera que en las celdas que sumare al principio cuando el valor de cada una de ellas sea mayor a 8 la diferencia también se sume la celda donde ira la diferencia de la suma de los 40... Espero haberme explicado bien
Un ejemplo es
En H5 quiero la suma de D5:J5 que sea menor a 40
En M5 quiero que la diefencia que si en D5:J5 me da resultado 50 en M5 me aparezca 10
y en D5,E5,F5,G5,H5,I5,J5 Si el valor es mayor a 8 automaticamente la diferncia del 8 se sume tambien a M5... Espero y se pueda
De antemano muchas gracias :D
Un ejemplo es
En H5 quiero la suma de D5:J5 que sea menor a 40
En M5 quiero que la diefencia que si en D5:J5 me da resultado 50 en M5 me aparezca 10
y en D5,E5,F5,G5,H5,I5,J5 Si el valor es mayor a 8 automaticamente la diferncia del 8 se sume tambien a M5... Espero y se pueda
De antemano muchas gracias :D
{"Lat":41.5085772974394,"Lng":-118.828125}
1 Respuesta
Respuesta de Eduard Caballero
1
Primero te comento que el resultado lo coloco en l5 porque h5 esta en la sumatoria. ¿Es un error?
Este código lo colocas en un botón comando donde tengas los datos
valord5 = Range("d5")
valore5 = Range("e5")
valorf5 = Range("f5")
valorg5 = Range("g5")
valorh5 = Range("h5")
valori5 = Range("i5")
valorj5 = Range("j5")
res = valord5 + valore5 + valorf5 + valorg5 + valorh5 + valori5 + valorj5
If res >= 40 Then
Range("l5") = 40
Range("m5") = res - 40
Else
Range("l5") = res
Range("m5") = ""
End If
i = 1
For i = 1 To 7
Cells(5, i + 3).Select
If Cells(5, i + 3).Value > 8 Then
resto = Cells(5, i + 3).Value - 8
valor = Range("m5").Value
Range("m5") = resto + valor
End If
Next i
Si quieres que se haga automático entonces colocalo en el código de tu hoja (botón derecho- ver código y pegas esto.
Private Sub Worksheet_Change(ByVal Target As Range)
valord5 = Range("d5")
valore5 = Range("e5")
valorf5 = Range("f5")
valorg5 = Range("g5")
valorh5 = Range("h5")
valori5 = Range("i5")
valorj5 = Range("j5")
res = valord5 + valore5 + valorf5 + valorg5 + valorh5 + valori5 + valorj5
If res >= 40 Then
Range("l5") = 40
Range("m5") = res - 40
Else
Range("l5") = res
Range("m5") = ""
End If
i = 1
For i = 1 To 7
Cells(5, i + 3).Select
If Cells(5, i + 3).Value > 8 Then
resto = Cells(5, i + 3).Value - 8
valor = Range("m5").Value
Range("m5") = resto + valor
End If
Next i
En sub
Este código lo colocas en un botón comando donde tengas los datos
valord5 = Range("d5")
valore5 = Range("e5")
valorf5 = Range("f5")
valorg5 = Range("g5")
valorh5 = Range("h5")
valori5 = Range("i5")
valorj5 = Range("j5")
res = valord5 + valore5 + valorf5 + valorg5 + valorh5 + valori5 + valorj5
If res >= 40 Then
Range("l5") = 40
Range("m5") = res - 40
Else
Range("l5") = res
Range("m5") = ""
End If
i = 1
For i = 1 To 7
Cells(5, i + 3).Select
If Cells(5, i + 3).Value > 8 Then
resto = Cells(5, i + 3).Value - 8
valor = Range("m5").Value
Range("m5") = resto + valor
End If
Next i
Si quieres que se haga automático entonces colocalo en el código de tu hoja (botón derecho- ver código y pegas esto.
Private Sub Worksheet_Change(ByVal Target As Range)
valord5 = Range("d5")
valore5 = Range("e5")
valorf5 = Range("f5")
valorg5 = Range("g5")
valorh5 = Range("h5")
valori5 = Range("i5")
valorj5 = Range("j5")
res = valord5 + valore5 + valorf5 + valorg5 + valorh5 + valori5 + valorj5
If res >= 40 Then
Range("l5") = 40
Range("m5") = res - 40
Else
Range("l5") = res
Range("m5") = ""
End If
i = 1
For i = 1 To 7
Cells(5, i + 3).Select
If Cells(5, i + 3).Value > 8 Then
resto = Cells(5, i + 3).Value - 8
valor = Range("m5").Value
Range("m5") = resto + valor
End If
Next i
En sub