uitfilteren

[lin10]

Zie bijlage.
Is er een mogelijkheid om de boekstuknummers die hetzelfde zijn uit te filteren.
Bijvoorbeeld kopieeren naar een ander blad.
Het kan natuurlijk handmatig (knippen en plakken) maar is er een manier die handiger is.

Btje lastig uitleggen dus als er vragen zijn hoor ik het graag.

 

[lin10]

Bestand als excel niet toe te voegen daarom word.

 

[Ingrid B]

Sub test()
Dim r As Long, laatste As Long, r2 As Long
  laatste = Range("B65536").End(xlUp).Row
  r2 = 2
  For r = 2 To laatste
    If Cells(r, 2) = Cells(r - 1, 2) Or Cells(r, 2) = Cells(r + 1, 2) Then
      Rows(r).Copy Destination:=Sheets("Blad2").Rows(r2)
      r2 = r2 + 1
    End If
  Next r
End Sub

kopieer de macro naar een module

 

[lin10]

kom er nog niet helemaal uit, heb nog nooit met macro's gewerkt.
iemand nog een andere tip?
wel bedankt hoor als er niets anders komt ga ik daar verder mee.
:thumb:

 

[BasMan]

Het kan anders........

Hallo,

Wat je kunt doen is toch eerst alles handmatig over te zetten om daarna de volgende code te gebruiken om dubbele invoer te voorkomen.

Je selecteert de kolom waar het omgaat en daarna het volgende:

Je gaat naar "Data", daarna "Validation". Bij "Allow" selecteer je "Custom" en daaronder vul je dan het volgende in:

=countif(A:A;A1)<=1

A is de desbetreffende kolom.

Mvg

BasMan

Dit is om dubbele invoer te voorkomen in de toekomst.