Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub transfer_icbr(id As String) Dim shtF As Worksheet, shtT As Worksheet Dim lNumRows As Long Dim lastUpdate As String lastUpdate = "29/01/2014" 'turn off updates to speed up code execution -> With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual .DisplayAlerts = False End With startDate = lastUpdate Set shtT = ThisWorkbook.Sheets("details") Set shtF = ThisWorkbook.Sheets("rec") With shtT.Range("details") .AutoFilter .AutoFilter Field:=1, Criteria1:= _ ">=" & Format(startDate, "mm/dd/yyyy"), Operator:=xlAnd, Criteria2:="<=" & Format(startDate, "mm/dd/yyyy") .AutoFilter Field:=5, Criteria1:="=id" .Offset(1).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("rec").Range("rec") .AutoFilter End With With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic .DisplayAlerts = True End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.