Indien nog niet bestaat invoegen, onderaan lijst

[MBBS]

Al even gezocht op het forum maar ik vind niet echt wat ik nodig heb.

Ik zoek een macro die volgende doet.

Als de waarde(waarde variabele) in kolom A2:A10 al bestaat doe niks, anders voeg naam (variabele) toe onder de laatst ingevulde cel

 

[HSV]

Zoiets?

Sub tst()
  With Sheets("Blad1").Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If WorksheetFunction.CountIf(Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row), [B1].Value) = 1 Then
     Exit Sub
Else
    Cells(Rows.Count, 1).End(xlUp).Offset(1) = [B1]
   End If
 End With
End Sub

 

[Warme bakkertje]

@ Harry
Ik zou hem zo schrijven, want als de waarde 2x voorkomt wordt hij alsnog bijgeschreven.

Sub tst()
    With Sheets("Blad1")
        If WorksheetFunction.CountIf(.Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row), .[B1].Value) > 0 Then
            Exit Sub
        Else
            .Cells(Rows.Count, 1).End(xlUp).Offset(1) = .[B1]
        End If
    End With
End Sub

 

[MBBS]

Heren,

100 % wat ik bedoelde.

Waarvoor dank.

 

[HSV]

@ Harry
Ik zou hem zo schrijven, want als de waarde 2x voorkomt wordt hij alsnog bijgeschreven.

Volledig mee eens Rudi.
Ik was er van uitgegaan dat de naam maar 1 keer voorkwam.