Auteur Topic: EntireRow.Delete (gelezen 6493 keer)

Sunnybat · « **Gepost op:** 07 december 2023, 10:06:43 »

Hoi,

Klein vraagje
ik gebruik

If .Cells(i, "V") Like "*RG*" Then
            .Cells(i, "V").EntireRow.Delete
        End If

het werkt perfect dus als RG voorkomt in de kolom wordt deze verwijderd
nu heb ik een probleem als er in de zelf kolom de tekst TRGC voorkomt die wordt ook verwijderd
is er een andere optie om dit te verkomen
Alvast weer super bedankt

SoftAid · « **Reactie #1 Gepost op:** 07 december 2023, 10:37:24 »

Hallo Synnybat,

ik kan niet testen, maar helpt het niet als je de * * (wildcards) weglaat?

SoftAid

Sunnybat · « **Reactie #2 Gepost op:** 07 december 2023, 10:40:22 »

@SoftAid

Klopt dan werkt het, maar er zijn best veel regels die RG hebben, mocht het niet lukken dan zal ik wel 30 regels met RG moeten toevoegen in de macro
alvast super bedankt

SoftAid · « **Reactie #3 Gepost op:** 07 december 2023, 10:43:36 »

Je werkt toch met een variabele in een loop, niet?

Dan gaat deze toch alle rijen af in kolom V.

Mogelijk begrijp ik je vraag niet goed

SoftAid

Sunnybat · « **Reactie #4 Gepost op:** 07 december 2023, 10:58:05 »

@softaid

Code: [Selecteer]

Sub Methode1()
 
Dim i As Long
With ActiveWorkbook.Sheets(1)
     For i = 10000 To 1 Step -1
        If .Cells(i, "V") Like "*RG*" Then
            .Cells(i, "V").EntireRow.Delete
        End If

deze zoekt het in kolom V
je kunt de V ook aanpassen aan de kolom die je zelf wilt

Haije · « **Reactie #5 Gepost op:** 07 december 2023, 12:43:57 »

Voeg na de test *RG* de test op exact TRGC toe

Sunnybat · « **Reactie #6 Gepost op:** 07 december 2023, 13:01:55 »

@Haije

zou eigenlijk niet weten waar ik deze regel zou moeten plaatsen die je aangeeft

Code: [Selecteer]

Sub Methode1()
 
Dim i As Long
With ActiveWorkbook.Sheets(1)
     For i = 10000 To 1 Step -1
        If .Cells(i, "A") Like "*RG*" Then
            .Cells(i, "A").EntireRow.Delete
        End If
        Next i
End With
End Sub

SoftAid · « **Reactie #7 Gepost op:** 07 december 2023, 13:39:57 »

Hallo Sunnybat,

Je originele vraag

Citaat van: Sunnybat op 07 december 2023, 10:06:43

het werkt perfect dus als RG voorkomt in de kolom wordt deze verwijderd
nu heb ik een probleem als er in de zelf kolom de tekst TRGC voorkomt die wordt ook verwijderd

is opgelost als je de asterix (* *) uit de te zoeken tekst weglaat, dus

Code: [Selecteer]

Like "*RG*" Then

vervangen door

Code: [Selecteer]

Like "RG" Then
Kan je precies uitleggen waar je dan nog problemen mee hebt? Dan kunnen we je beter helpen.

SoftAid

Della Jordan · « **Reactie #8 Gepost op:** 07 december 2023, 14:02:39 »

Waarschijnlijk zo?
Als alleen de rijen moeten verwijderen Met de exacte tekst RG hoef je toch geen like te gebruiken.

Code: [Selecteer]

Sub del()
Dim i As Long
With ActiveWorkbook.Sheets(1)
     For i = 10000 To 1 Step -1
        If .Cells(i, "V") = "RG" Then .Cells(i, "V").EntireRow.Delete
    Next i
End With
End Sub

SoftAid · « **Reactie #9 Gepost op:** 07 december 2023, 14:15:14 »

Hallo Della Jordan,

Welkom op Oplossing.be

Mogelijk heb je daar een punt, maar ik ging/ga er van uit dat Sunnybat alle rijen wilt wissen als er in de tekst (kolom V van een rij i) de lettercombinatie "RG" voorkomt. dus ook als er "veRGeet" staat.

Maar de vraagstelling is niet echt duidelijk, daarom dat ik om details vroeg.

We zullen moeten wachten op een antwoord van TopicStarter.

Groeten,

SoftAid

Sunnybat · « **Reactie #10 Gepost op:** 07 december 2023, 14:22:55 »

@SoftAid

u hebt gelijk zelfs als er vergeet staat komt RG ook in voor

@Della Jordan
u hebt ook gelijk maar als het alleen maar RG was dan was het makkelijk geweest maar ik heb ook regels met RG01, RGext

dus eigenlijk meerdere regels met verschillende RG tekst

MollyVH · « **Reactie #11 Gepost op:** 07 december 2023, 14:37:26 »

Hallo Sunnybat,

En nu weten we nog steeds niet wat je precies wil...

Mvg,
Molly

Della Jordan · « **Reactie #12 Gepost op:** 07 december 2023, 14:41:14 »

Als RG die moet verdwijnen altijd vooraan staat Zoals RG01 dan zoiets?

Code: [Selecteer]

Sub Methode1()
Dim i As Long
With ActiveWorkbook.Sheets(1)
     For i = 10000 To 1 Step -1
        If .Cells(i, "V") Like "RG*" Then .Cells(i, "V").EntireRow.Delete
    Next i
End With
End Sub

Sunnybat · « **Reactie #13 Gepost op:** 07 december 2023, 14:44:38 »

@MollyVH

weer mijn excuses, alles wat met RG begint mag weg en als er in de tekst net zoals SoftAid aan gaf zoals veRGeet mag blijven $:-\$

want als je de code gebruikt met *RG* dan gaat de tekst zoals vergeet ook mee als RG want in de tekst vergeet komt RG voor
alvast super bedankt

Della Jordan · « **Reactie #14 Gepost op:** 07 december 2023, 14:47:28 »

Citaat

alles wat met RG begint mag weg

Zie postje#12

Help!

Menu

Hulp bij posten

Zoeken

Recente topics