Bevat cel bepaalde tekst. Dan in dezelfde rij een cel leeg maken

Status
Niet open voor verdere reacties.
T

Tweety1

Gebruiker
Lid geworden
6 mrt 2013
Berichten
637
Ik ben opzoek naar een stukje VBA die het volgende doet.
Als er in kolom D een van onderstaande tekst bevat (bevat allemaal het woordje "online") dan de cel in kolom "N" leegmaken en in kolom "S" de waarde 0 plaatsen.

Begeleiding / Consultancy Online
Hoorcollege Online
Project Online
Studieloopbaanbegeleiding Online
Training Online
Werk- / instructiecollege Online
 

Bijlagen

  • Voorbeeld.xlsx
    10 KB · Weergaven: 36
de "uitkomst" suggereert dat de niet-"online" regels zouden moeten verdwijnen, de bovenstaande tekst niet.
Maar dat zou op vrij analoge wijze, dus met een autofilter kunnen opgelost worden.
Code: 
Sub Tweety()
   With Sheets("voorbeeld").Range("A1").CurrentRegion
      .AutoFilter 4, "=*online"
      .Columns("N").ClearContents
      .Columns("S").Value = 0
      .AutoFilter 4
   End With
End Sub
 
Thanks,
Klopt "uitkomst" tabblad was niet helemaal volledig gevuld.
Macro werkt alleen wordt nu de kop regel cel leeg gehaald deze moet eigenlijk blijven staan.
 
Code: 
Sub Tweety()
   With Sheets("voorbeeld").Range("A1").CurrentRegion
      .AutoFilter 4, "=*online"
       [COLOR="#FF0000"].Offset(1).Resize(.Rows.Count - 1)[/COLOR].Columns("N").ClearContents
      .Offset(1).Resize(.Rows.Count - 1).Columns("S").Value = 0
      .AutoFilter 4
   End With
End Sub
 
Code: 
.Offset(1).Columns("N").ClearContents
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan