lior03
01-04-2006, 09:43 AM
hello
i am trying to insert a line in a macro that will tell how much time elapsed fro, starting the macro to the end.all this shuld be doen through the statusbar.
Sub vin()
Dim x As String
Application.StatusBar = Format("hh / mm / ss")
x = InputBox("enter criteria to filter:data should be like ????", _
"moshe's filter", Default:="filter criteria goes here")
If x = Empty Then Exit Sub
With Worksheets("projects")
.Select
.Range("c1").AutoFilter _
field:=3, _
Criteria1:=x
Application.StatusBar = ""
End With
End Sub
i know i am missing something...
thanks
i am trying to insert a line in a macro that will tell how much time elapsed fro, starting the macro to the end.all this shuld be doen through the statusbar.
Sub vin()
Dim x As String
Application.StatusBar = Format("hh / mm / ss")
x = InputBox("enter criteria to filter:data should be like ????", _
"moshe's filter", Default:="filter criteria goes here")
If x = Empty Then Exit Sub
With Worksheets("projects")
.Select
.Range("c1").AutoFilter _
field:=3, _
Criteria1:=x
Application.StatusBar = ""
End With
End Sub
i know i am missing something...
thanks