Macros para filtrar, conservar y guardar datos de acuerdo al día en curso
Tengo esta macro el cual guarda información de acuerdo al día en curso:
Sheets("REPORTE DE SERVICIOS").Unprotect password:="28021990"
Range("G9").Select
Selection.Copy
Range("L24").Select
Sheets("REPORTE DE SERVICIOS").Select
ActiveWindow.SmallScroll Down:=6
Range("B3503").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("NUEVO SERVICIO A DOMICILIO").Select
Range("E6").Select
Application.CutCopyMode = False
Selection.Copy
Range("L24").Select
Sheets("REPORTE DE SERVICIOS").Select
Range("C3503").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("NUEVO SERVICIO A DOMICILIO").Select
Range("H14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("REPORTE DE SERVICIOS").Select
Range("D3503").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("B6:D3503").Select
Range("B3503").Activate
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("REPORTE DE SERVICIOS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("REPORTE DE SERVICIOS").Sort.SortFields.Add Key:= _
Range("C6:C3503"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("REPORTE DE SERVICIOS").Sort
.SetRange Range("B6:D3503")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B6").Select
Sheets("NUEVO SERVICIO A DOMICILIO").Select
Sheets("REPORTE DE SERVICIOS").Protect password:="28021990"
(la fecha es celda E6)
El cual al ir a la hoja REPORTE DE SERVICIOS me debería filtrar los servicios que se hicieron de acuerdo al día en curso..
tengo una macro pero no me conserva dias anteriores mas que solo el dia en curso:
Application.ScreenUpdating = False
Sheets("REPORTE DE SERVICIOS").Select
Range("J5").Select
Sheets("REPORTE DE SERVICIOS").Unprotect password:="28021990"
ActiveSheet.Range("$C$4:$H$3503").AutoFilter Field:=1, Criteria1:= _
xlFilterToday, Operator:=xlFilterDynamic
Sheets("REPORTE DE SERVICIOS").Protect password:="28021990"
1 Respuesta
Esta es la macro
Sub IR_REPORTE_SERVICIOS()
'
' IR_REPORTE_SERVICIOS Macro
' TE LLEVA AL REPORTE DE LOS SERVICIOS
'
' Acceso directo: Ctrl+Mayús+Z
Application.ScreenUpdating = False
Sheets("REPORTE DE SERVICIOS").Select
'Range("J5").Select
Sheets("REPORTE DE SERVICIOS").Unprotect password:="28021990"
u = Range("C" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$C$4:$H" & u).AutoFilter Field:=1, Criteria1:="<>"
Sheets("REPORTE DE SERVICIOS").Protect password:="28021990"
Application.ScreenUpdating = True
End Sub
