Saber como darle el mismo valor a todas las celdas de un rango de una columna.
necesito saber coma hacer para que un determinado rango de una columna EJ.:(D10:D1500) sea igual al valor de una determinada celda EJ. A1
O sea que si A1 es = 38 todo el rango de la columna D sea = A 38 Y si cambio el valor de A1 cambie también el valor de dicho rango de celdas
muchas gracias
1 Respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución. Tenemos que programar el evento change de la hoja en la que estamos trabajando para que cuando modifiques el contenido de la celda A1 se autoejecute la macro y haga lo que pides. Para ello copia esta macro dentro del objeto hoja en la que estás, no en un módulo
Ahora cuando introduzcas cualquier valor en la celda A1 de dicha hoja se rellenarán automáticamente las celdas D10:D1500 con ese mismo valor.
Private Sub Worksheet_Change(ByVal Target As Range)
'por luismondelo
If Target.Address = "$A$1" Then
valor = Target.Value
For Each celda In Range("d10:d1500")
celda.Value = valor
Next
End If
End Subrecuerda finalizar la consulta
