Macro que automáticamente rellene celdas de 2 en 2

[Dani2020]

Macro que automáticamente  rellene celdas de 2 en 2  cuando se escriba algún texto y  macro para que cuando se borre el contenido de celdas automáticamente se borre un rango determinado

Gracias

[Antoni]

¿?

[Dani2020]

Saludos Antoni

Ejemplo cuando escriba un texto  en la celda A1, que automáticamente se rellene con el mismo texto la calda A3, A5, A7,A9 , A11. Así sucesivamente en un rango determinado.

Y otro macro que al borrar el contenido de una celda, se borre a la vez un rango determinado   ejemplo borro A1 y se borren el Rango (E1:E20)

[Antoni]

Pon esta macro en la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
   If Target = "" Then
      Range("E1:E20").ClearContents     'Borra el rango E1:E20 si se borra A1
   Else
      Range("A3,A5,A7,A9,A11") = Target 'Duplica A1 en A3,A5,A7,A9,A11
   End If
End If
End Sub

 

[Dani2020]

Muchas Gracias Antoni