Regel automatisch toevoegen of verwijderen in meerdere tabbladen

[Ronald87]

Beste Forummers,

Ik werk dagelijks veel aan het planning bestand die we gebruiken. Hierbij moet ik ook vaak werknemers toevoegen of verwijderen , wat ik nu steeds handmatig moet doen bij alle weeknummers (tabbladen) in het bestand. Ik weet dat ik alle tabbladen kan selecteren waarbij ik een werknemer moet verwijderen, echter de werknemers staan niet altijd op dezelfde regel . De ene week kan een werknemer bijvoorbeeld op regel 5 staan en de andere week kan die op regel 25 staan.

Voor het verwijderen van een werknemer : is er een mogelijkheid dat ik een werknemer op een tabblad verwijder (de hele lijn/regel moet dan verwijderd) , dat dat dan bij de komende / toekomstige weeknummerrs ( dus tabbladen ) ook wordt verwijderd ook al staat die daar op een andere positie/regel.

Met vriendelijke groet Ronald

 

[snb]

Sub M_snb()
  c00=selection.value

  for each it in sheets
    it.columns(1).find(c00).entirerow.delete
  next
End Sub

 

[Ronald87]

Werkt bij mij helaas niet snb of ik moet iets niet goed doen.

Wanneer ik in tabblad week 3, iemand verwijder , gebeurt dat in het volgende tabblad niet.

 

[Ronald87]

Iemand nog ?

 

[HSV]

Je moet een cel in kolom A selecteren in een blad en dan de code runnen van @snb.

Iets aangepast om foutmeldingen te voorkomen.

Sub M_snb()
  c00 = Selection.Value


  For Each it In Sheets
   set c = it.Columns(1).Find(c00)
    if not c Is nothing then c.EntireRow.Delete
  Next
End Sub

 

[Ronald87]

beste HSV,

Het lukt me niet, ik selecteer een cel in kolom A en verwijder die regel vervolgens, echter de regel (de persoon) wordt dan niet op de verdere tabbladen verwijderd wat de bedoeling is.

 

[snb]

Kijk eerst eens hier:

https://www.helpmij.nl/forum/showthread.php/943989-Inleiding-VBA-door-LeoFact

 

[HSV]

Lezen is soms best moeilijk.

Maakt niet uit Ronald.

Selecteer een cel, niets zelf verwijderen, code runnen.
Nu zijn ze verwijderd.

Als dit met Delete moet gebeuren moet het met een andere code.

 

[Ronald87]

Excuses! Ik heb m door.
Is het ook mogelijk dat de regel alleen op toekomstige werkbladen wordt verwijderd?
Dus dat de naam bij vorige werkbladen wel blijft staan?

 

[HSV]

Vanaf activesheet en verder op volgorde.

Sub M_snb_aangepast()
c00 = Selection.Value
 For Each it In Sheets
   if it.index >= activesheet.index then
     Set c = it.Columns(1).Find(c00)
     If Not c Is Nothing Then c.EntireRow.Delete
   end if
  Next
End Sub

 

[Ronald87]

@HSV, top bedankt!