Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
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
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
@ Harry
Ik zou hem zo schrijven, want als de waarde 2x voorkomt wordt hij alsnog bijgeschreven.
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.