Prorrateo en excel

Saludos,
No estoy seguro que su nombre sea prorrateo, pero bueno así lo llamo yo.
Existe alguna función o que haga algo más o menos así:
N = (N1 * C1 + N2 * C2 + ... Nn * Cn)/
(N1 + N2 + ... Nn)
(Siendo N y C, cualquiera celda!).
No he encontrado ni podido crear algo parecido.
¿Cómo podría crear una función que pudiese usar desde la hoja?
Gracias
XD

1 respuesta

1
Respuesta de
Pues no se si exista lago similar... en todo caso te hice una función que te hace el cálculo solicitado (lo que entendí, ¿eso es como una serie de yonosequé cierto? Me parece que cuando vi cálculo integral vi algo similar)
La función es la siguiente:
Function Prorrateo(N As Range, C As Range) As Double
Dim i As Integer
Dim Suma As Double
Dim Resultado As Double
Dim Rango1 As Range
Dim Rango2 As Range
Set Rango1 = N
Set Rango2 = C
Var = N.Cells.Count
If Rango1.Cells.Count = Rango2.Cells.Count And _
Rango1.Columns.Count = 1 And _
Rango2.Columns.Count = 1 Then
For i = 1 To Rango1.Cells.Count
Debug.Print
Resultado = Resultado + (Rango1.Cells(i).Value * Rango2.Cells(i).Value)
Suma = Suma + Rango1.Cells(i).Value
Next i
End If
Prorrateo = Resultado / Suma
Set Rango1 = Nothing
Set Rango2 = Nothing
End Function
Pégala en el editor de VBA en un módulo nuevo, eso te permitirá visualizar la función por insertar función y en categoría seleccionas Definidas por el Usuario, la función te va a pedir dos rangos de valores, el primero corresponde a las N y el segundo a las C.
Los rangos deben ser iguales en tamaño y los valores deben estar distribuidos en columnas... prúebalo y me cuentas.
Si no me explico bien o algo es muy complicado envíame tu dirección de mail y te envío un libro que tiene incorporada la función para que la veas funcionando.
De lo contrario te agradeceré finalizar la pregunta con una valoración acorde con la calidad y oportunidad de la respuesta.
Cordialmente,
Cesar mera
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje