Delete username

[rickweyers93]

Hallo allemaal,

Voor mijn werk ben ik bezig om een aantal werkzaamheden te vereenvoudigen.
Een bepaalde letter combinatie moet verwijderd worden PC hoe kan ik vba alle PC names laten verwijderen zonder ze een voor een te verwerken in de code.
Alle usernames met PC moeten ui thet excel bestand.




[CPP]Private Sub CommandButton26_Click()

'Delete PC USER Zweden
Dim i As Long

Dim lRow As Long
Dim iCntr As Long
lRow = 100000
For iCntr = lRow To 1 Step -1
If Cells(iCntr, 10).Value = "PC09159" Then
Rows(iCntr).Delete
ElseIf Cells(iCntr, 10).Value = "PC31629" Then
Rows(iCntr).Delete
ElseIf Cells(iCntr, 10).Value = "PC31650" Then
Rows(iCntr).Delete
ElseIf Cells(iCntr, 10).Value = "PC47251" Then
Rows(iCntr).Delete
ElseIf Cells(iCntr, 10).Value = "PC49594" Then
Rows(iCntr).Delete
ElseIf Cells(iCntr, 10).Value = "PC59770" Then
Rows(iCntr).Delete
ElseIf Cells(iCntr, 10).Value = "PC59773" Then
Rows(iCntr).Delete
ElseIf Cells(iCntr, 10).Value = "PC59774" Then
Rows(iCntr).Delete
ElseIf Cells(iCntr, 10).Value = "PC77091" Then
Rows(iCntr).Delete
ElseIf Cells(iCntr, 10).Value = "PC59768" Then
Rows(iCntr).Delete
ElseIf Cells(iCntr, 10).Value = "PC09159" Then
Rows(iCntr).Delete
End If
Next
End Sub[/CPP]

Met vriendelijke groet,

Rick

 

[LucHeyndrickx]

Waarom met VBA?
Zet er een autofilter op... selecteer op de tekst waarin PC voorkomt, en delete de rijen.
Ik veronderstel dat het om een éénmalige actie gaat, en dan is VBA echt wel té veel moeite voor zoiets simpel.

 

[rickweyers93]

Beste LucHeyndrickx,

Omdat er meerdere acties gedaan worden via vba het is heel formulier met knoppen, elke dag moeten de pc users verwijderd worden dus ik dacht maak een extra knop in de userform

 

[OctaFish]

Je kan ook antwoord geven op de vraag .

Dim i As Long, lRow As Long, iCntr As Long
    
    lRow = 100000
    For iCntr = lRow To 1 Step -1
        If Left(UCase((Cells(iCntr, 10).Value)), 2) = "PC" Then Rows(iCntr).Delete
    Next

 

[snb]

Sub M_snb()
   columns(10).replace "PC*",""
   usedrange.columns(10).specialcells(4).entirerow.delete
End Sub

 

[rickweyers93]

Bedankt allemaal het werkt!