Oké, super stom, maar ik had het al gevonden maar begreep het niet..
Dus heb nu een stukje code ingevoegd op het hoofdblad die de andere macro aanstuurt.
Sorry voor de vervuiling..
Ik heb een stukje vba code in excel om alle tabbladen automatisch te filteren op basis van de waarde van 1 cel in mijn hoofdblad.
Ik wil nu, dat als ik de waarde in deze cel (b1) verander, dat de filter automatisch over alle tabbladen wordt toegepast, zonder telkens opnieuw op "uitvoeren" te klikken in de vba editor.
Ik kan alleen niet vinden hoe ik dit zou kunnen doen.
Kan iemand me op weg helpen?
Onderstaande code werkt perfect, alleen moet ik nu dus telkens handmatig opnieuw uitvoeren en dat is niet leek-vriendelijk.
Dus heb nu een stukje code ingevoegd op het hoofdblad die de andere macro aanstuurt.
Sorry voor de vervuiling..
Ik heb een stukje vba code in excel om alle tabbladen automatisch te filteren op basis van de waarde van 1 cel in mijn hoofdblad.
Ik wil nu, dat als ik de waarde in deze cel (b1) verander, dat de filter automatisch over alle tabbladen wordt toegepast, zonder telkens opnieuw op "uitvoeren" te klikken in de vba editor.
Ik kan alleen niet vinden hoe ik dit zou kunnen doen.
Kan iemand me op weg helpen?
Onderstaande code werkt perfect, alleen moet ik nu dus telkens handmatig opnieuw uitvoeren en dat is niet leek-vriendelijk.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
| Sub apply_autofilter_across_worksheets()
Dim ws As Worksheet
Dim clientManager As String
Dim lastCol As Long, lastRow As Long
Dim filterRng As Range
clientManager = Sheets("Hoofdblad").Range("B1").Value
For Each ws In Worksheets
If ws.Name <> "Hoofdblad" And ws.Visible Then
With ws
If .AutoFilterMode Then .AutoFilter.ShowAllData
lastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
Set filterRng = .Range(.Cells(1, 1), .Cells(lastRow, lastCol))
filterRng.AutoFilter 2, clientManager
End With
End If
Next ws
End Sub |
[ Voor 22% gewijzigd door Hsb-3 op 27-10-2022 13:45 ]