Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: EntireRow.Delete  (gelezen 7084 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
EntireRow.Delete
« 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
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.368
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: EntireRow.Delete
« 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 :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: EntireRow.Delete
« 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
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.368
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: EntireRow.Delete
« 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 :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: EntireRow.Delete
« Reactie #4 Gepost op: 07 december 2023, 10:58:05 »
@softaid

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
 
Excel 365 NL

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 226
  • Geslacht: Man
  • Oplossing.be
Re: EntireRow.Delete
« Reactie #5 Gepost op: 07 december 2023, 12:43:57 »
 Voeg na de test *RG* de test op exact TRGC toe
|-|aije

ik gebruik Office 2016 Professional Plus

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: EntireRow.Delete
« 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 :-[

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
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.368
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: EntireRow.Delete
« Reactie #7 Gepost op: 07 december 2023, 13:39:57 »
Hallo Sunnybat,

Je originele vraag
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
Like "*RG*" Then
vervangen door
Like "RG" Then
Kan je precies uitleggen waar je dan nog problemen mee hebt? Dan kunnen we je beter helpen.

:) SoftAid :)             

Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 239
  • Geslacht: Vrouw
Re: EntireRow.Delete
« 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.
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
Groetjes,Della

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.368
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: EntireRow.Delete
« 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 :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: EntireRow.Delete
« Reactie #10 Gepost op: 07 december 2023, 14:22:55 »
@SoftAid

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

@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


Excel 365 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: EntireRow.Delete
« 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
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 239
  • Geslacht: Vrouw
Re: EntireRow.Delete
« Reactie #12 Gepost op: 07 december 2023, 14:41:14 »
Als RG die moet verdwijnen altijd vooraan staat Zoals RG01  dan zoiets?
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
Groetjes,Della

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: EntireRow.Delete
« 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
Excel 365 NL

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 239
  • Geslacht: Vrouw
Re: EntireRow.Delete
« Reactie #14 Gepost op: 07 december 2023, 14:47:28 »
Citaat
alles wat met RG begint mag weg
Zie postje#12
Groetjes,Della

 


www.combell.com