Jump to content
Maripi

Fórmula en números en la celda

Recommended Posts

Hola buenos días, agradecería a ver si me podéis una mano.

Estoy haciendo una macro y necesito (porque así me lo piden) que la formula guarde las cantidades que se vayan acumulando o restando sucesivamente, aunque externamente aparezca el resultado. Por ejemplo, supongamos que hay 50 y añadimos 50. Se verá 100 y en la barra de fórmulas veremos =50+50. Esto conseguí solucionarlo. El problema es que a partir de aquí, si añadimos por ejemplo 30, lo que hace es que resuelve la formula anterior y aparece =100+30 y lo que debería aparecer es =50+50+30. Lo hago más o menos como sigue:

Cells(sumar, 15).Formula = "=" & Str(.Cells(sumar, 15)) & "+" & Str(Abs(Cells(FilaOrigen, 10)))

Donde cells(sumar,15) es la celda con la fórmula y cells(filaorigen,10) es donde tenemos la cantidad a sumar.

No sólo necesito el resultado, sino que también al ponerse en la celda, se debe de poder ver de qué cantidades vino el resultado

He pensado también en utilizar Sendkey {F2} pero no sé cómo le enviaría luego el + la cantidad..

Muchas gracias de antemano

Share this post


Link to post
Share on other sites

Creo que es lo que has pedido, cada vez que cambies el valor de cualquier celda de la columna O(15) se creará/actualizará un comentario con los componentes del resultado.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 15 Then
   Set cmt = Target.Comment
   If cmt Is Nothing Then
     Target.AddComment
     Set cmt = Target.Comment
   End If
   If Trim(Target) = "" Then
      cmt.Delete
   Else
      If Target > 0 Then
         cmt.Text Text:=cmt.Text & "+" & Target & Chr(10)
      Else
         cmt.Text Text:=cmt.Text & Target & Chr(10)
      End If
      Application.EnableEvents = False
      Target.Formula = "=" & cmt.Text
      Application.EnableEvents = True
   End If
End If
End Sub

 

Descomponer fórmula.xlsm

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