howling

buenos días, gracias Antoni por responde quedo perfecto gracias

buenas noches, quisiera saber si puedo mejorar mi macros que se encuentra en el evento change de la hoja de calculo de Excel, son códigos de cálculos básicos, además si me pudieran ayudar a reducir el código o darme algún tip para reducirlo yo mismo estaría muy agradecido. de ante mano muchas gracias Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.Calculation = xlManual Application.EnableEvents = False If Not Intersect(Target, Range("$L$5:$Y$9")) Is Nothing Then Sub todo() Range("E22") = WorksheetFunction.Sum(Range("E4:E21")) Range("E23") = WorksheetFunction.Sum(Range("E4:E19")) Range("E24") = WorksheetFunction.Sum(Range("E23") - WorksheetFunction.Sum(Range("I4:I7"))) Range("i22") = WorksheetFunction.Sum(Range("I4:I21")) Range("I4") = Range("E23") * 0.1 Range("I6") = Range("E23") * 0.0127 Range("I5") = Range("EN10") * Range("EN11") Range("I7") = Range("E23") * 0.006 Range("I25") = Range("E22") - Range("I22") Range("I12") = Range("E24") * 0.03 Range("C7") = WorksheetFunction.Sum(Range("EQ8") - (Range("EQ9"))) + Range("EN13") + Range("EN14") + Range("EN15") + Range("EN16") 'Range("E7") = WorksheetFunction.Sum(Range("C7") * ((Range("E4") * 0.0077777))) Range("C9") = Range("EQ9") + Range("EN17") + Range("EN18") + Range("EN19") 'Range("E9") = WorksheetFunction.Sum(((((Range("E4") / Range("C4")) * 7) / 45) * 1.3) * 1.5) * Range("C9") 'Range("E8") = WorksheetFunction.Sum(((((Range("E4") / Range("C4")) * 7) / 45) * 0.3)) * (Range("C8")) Range("E9") = WorksheetFunction.Sum(((((Range("E4") / Range("C4")) * 7) / 44) * 1.3) * 1.5) * Range("C9") Range("E8") = WorksheetFunction.Sum(((((Range("E4") / Range("C4")) * 7) / 44) * 0.3)) * (Range("C8")) Range("E7") = WorksheetFunction.Sum((((Range("E4") / Range("C4")) * 7) / 44) * 1.5) * Range("C7") End Sub End If Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub

buenas tardes JSD JSD te agradezco la ayuda y la paciencia y con esto ya puedo decir que este tema esta cerrado

en todas por favor y gracias por tu ayuda

gracias por tu pronta respuesta JSD JSD si esto es lo que necesitaba . gracias por tu ayuda y si es posible podrias subir el archivo o pegar la macro porfavor gracias

Buenas tardes, primero que todo les doy las gracias por tenerme tanta paciencia y una disculpa por el retraso. Estoy buscando que la macro haga lo siguiente: Que recorra el rango de B5:O5, mientras lo recorre el rango tiene que verificar cada celda para ver si cumple una condición, si cumple la condición que vaya sumando los datos y dejarlos en una celda y si no la cumple que siga hasta que termine el rango. (estoy trabajando con horas) He estado buscando en internet y he conseguido una macro que realiza el recorrido y que suma, pero no se como incluir la condición. espero haber explicado bien lo que necesito y gracias de ante mano por toda la ayuda Libro1.xlsm

buenas tardes, tengo esta macro que funciona pero me gustaria mejorarla integrando la siguiente condición siguiente: si es >= "17:00" sumar y dejar el resultado en la celda p4, me podrían ayudar porfavor de ante mano gracias Sub FuncSum() Application.ScreenUpdating = False On Error Resume Next DisplayAlerts = False minuendo = Range("C5").Value minuendo2 = Range("E5").Value minuendo3 = Range("G5").Value minuendo4 = Range("I5").Value minuendo5 = Range("K5").Value minuendo6 = Range("M5").Value minuendo7 = Range("O5").Value sustraendo = Range("Q4").Value Range("Q5").Value = Application.WorksheetFunction.Sum((minuendo - sustraendo), (minuendo3 - sustraendo), (minuendo2 - sustraendo), (minuendo4 - sustraendo), (minuendo5 - sustraendo), (minuendo6 - sustraendo), (minuendo7 - sustraendo)) suma = Range("B5").Value suma2 = Range("D5").Value suma3 = Range("F5").Value suma4 = Range("H5").Value suma5 = Range("J5").Value suma6 = Range("L5").Value suma7 = Range("N5").Value Producto = Range("P4").Value Range("P5").Value = Application.WorksheetFunction.Sum((Producto - suma), (Producto - suma2), (Producto - suma3), (Producto - suma4), (Producto - suma5), (Producto - suma6), (Producto - suma7)) DisplayAlerts = True Application.ScreenUpdating = True End SubLibro2.xlsx Libro2.xlsm