Excel, Misma fórmula en diferentes celdas con resultados diferentes dependiendo del cambio del valor de las variables.
Como puedo hacer para que al copiar una fórmula en una celda me de un resultado y al copiar la misma fórmula en otra celda me aplique la misma fórmula pero que si se ha cambiado las variables, de el resultado que es, ¿y qué la anterior siga con el resultado de las variables anteriores?
1 Respuesta
Si tienes en la celda C2 la fórmula A2 + B2 y cambias el valor en A o en B, por ejemplo:
2 + 5 en C2 = 7
El resultado de la fórmula siempre cambiará. Si copias la fórmula en D2, es decir, en D2 tienes A2 + B2, por ejemplo
2 + 8, en C2 = 10 y en D2 = 10
Supongo que en C2 quieres conservar el 7 y en D2 quieres el 10.
Eso solamente es posible con una macro. La macro realizará suma y el resultado lo pondrá en C2, si algo cambia, la macro solamente modificará el resultado en D2, mientras que C2 conservará el resultado.
Si quieres la macro, tienes que explicarme con detalle, la secuencia de pasos que vas a realizar y en dónde quieres el resultado en cada paso.
Exactamente eso es lo que quiero, ¿cómo podría empezar esa macro?
Con esto:
Si quieres la macro, tienes que explicarme con detalle, la secuencia de pasos que vas a realizar y en dónde quieres el resultado en cada paso.
Los resultados que den en la hoja llamada "sector1" ubicados en J3:J7 den en la hoja "pedido" en E5:I5 y de esa forma 5 veces ya que son cinco sectores y luego, otra vez el mismo primer cuadro de resultados de la hoja "pedidos" abajo y seria ya otros resultados. No se si me hago entender?
Si quieres puedo enviarte el excel para que puedas observarlo mejor
Envíame tu archivo, pero tienes que explicar paso a paso qué quieres hacer y cómo se debe ir actualizando la hoja "pedido"
Es decir,
Paso 1, vas a la "hoja1", en la celda "j3" pones el dato 5,
Paso 2, qué debe suceder en la "hoja2".
Todo explicado con datos reales.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Camilo Ernesto Mondragon Rodriguez”
Vale muchas gracias Dante
Te anexo la macro para que la pongas en los eventos del libro
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Por Dante Amor
Select Case Left(Sh.Name, 6)
Case "Sector"
If Not Intersect(Target, Sh.Range("D:D, G:G")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Set h2 = Sheets("PEDIDO")
sector = Val(Right(Sh.Name, 1))
numsem = Format(WorksheetFunction.WeekNum(Date, 2), "00")
semana = Format(Date, "yy") & numsem
Set b = h2.Columns("A").Find(Val(semana), lookat:=xlWhole)
If Not b Is Nothing Then
fila = b.Row
fila = sector - 1
'miércoles
b.Offset(fila, 2) = Sh.Range("J6")
b.Offset(fila, 3) = Sh.Range("J7")
b.Offset(fila, 4) = Sh.Range("J5")
b.Offset(fila, 5) = Sh.Range("J4")
b.Offset(fila, 6) = Sh.Range("J8")
'sábado
b.Offset(fila, 9) = Sh.Range("L6")
b.Offset(fila, 10) = Sh.Range("L7")
b.Offset(fila, 11) = Sh.Range("L5")
b.Offset(0, 12) = WorksheetFunction.Sum(h2.Range(h2.Cells(b.Row, "N"), h2.Cells(b.Row + 4, "N"))) * _
Sheets("No modificar").Range("S6")
b.Offset(fila, 13) = Sh.Range("L4")
b.Offset(fila, 14) = Sh.Range("L8")
Else
End If
End If
End Select
End Sub.
. S aludos. Dante Amor. R ecuerda valorar la respuesta. G racias
.
