Macro eliminar filas desde una celda que esta siempre combinada desde la columna A hasta la J, hasta última fila con contenido.
Necesito una macro que elimine todas las filas que hay desde una fila que siempre contiene una celda combinada, en todos los casos, desde la columna A hasta la columna J, hasta la última fila que tenga contenido.
1 Respuesta
Aquí te dejo esta macro
Sub Clear_AJ()
'
' Limpia todos los campos de la columna A hasta la J
'
Application.ScreenUpdating = False
Columns("A:I").Select
Selection.ClearContents
'
' Borra cualquier celda combinada que haya en ese rango
'
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
'
' Quita cualquier color de celda que haya en dichas celdas
'
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
'
' Esta linea es para que se posicione en la celda A1
'
Range("A1").Select
Application.ScreenUpdating = True
End SubLos parametros " Application.ScreenUpdating = True " son para que no haga el pantallazo cuando se esta ejecuntando la Macro
Saludos.. =)
Perdon "Application.ScreenUpdating" seria el parametro, "True o False" seria la condicion xD jeje
Pruebalo y me dices si es lo que buscabas...
Saludos =)
Re leyendo bien tu pregunta no se si la macro te sirvió de algo je je
Te dejo aquí 2 más
Esta hace lo mismo que la otra pero es más resumida:
Sub Limpiar_AJ()
'
' Limpia,Borra celdas combinadas,elimina bordes
'
Application.ScreenUpdating = False
Columns("A:J").Select
With Selection
.ClearContents
.MergeCells = False
End With
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Borders.LineStyle = xlNone
Range("A1").Select
Application.ScreenUpdating = True
End SubEsta elimina las columnas desde la A hasta la J creo que era esto lo que tu querias jeje
Sub Eliminar_AJ()
'
' Elimina filas de A hasta la J
'
Application.ScreenUpdating = False
Columns("A:J").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Application.ScreenUpdating = True
End SubSaludos =)
