Anónimo
Borrado automático
Hola.
Necesito que cuando introduzca cualquier valor en una celda del rango A2:A1000 se borre automáticamente el contenido de las otras celdas de dicho rango.
¿Puede hacerse?
Necesito que cuando introduzca cualquier valor en una celda del rango A2:A1000 se borre automáticamente el contenido de las otras celdas de dicho rango.
¿Puede hacerse?
1 respuesta
Respuesta de snaki Fco
1
Pon lo siguiente en la vb de la hoja en donde deseas utilizar la macro
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celda
If Target.Column = 1 Then
celda = Target.Address
If celda >= "$A$2" Or celda <= "$A$1000" Then
Range("$A$1001:" & Range("A1001").End(xlDown).Address).Delete
End If
End If
End Sub
Para cuando quieras estaré ayudando con mis conocimientos
Suerte!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celda
If Target.Column = 1 Then
celda = Target.Address
If celda >= "$A$2" Or celda <= "$A$1000" Then
Range("$A$1001:" & Range("A1001").End(xlDown).Address).Delete
End If
End If
End Sub
Para cuando quieras estaré ayudando con mis conocimientos
Suerte!