Vraag : Verwijder gegevensrij

Hallo helpen de Deskundigen,

I behoefteDeskundigen om het manuscript in bijlage te herschrijven. Behoefte om een andere gegevensrij te verwijderen als column_C dit woord „Test1/Test2/Test3“ naast „Richtsnoer“ heeft. Deskundigen van de hoop konden helpen om dit code. te herzien
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Sub Cue2 ()
 
Schemerige rFind als Waaier

Application.ScreenUpdating = Vals

Met Bladen („Systeem“). Kolommen (3)
    Reeks rFind =. Vind (wat: = " richtsnoer ", LookAt: =xlPart, MatchCase: =False, SearchFormat: =False)
    Als niet rFind dan niets is
        
            rFind.EntireRow.Delete
            Plaats rFind =. Vind (wat: = " richtsnoer ", LookAt: =xlPart, MatchCase: =False, SearchFormat: =False)
        De lijn tot rFind is niets
    Beëindig als
Eind met
     
Application.ScreenUpdating = Waar
     
Sub van het eind

Antwoord : Verwijder gegevensrij

Als u door de rijen in omgekeerde orde herhaalt en hen van bottom up schrapt moet u niet zich over uw index ongerust maken die weg zijn.  iets als het volgende zou… werken

Privé SubCommandButton1_Click ()
Voor I = ActiveCell.SpecialCells (xlLastCell). Rij aan 1 Stap -1
   Als Cellen (I, 3) = „Test1/Test2/Test3“ toen
     Rijen (I). Schrap
   Beëindig als
Volgende I
Sub van het eind
Andere oplossingen  
 
programming4us programming4us