Bepaalde rijen verwijderen

[Maysun]

Ik heb een groot bestand waar namen van personen en van leveranciers door elkaar in een kolom staan. Ik wil de rijen verwijderen waar namen in staan. (dus bv. R. Jansen en B. Katinka).

Zie bijgaand voorbeeldbestandje.

Hoe kan ik de namen eruit vissen? Ik dacht iets met rijen selecteren waar 2e karakter telkens een punt is bijv., maar weet niet hoe dit moet.

Bekijk bijlage Namen probleem.xlsx

 

[gast0660]

Zoiets?

Sub myDeleteRows()
Dim i As Integer
For i = 1 To Range("A" & "65536").End(xlUp).Row Step 1
If Application.WorksheetFunction.CountIf(Range("A" & i ), "*.*") > 0 Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Edit: probeer eerst op een copy

 

[keesbl]

Dag Maysun,

Maak van je gegevens een tabel en filter dan op "Bevat" en kies dan een punt.

Anders zal het wel met VBA kunnen

Kees

 

[edmoor]

Of deze:

Sub VerwijderRegels()
    Dim i As Long
    With ActiveSheet
        For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 1 Step -1
            If Mid(Cells(i, 1), 2, 1) = "." Then Rows(i).Delete
        Next i
    End With
End Sub

 

[keesbl]

Mijn suggestie verwijdert inderdaad geen rijen. Zoals Maysun aangaf

Kees