Delete Row From Table

[hip2b2]

I need to modify a report (a table), based on the following:

1 - Rows 1 - 6 are report headers
2 - Data to be modified starts at row 7
3 - Data rows can be grouped, then a blank row, then another group, etc.
4 - The workbook is made up of several sheets, the report sheet is name (unsurprisingly) Report
5 - Rows to be deleted have the word "Closed" in Col L


As always thanks in advance for even looking at the problem.

Regards

hip

 

[DanteAmor]

Can you give examples of what you have and the resulting report?

 

[hip2b2]

Can you give examples of what you have and the resulting report?

This is it, the number of rows may change from report to report, but the structure will be the same with only the rows where Col K value = Closed are to be deleted.

Thanks

Book1
	A	B	C	D	E	F	G	H	I	J	K
1		Header
2		Header 2
3		Header3
4
5		Family	Class		Date 1		Date 2		Date 3		Comments
6
7		Name 1	8,10,12		Dec 14, 2018		Dec 28, 2018		Jan 16, 2019
8		Name 2	8,10,12		Jan 21, 2019		Feb 4, 2019		Feb 22, 2019
9
10		Name 3	8,10,12		Dec 19, 2018		Jan 2, 2019		Jan 24, 2019		Closed
11		Name 4	8,10,12		Jan 4, 2019		Jan 18, 2019		Feb 10, 2019
12		Name 5	8,10,12		Jan 25, 2019		Feb 8, 2019		Mar 2, 2019
13		Name 6	8,10,12		Feb 11, 2019		Feb 25, 2019		Mar 20, 2019
14
15		Name 7	8,10,12		Dec 7, 2018		Dec 21, 2018		Jan 11, 2019		Closed
16		Name 8	8,10,12,14		Dec 24, 2018		Jan 8, 2019		Jan 30, 2019		Closed
17		Name 9	8,10,12		Jan 10, 2019		Jan 24, 2019		Feb 15, 2019
18		Name 10	8,10,12,14		Feb 1, 2019		Feb 15, 2019		Mar 8, 2019
19
20		Nane 11	8,10,12		Dec 10, 2018		Dec 24, 2018		Jan 13, 2019		Closed
21		Name 12	8,10,12,14		Jan 16, 2019		Jan 30, 2019		Feb 19, 2019
22
23		Name 13	8,10,12		Dec 14, 2018		Dec 28, 2018		Jan 20, 2019		Closed
24		Name 14	10, 12		Jan 2, 2019		Jan 16, 2019		Feb 6, 2019
25		Name 15	8,10,12		Jan 21, 2019		Feb 4, 2019		Feb 26, 2019
26		Name 16	10, 12		Feb 7, 2019		Feb 21, 2019		Mar 15, 2019
27
28		Name 17	8,10,12		Dec 24, 2018		Jan 7, 2019		Jan 25, 2019		Closed
29		Name 18	8,9,10		Jan 15, 2019		Jan 29, 2019		Feb 17, 2019
30		text 123
31
32
33	*	text
34	**	text
35		text
36
37		text
38
39		text
For acct mng

 

[DanteAmor]

If I understood correctly, do you just want to delete the rows of the "unsurprisingly" sheet? If it is correct, then use the following macro.

Sub Macro1()
    Application.ScreenUpdating = False
    Set h = Sheets("unsurprisingly")
    If h.AutoFilterMode Then h.AutoFilterMode = False
    u = h.Range("K" & Rows.Count).End(xlUp).Row
    h.Range("A6:K" & u).AutoFilter Field:=11, Criteria1:="Closed"
    Rows("7:" & u).Delete Shift:=xlUp
    If h.AutoFilterMode Then h.AutoFilterMode = False
    Application.ScreenUpdating = True
End Sub

Or you want to group all the sheets inside the sheet "unsurprisingly" but without the rows with the text "Closed".

Let me know any detail.

 

[hip2b2]

If I understood correctly, do you just want to delete the rows of the "unsurprisingly" sheet? If it is correct, then use the following macro.

Sub Macro1()
    Application.ScreenUpdating = False
    Set h = Sheets("unsurprisingly")
    If h.AutoFilterMode Then h.AutoFilterMode = False
    u = h.Range("K" & Rows.Count).End(xlUp).Row
    h.Range("A6:K" & u).AutoFilter Field:=11, Criteria1:="Closed"
    Rows("7:" & u).Delete Shift:=xlUp
    If h.AutoFilterMode Then h.AutoFilterMode = False
    Application.ScreenUpdating = True
End Sub

Or you want to group all the sheets inside the sheet "unsurprisingly" but without the rows with the text "Closed".

Let me know any detail.

Works perfectly, 10^6 Thanks

Regards

hip

 

[DanteAmor]

I'm glad to help you