VBA Code : Filter selection and then Delete All Rows.

[punnipah]

Hi,


I Would like to Select Columns "I" and Filter Select "63259" Only Also delete all Rows.



please Help VBA Code : Filter the Selection.Thank You Very much

A	B	C	D	E	F	G	H	I
ลำดับ (No.)	เลขที่รายการ (Transaction ID)	เลขที่รายการของร้านค้า (Merchant Transaction ID)	วัน – เวลา (Date-Time)	รหัสลูกค้า (Customer ID)	จำนวนเงิน (Transacted value)	สถานะ (Transaction status)	การปรับปรุงรายการ (Modified transaction)	สาขา (Branch)
1	7258433681	5039029_1	1/5/2022 10:09		5299	SUCCESS	NORMAL	1137
2	7258441847	5038902_1	1/5/2022 10:16		2490	SUCCESS	NORMAL	63259
3	7258441955	5039047_1	1/5/2022 10:16		4590	SUCCESS	NORMAL	63259
4	7258443208	5039053_1	1/5/2022 10:17		20500	SUCCESS	NORMAL	1220
5	7258443841	5039057_1	1/5/2022 10:17		37900	SUCCESS	NORMAL	1204
6	7258444868	5039052_1	1/5/2022 10:18		12900	SUCCESS	NORMAL	1171
7	7258450119	5039078_1	1/5/2022 10:22		5990	SUCCESS	NORMAL	1137
8	7258460028	5039063_1	1/5/2022 10:30		4990	SUCCESS	NORMAL	63259
9	7258480158	5039173_1	1/5/2022 10:46		28900	SUCCESS	NORMAL	1220
10	7258506614	5039247_1	1/5/2022 11:08		12900	SUCCESS	NORMAL	1224
11	7258512466	5039254_1	1/5/2022 11:13		7024	SUCCESS	NORMAL	1206
12	7258513580	5039268_1	1/5/2022 11:13		10489	SUCCESS	NORMAL	1229
13	7258514235	5039280_1	1/5/2022 11:14		5299	SUCCESS	NORMAL	1155
14	7258514795	5039269_1	1/5/2022 11:14		4989	SUCCESS	NORMAL	1210
15	7258515286	5039266_1	1/5/2022 11:15		4489	SUCCESS	NORMAL	1204
16	7258516011	5039282_1	1/5/2022 11:15		8900	SUCCESS	NORMAL	1213
17	7258517849	5039241_1	1/5/2022 11:17		3429	SUCCESS	NORMAL	63259
18	7258524359	5039315_1	1/5/2022 11:22		9499	SUCCESS	NORMAL	1157
19	7258525166	5039316_1	1/5/2022 11:23		8900	SUCCESS	NORMAL	1136
20	7258525400	5039233_1	1/5/2022 11:23		2845	SUCCESS	NORMAL	63259

The desired result : In The Below

A	B	C	D	E	F	G	H	I
ลำดับ (No.)	เลขที่รายการ (Transaction ID)	เลขที่รายการของร้านค้า (Merchant Transaction ID)	วัน – เวลา (Date-Time)	รหัสลูกค้า (Customer ID)	จำนวนเงิน (Transacted value)	สถานะ (Transaction status)	การปรับปรุงรายการ (Modified transaction)	สาขา (Branch)
2	7258441847	5038902_1	1/5/2022 10:16		2490	SUCCESS	NORMAL	63259
3	7258441955	5039047_1	1/5/2022 10:16		4590	SUCCESS	NORMAL	63259
8	7258460028	5039063_1	1/5/2022 10:30		4990	SUCCESS	NORMAL	63259
17	7258517849	5039241_1	1/5/2022 11:17		3429	SUCCESS	NORMAL	63259
20	7258525400	5039233_1	1/5/2022 11:23		2845	SUCCESS	NORMAL	63259

 

[Jon von der Heyden]

Hi

Perhaps:

Sub foo()
    Dim lngLastRow          As Long
    Dim rngFilter           As Excel.Range
    
    Const strCriteria       As String = "63259" '<-- you can change your filter criteria here
    
    With Sheets("Sheet1") '<-- needs to reference your sheet name
        lngLastRow = .Cells(.Rows.Count, "I").End(xlUp).Row
        Set rngFilter = .Range("I1:I" & lngLastRow)
    End With
    
    With rngFilter
        Call .AutoFilter(Field:=1, Criteria1:="<>" & strCriteria)
        .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Interior.ColorIndex = 3
        'Call .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete '<-- This code will delete the other stuff
        Call .AutoFilter
    End With
    
End Sub

This code highlights the rows to delete in red. Use that to test it first. If it works then you can uncomment the line of code that does the delete.

Hope this helps.

 

[punnipah]

It's a very good Code.Thank you For Help.^^