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

¿?

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)

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

 

Muchas Gracias Antoni