Para este post debiera haber creado una nueva etiqueta, algo así como "técnicas complicadas para resolver problemas no tan graves existiendo otras técnicas más sencillas". Pero como resulta un poco largo seguramente terminaré endosándole la lacónica etiqueta "Macros".
La situación es la siguiente: en una hoja de Excel hay datos numéricos "desparramados" en varias celdas; la misión es sumar todos los valores y poner el resultado en una única celda. Esta celda debe contener un valor constante, no una fórmula. A los efectos del ejemplo uso una única hoja; el problema real comprendía varias hojas.
¿Cuáles son las opciones?
- Tomar un papel y un lápiz, hacer la cuenta y teclear el resultado.
- Totalizar los datos en una celda, copiar el resultado y pegarlo en la celda indicada como valor.
- Usar una macro para agilizar el proceso.
La primera opción es una broma. El problema con la segunda opción es lo tedioso del proceso.
Nos queda así la opción de la macro, que es la que utilice al enfrentarme con el problema.
El código de la macro es la siguiente
Sub copy_and_sum()
Dim rngCell As Range, dblTemp As Double
Dim dblTotSum As New DataObject
For Each rngCell In Selection
If IsNumeric(rngCell) Then
dblTemp = dblTemp + rngCell
End If
Next rngCell
With dblTotSum
.SetText dblTemp
.PutInClipboard
End With
End Sub
Dim rngCell As Range, dblTemp As Double
Dim dblTotSum As New DataObject
For Each rngCell In Selection
If IsNumeric(rngCell) Then
dblTemp = dblTemp + rngCell
End If
Next rngCell
With dblTotSum
.SetText dblTemp
.PutInClipboard
End With
End Sub
Para utilizar la macro comenzamos por seleccionar las celdas que queremos totalizar (clic a la primer celda y Ctrl-Clic a las restantes); luego activamos la macro (con ALT-F8 o un atajo de teclado); la macro suma los valores numéricos de las celdas y copia el total al Clipboard. Finalmente usamos Ctrl-V o Pegar para pegar el valor en la celda correspondiente.
Esta macro usa el objeto DataObject por lo que hay que activar la referencia al Microsoft Forms 2.0 Object Library.
A pesar de que este objeto está definido para copiar texto al Clipboard, podemos ver que también lo hará con valores numéricos y lo que es más importante, nos permitirá ir sumándolos.
En la primera parte del código usamos un loop For Each Next para asignar los valores numéricos a la variable dblTemp e ir sumándolos. En la segunda parte del código empezamos por asignar el valor de dblTemp al objeto dblTotSum para luego copiarlo al Clipboard con el método PutinClipboard.
