• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Rijen verwijderen in Excel waarin het woord totaal afgekeurd staat

Status
Niet open voor verdere reacties.
M

Mrweetikveel

Nieuwe gebruiker
Lid geworden
8 okt 2017
Berichten
3
Hallo iedereen.
Ik heb een probleempje met een macro.
ik wil namelijk een bestaande code die gebruikt wordt om lege rijen te verwijderen zo aan te passen dat het in plaats van lege rijen, hij rijen zou verwijderen waarin het word "Totaal afgekeurd" staat.
Ik heb de basis de onderstaande code gebruikt maar in plaat van vbEmpty, wil ik "Totaal afgekeurd", maar dan werkt de code niet echt.
Iemand een idee hoe ik dit aan kan passen zodat het wel werkt?

Public Sub pfDelRows()

totalrows = ActiveSheet.UsedRange.Rows.Count

For Row = 1 To totalrows
If Cells(Row, 2).Value = vbEmpty Then
Rows(Row).Delete
End If
Next Row

End Sub
 
Ook zo werkt deze code niet.
 
Rijen verwijderen doe je van onderen naar boven, met de autofilter of in een union.

Code: 
sub metfilter()
with cells(1).currentregion
  .autofilter 2,"totaal afgekeurd"
  .offset(1).entirerow.delete
  .autofilter
end with
end sub
 
Laatst bewerkt:
HSV en snb Dank jullie wel!!

Heb nog een andere vraagje, weet iemand een handige formule dat ik voor een macro kan gebruiken om totalen van som van een kolom te berekenen.
Het aantal getalen in de kolom kunnen steeds verschillend zijn. En de som van de totaal teling wil ik graag op de bovenste rij hebben en niet onderin.
Alvast bedankt.
 
Code: 
=subtotaal(9;bereik)
 
Bv.
Code: 
Sub hsv()
 Range("a3", Cells(Rows.Count, 1).End(xlUp)).Name = "bereik"
 Range("a2") = [subtotal(9,bereik)]
 Application.Names("bereik").Delete
End Sub

eventueel met application.max.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan