.
Hola, María
Pues es muy parecido a lo que te pasé.
Deberías copiar la celda de la izquierda H7 y darle Pegado Especial - Valores - Multiplicar
Desde luego el 22 se transformará en 343.52, dado que sería igual a 22*(381/366*15)
Si, eventualmente, quisieras hacerlo por código de VBA, podrías usar el siguiente:
Sub Reform()
'
' Atajo Ctrl + O
'
ActiveCell.Offset(0, 1).Copy
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub
Alternativamente, esta otra rutina "edita" el contenido de la celda y le agrega el resto de la fórmula, quedando indicada en la celda. La anterior sólo deja el resultado
Sub Reform()
'
' Atajo Ctrl + O
'
With ActiveCell
.Formula = "=" & .Value & "*(" & .Offset(0, 1).Address(False, False) & "/366*15)"
.NumberFormat = "0"
End With
End Sub
Cualquiera de estas macros actúan con la celda activa.
Por ello, tal vez quieras asignarle un atajo a esta macro de forma tal que puedas utilizarla más fácilmente en cada hoja.
"Vista" | "Macros" (o con atajo: Alt + F8)
Selecciona allí (un sólo click sobre) la nueva rutina ingresada y presiona el botón "Opciones". En la pantalla siguiente ingresa una letra a la que quieres asociar la macro. Por supuesto evita aquellas que ya están siendo utilizadas por MS Excel como atajo (v.g. Ctrl + C, Ctrl + X, etc)
Luego de aceptar, cuando presiones Ctrl más la letra indicada, la macro se ejecutará instantáneamente. Si fuese una letra que ya usa MS Excel, tendrás que presionar Ctrl + [Shift o tecla para Mayúsculas] + [Letra asignada]
Avisame si está OK asi.
Saludos
Fernando
.