Vraag : Verwijder gegevensrij

Hallo helpen de Deskundigen,

I behoefteDeskundigen een manuscript schrijven om de rij in Reconcile blad te verwijderen als de cel Column_D „richtsnoer“ woord heeft. De Deskundigen van de hoop kunnen me helpen om deze eigenschap tot stand te brengen. Maakte het werkboek voor Deskundigen perusal.

 vast
Attachments:
van
RemoveRow.xls (135 KB)  (de Details van het Type van Dossier)  
xls

Antwoord : Verwijder gegevensrij

Als zij allen in D. zijn.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Sub x ()
  
Schemerige rFind als Waaier

Application.ScreenUpdating = Vals

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