primero determino un rango lo organiza , pero previo elimina las filas que no cumplen cierta condición, en esta eliminación puede resultar que solo quede una sola fila o no quede ninguna, la ideas es que si queda una fila o ninguna la instruccion "Range(Range("A1"), Selection.End(xlDown)).Offset(1, 0).EntireRow.Delete", no se ejectua correctamente, es por eso que necesito una condicion que si la suma de las filas de la columna A>2 entonces se ejecute la intruccion " Range(Range("A1"), Selection.End(xlDown)).Offset(1, 0).EntireRow.Delete", de lo contrario se salte esta intrccucion y ejecute la siguiente accion "Columns("B:B").Delete"
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
tengo las siguientes intrucciones:
Range("A:E").Select
ActiveWorkbook.Worksheets("RevicionSubCta").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("RevicionSubCta").Sort.SortFields.Add Key:=Range( _
"B2:B" & u & ""), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("RevicionSubCta").Sort
.SetRange Range("A1:E" & u & "")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(Range("A1"), Selection.End(xlDown)).Offset(1, 0).EntireRow.Delete
Columns("B:B").Delete
primero determino un rango lo organiza , pero previo elimina las filas que no cumplen cierta condición, en esta eliminación puede resultar que solo quede una sola fila o no quede ninguna, la ideas es que si queda una fila o ninguna la instruccion "Range(Range("A1"), Selection.End(xlDown)).Offset(1, 0).EntireRow.Delete" , no se ejectua correctamente, es por eso que necesito una condicion que si la suma de las filas de la columna A>2 entonces se ejecute la intruccion " Range(Range("A1"), Selection.End(xlDown)).Offset(1, 0).EntireRow.Delete", de lo contrario se salte esta intrccucion y ejecute la siguiente accion "Columns("B:B").Delete"