Sub Macro1()
Dim rng as Range
if Activesheet.AutoFilterMode then
Activesheet.AutofilterMode = False
End If
Set rng = Range("A1").CurrentRegion
rng.AutoFilter Field:=1, Criteria1:=Userform1.Textbox1
End Sub
--
Regards,
Tom Ogilvy


"salihyil " wrote in message
...
Hi Guys

i have 200 learner with their details.
A1:USername
B1: Access Date
C1:Time
D1:Period

i want to Create UserForm because end-user wants it. and i would like
to use TextBox to Autofilter by Username.

when end-user enters username; all username details shoudl be
filtered.

i wish u guys can help me

i just need VB Codes.

thanks


---
Message posted from http://www.ExcelForum.com/