Pregunta para dante seleccionar rango
Tomemos un rango de columnas desde la A hasta la ES supongamos que me ubique en cualquier celda siempre dentro del rango de las columnas A y ES por ej elijo B8 necesito que por medio de una macro me marque toda la fila desde A8 hasta S8 y que me borre todo el contenido de esas celdas y así sucesivamente donde yo me pocisione
Gracias
1 Respuesta
Te anexo la macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("A:S")) Is Nothing Then
Range("A" & Target.Row & ":S" & Target.Row).ClearContents
End If
End SubRecuerda que si tienes otros eventos que se activen cuando ejecutas esta macro debes deshabilitar los eventos, también en cada macro que utilices Application.EnableEvents = False, sería conveniente que pusieras un on error para que habilite los eventos en caso de error, por ejemplo:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("A:S")) Is Nothing Then
Application.EnableEvents = False
Range("A" & Target.Row & ":S" & Target.Row).ClearContents
On Error GoTo habilitar
Application.EnableEvents = True
End If
habilitar:
Application.EnableEvents = True
End Sub
¡Gracias! Dante esto esta perfecto pero revisa el archivo que te mande y apretá el botón borrar vas a ver
Listo, esto ya te lo envié
