P
pauluk
Hi People,
What i require is the results i get from the below code to be place i
sheet2.
So when the count says 13 of 42 the number 13 is placed in cell A4 i
sheet2
'--------------------------------------------------------------------------------
Dim rng As Range
Dim strStart As String
Sheets("Telephone Stats").Select
Set rng = ActiveSheet.AutoFilter.Range
strStart = InputBox("Please enter start date, (dd/mm/yyyy)", "Extrac
Maker: Start Date")
Selection.AutoFilter Field:=7, Criteria1:=">="
CLng(CDate(strStart)), Operator:=xlAnd, _
Criteria2:="<=" & CLng(CDate(strStart))
MsgBox rng.Columns(1). _
SpecialCells(xlVisible).Count - 1 _
& " of " & rng _
.Rows.Count - 1 & " Records"
ActiveSheet.ShowAllData
Sheets("Manager Checks").Select
'-------------------------------------------------------------------------------
Regards
Pau
What i require is the results i get from the below code to be place i
sheet2.
So when the count says 13 of 42 the number 13 is placed in cell A4 i
sheet2
'--------------------------------------------------------------------------------
Dim rng As Range
Dim strStart As String
Sheets("Telephone Stats").Select
Set rng = ActiveSheet.AutoFilter.Range
strStart = InputBox("Please enter start date, (dd/mm/yyyy)", "Extrac
Maker: Start Date")
Selection.AutoFilter Field:=7, Criteria1:=">="
CLng(CDate(strStart)), Operator:=xlAnd, _
Criteria2:="<=" & CLng(CDate(strStart))
MsgBox rng.Columns(1). _
SpecialCells(xlVisible).Count - 1 _
& " of " & rng _
.Rows.Count - 1 & " Records"
ActiveSheet.ShowAllData
Sheets("Manager Checks").Select
'-------------------------------------------------------------------------------
Regards
Pau