Con referencia a : Excel: cómo ingresar datos directamente o valor de celda de la fórmula
Me gustaría consultar sobre un tema relacionado. ¿Cómo editaría mi fórmula de VBA si quisiera comparar el valor formulado existente con el nuevo valor de entrada? Y muestre el máximo del valor de entrada formulado y del más nuevo.
Muchas gracias por su amable ayuda. Apreciado enormemente.
Respuesta1
De su solicitud original: si A2 y A3 tienen valores numéricos, entonces A4 se completará con su suma. Si no son numéricos o son nulos, A4 mostrará un error. Si se sobrescribe A4, ese valor será permanente hasta que se cambien nuevamente A2 o A3. Para agregar los nuevos requisitos: si A2 y A3 produjeron una buena suma para A4 y alguien sobrescribe A4 con un nuevo valor numérico, entonces desea que el máximo se tome entre A2+A3 y A4. Supongo que esto debería mostrarse en la celda A5.
Agregando a la respuesta original:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A2:A3")) Is Nothing Then If WorksheetFunction.Count(Range("A2:A3")) = 2 Then Range("A4").Formula = "=A2+A3" End If ElseIf Not (Intersect(Target, Range("A4"))) Is Nothing Then 'Check for numbers in a2, a3, and a4 If IsNumeric(Range("A2").Value) And IsNumeric(Range("A3").Value) And IsNumeric(Range("A4").Value) Then 'If a2+a3 is greater than a4 If Range("A2").Value + Range("A3").Value > Range("A4").Value Then 'set the sum of a2 and a3 to cell a5 Range("A5").Value = Range("A2").Value + Range("A3").Value Else 'set the value of cell a4 to cell a5 Range("A5").Value = Range("A4").Value End If End If End If End Sub