Thank you Mandeep !!!
Now i got it.
Regards
Eugene
On Thu, Mar 5, 2015 at 4:49 PM, Mandeep baluja
wrote:
> giving correct results which is going in g7 and g8 what else do you want
>
> Sub test()
> ThisWorkbook.Activate
> mynum = "dw*"
> Cells(1, 25).Value = (mynum)
> ActiveSheet.ListObjects("T
giving correct results which is going in g7 and g8 what else do you want
Sub test()
ThisWorkbook.Activate
mynum = "dw*"
Cells(1, 25).Value = (mynum)
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1,
Criteria1:=mynum
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
Mandeep,
Thanks for the reply. But this is not my requirement.
Please see the below macro.
Sub test()
ThisWorkbook.Activate
mynum = Application.InputBox("Enter a Code")
Cells(1, 25).Value = (mynum)
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1,
Criteria1:=mynum
End Sub
The user in
check this there are many method but i am using this.
Regards,
Mandeep Baluja
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, a
