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.
Private Sub CommandButton1_Click()
Dim Acell As Range
Dim R As Range
Set R = Blad1.Range("L1:L150")
For Each Acell In R
If Application.WorksheetFunction.CountIf(R, Acell) > 10 Then
Acell.EntireRow.Delete
End If
Next Acell
End Sub
Sub hsv()
Dim sn, i As Long
Application.ScreenUpdating = False
sn = Cells(1).CurrentRegion.Resize(, 12)
For i = UBound(sn) To 1 Step -1
If Application.CountIf(Columns(12), sn(i, 12)) > 10 Then Rows(i).Delete
Next i
End Sub
Sub hsv()
Dim sn, i As Long, c00 As String, c01 As String, c02 As String, teller As Long, st
sn = Cells(1).CurrentRegion.Resize(, 12)
Columns(12).SpecialCells(2).Name = "bereik"
For i = 1 To UBound(sn)
If InStr(c00, sn(i, 12)) = 0 Then
c00 = c00 & sn(i, 12)
teller = Application.CountIf(Range("bereik"), sn(i, 12))
If teller < 11 Then
c01 = Join(Filter(Application.Transpose(Evaluate("if(bereik=""" & sn(i, 12) & """,row(bereik),""~"")")), "~", False), "_") & "_"
Else
c01 = Join(Filter(Application.Transpose(Evaluate("if(bereik=""" & sn(i, 12) & """,row(bereik),""~"")")), "~", False), "_") & "_"
c01 = Mid(c01, 1, InStrRev(Application.Substitute(c01, "_", ";", 10), ";"))
End If
c02 = c02 & c01
End If
Next i
Cells(1).CurrentRegion.Resize(, 12).ClearContents
st = Application.Transpose(Split(c02, "_"))
Cells(1).Resize(UBound(st) - 1, 12) = Application.Index(sn, st, Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12))
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.