DISTRIBUCIÓN PRIMARIA DEL INGRESO
Enviado por Erick Santillan • 11 de Noviembre de 2018 • Ensayos • 614 Palabras (3 Páginas) • 332 Visitas
Sub CEDULASCB()
Sheets("4").Select
Range("A25:AN50000").ClearContents
Sheets("7").Select
Range("A25:AN50000").ClearContents
Sheets("8").Select
Range("A25:AN50000").ClearContents
Sheets("9").Select
Range("A25:AN50000").ClearContents
Sheets("10").Select
Range("A25:AN50000").ClearContents
Sheets("11").Select
Range("A25:AN50000").ClearContents
Sheets("13").Select
Range("A25:AN50000").ClearContents
'Opcional
'Application.ScreenUpdating = False
Sheets("15").Select
Range("E1").Select
Do While Not IsEmpty(ActiveCell)
x = WorksheetFunction.CountIf(Range("E:E"), ActiveCell)
If x > 1 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Range("E1").Select
'Opcional
'Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("15").Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=38, Criteria1:="NO DOCUMENTADO"
Range("A:AN").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("7").Select
Range("A24").Select
ActiveSheet.Paste
Sheets("15").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
Selection.AutoFilter
Application.ScreenUpdating = False
Sheets("15").Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=32, Criteria1:="FUERA PERFIL"
Range("A:AN").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("8").Select
Range("A24").Select
ActiveSheet.Paste
Sheets("15").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
Selection.AutoFilter
Application.ScreenUpdating = False
Sheets("15").Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=31, Criteria1:="Perfil 0"
Range("A:AN").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("9").Select
Range("A24").Select
ActiveSheet.Paste
Sheets("15").Select
...