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 locatie()
c00 = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
If c00 = "All" Then Sheets("Blad1").Cells(2, 2).AutoFilter 2 Else Sheets("Blad1").Cells(2, 2).AutoFilter 2, c00
Application.Goto Sheets("Blad1").Cells(2, 2)
End Sub
Sub beladen()
c00 = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
If c00 = "All" Then Sheets("Blad1").Cells(2, [COLOR="#FF0000"]10[/COLOR]).AutoFilter [COLOR="#FF0000"]10[/COLOR] Else Sheets("Blad1").Cells(2, [COLOR="#FF0000"]10[/COLOR]).AutoFilter [COLOR="#FF0000"]10[/COLOR], c00
Application.Goto Sheets("Blad1").Cells(2, [COLOR="#FF0000"]10[/COLOR])
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.