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()
ar = Sheets("Biljartpoint").Cells(1).CurrentRegion.Offset(, 1).Resize(, 12)
With Sheets("Bilartpoint klaar")
.UsedRange.ClearContents
.Cells(1).Resize(UBound(ar), 12) = ar
.Cells(1).CurrentRegion.Sort .Cells(1, 2), , , , , , , xlYes
End With
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.