Remove data

[vijaychennai]

Hello all,

I have excel file in the below .

Excel Workbook
	A	B
1	Contract	Split number
2	20954371	2.08021E+11
3	20954371	2.08021E+11
4	21748043	2.08022E+11
5	21901188	2.08022E+11
6	Contract	2.08022E+11
7	22366372	2.08022E+11
8	22366372	2.08022E+11
9	22399407	2.08022E+11
10	22399407	2.08022E+11
11	22399407	2.08022E+11
12	22399407	2.08022E+11
13	22399407	2.08022E+11
14	Contract	2.08022E+11
15	22478644	2.08022E+11
16	22480636	2.08022E+11
17	22480636	2.08022E+11
18	22480665	2.08022E+11
19	Contract	Split number
20	21992082	2.48322E+11
21	22225655	2.48322E+11
Sheet1

I Need to Remove Entire data "contact"

Answer :

Excel Workbook
	A	B
1	Contract	Split number
2	20954371	2.08021E+11
3	20954371	2.08021E+11
4	21748043	2.08022E+11
5	21901188	2.08022E+11
6	22366372	2.08022E+11
7	22366372	2.08022E+11
8	22399407	2.08022E+11
9	22399407	2.08022E+11
10	22399407	2.08022E+11
11	22399407	2.08022E+11
12	22399407	2.08022E+11
13	22478644	2.08022E+11
14	22480636	2.08022E+11
15	22480636	2.08022E+11
16	22480665	2.08022E+11
17	21992082	2.48322E+11
18	22225655	2.48322E+11
Sheet1

Please help me give VBA Code.

Thanks

 

[VoG]

Try

Sub atest()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    If Range("A" & i).Value = "Contract" Then Rows(i).Delete
Next i
End Sub

 

[buxtongt]

Something like:

ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="Contract"     Rows("2:2").Select     Range(Selection, Selection.End(xlDown)).Select     Selection.Delete Shift:=xlUp     ActiveSheet.Range("A:A").AutoFilter Field:=1

should work, even though its not the pure VBA route. Hope this helps.
</pre>

 

[vijaychennai]

Thanks VOG....