Macro: als waarde= x, dan delete

[floristimmerman]

Ik ben me net wat in de wereld van macro's aan het oriënteren.
Kan iemand mij helpen aan een macro voor het volgende:

In een kolom staat waarde 0 of 1
Als waarde 0= dan wil ik die rij verplaatsen naar een ander tabblad

Als iemand overigens een overzicht weet van veel gebruikte macro's ben ik daar ook erg mee geholpen!

bvd

 

[Hoornvan]

floristimmerman ,

Kijk of je hier wat mee kunt.

Hij kijkt in kolom 1 dus Kolom A
Je moet wel even de namen van de tabbladen aanpassen.

Anders is het beste om een, voorbeeld bestand zonder gevoelige info, te plaatsen.
Doe dan in het blad aangeven wat de bedoeling is.

Sub Verplaatsen_0()
  For Each cl In Sheets("ArtikelConversie Output").Columns(1).SpecialCells(2)
     If Right(cl, 1) = "0" Then Sheets("Opslag  0").Cells(Rows.Count, 1).End(xlUp).Offset(1) = cl.Value
  Next
End Sub

 

[danny147]

Beste floristimmerman

Of zo zie bestandje.

Groetjes Danny.