Al cambiar una celda se cambien otras
Tratare de ser breve y conciso, en una Hoja necesito que al escribir por ejemplo en A10, 10%, se modifiquen las cantidades escritas en A12, A13, A14... A20( que es en las celdas que escribo precios unitarios). No me funcionarían fórmulas en esas celdas por que siempre se rellenan con datos diferentes (precios), no se si con una macro... Pero agradecería la ayuda posible. Gracias
1 Respuesta
Respuesta de Elsa Matilde
1
Necesitas una macro que te controle lo que ingresas en A1.
Entrá al Editor, seleccioná con doble clic el objeto HOJA que corresponda (del panel a tu izquierda) y escribí esto:. Luego vemos cómo ajustarlo
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'controla los cambios en A1
If Target.Address <> "$A$1" Then Exit Sub
'cambiar celdas en col A
N = 20 'se establece el fin de rango
For i = 2 To N
Range("A" & i) = Range("A" & i) * Target.Value
Next i
End Sub
Lo que hará es recorrer el rango A2:A20 y multiplicar el contenido de sus celdas por el de A1. Cambiá la fórmula que imaginé por la que corresponda.
Sdos. Si el tema queda comprendido y resuelto no dejes la consulta sin finalizar
Entrá al Editor, seleccioná con doble clic el objeto HOJA que corresponda (del panel a tu izquierda) y escribí esto:. Luego vemos cómo ajustarlo
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'controla los cambios en A1
If Target.Address <> "$A$1" Then Exit Sub
'cambiar celdas en col A
N = 20 'se establece el fin de rango
For i = 2 To N
Range("A" & i) = Range("A" & i) * Target.Value
Next i
End Sub
Lo que hará es recorrer el rango A2:A20 y multiplicar el contenido de sus celdas por el de A1. Cambiá la fórmula que imaginé por la que corresponda.
Sdos. Si el tema queda comprendido y resuelto no dejes la consulta sin finalizar
