How erase the lines in a table if the meet the following conditions.

[Romano_odK]

Good afternoon,

Before me I have a table that is called "Locaties". In that table I have the column H, I and J that should always be filled. Now I want to achieve is that when I push a button alle the lines will be erases if either H,I or J is not filled. So they always need to be filled, all 3 of them.
This table starts with the headers on line 5.

Is it possible to do this? Thank you for your time,

Romano

Locatie overslag 1.57u.xlsm
	A	B	C	D	E	F	G	H	I	J
5	Artikelcode	Omschrijving	Kostprijs	Vrrdrek	Magazijn	Locatie	Voorraad	van Locatie	naar Locatie	Aantal
6	100000	Vito Glaserfix 111 6x2 mm wit - 10x25 m	6,70	3901	1	P02B	1331	P02B		1331
7	100001	Vito Glaserfix 111 6x2 mm zwart - 10x25 m	6,70	3901	1	P04B	1060	P04B		1060
8	100002	Vito Glaserfix 111 6x3 mm wit - 10x25 m	7,31	3901	1	P02B	790	P02B	B00	790
9	100003	Vito Glaserfix 111 6x3 mm zwart - 10x25 m	7,31	3901	1	P04B	400	P04B		400
10	100004	Vito Glaserfix 111 6x4 mm wit - 10x25 m	9,89	3901	1	P02C	600	P02C	B00	600
Boekingen

 

[Joe4]

Try this:

Sub MyDeleteRows()

    Dim lr As Long
    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in column A with data
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through all rows backwards, up to row 6
    For r = lr To 6 Step -1
'       See if columns H, I, or J is empty
        If (Cells(r, "H") = "") Or (Cells(r, "I") = "") Or (Cells(r, "J") = "") Then
'           Delete row
            Rows(r).Delete
        End If
    Next r
    
    Application.ScreenUpdating = True
    
End Sub

 

[Romano_odK]

Try this:

Sub MyDeleteRows()

    Dim lr As Long
    Dim r As Long
   
    Application.ScreenUpdating = False
   
'   Find last row in column A with data
    lr = Cells(Rows.Count, "A").End(xlUp).Row
   
'   Loop through all rows backwards, up to row 6
    For r = lr To 6 Step -1
'       See if columns H, I, or J is empty
        If (Cells(r, "H") = "") Or (Cells(r, "I") = "") Or (Cells(r, "J") = "") Then
'           Delete row
            Rows(r).Delete
        End If
    Next r
   
    Application.ScreenUpdating = True
   
End Sub

Exactly what I needed, thank you for your help.

 

[Joe4]

You are welcome.
Glad I was able to help!