Ontwikkelaars,
Deze code maakt een samenvatting van al mijn sheets in één sheet.
Ik zou een filter kunnen gebruiken om specifieke gegevens te bekijken.
Kan deze filter niet in de VBA gezet worden door middel van bv een InputBox waar de waarde van de filter moet ingegeven worden?
Ik zou de code dan aan een knop verbinden zodanig dat de gebruikers onmiddelijk resultaat hebben. Vele medewerkers zijn niet zo Excel minded. (Openen, inputten en sluiten, that's it)
Wie kan mij verder helpen?
Alvast bedankt
Greetz
Pascal
Deze code maakt een samenvatting van al mijn sheets in één sheet.
Ik zou een filter kunnen gebruiken om specifieke gegevens te bekijken.
Kan deze filter niet in de VBA gezet worden door middel van bv een InputBox waar de waarde van de filter moet ingegeven worden?
Ik zou de code dan aan een knop verbinden zodanig dat de gebruikers onmiddelijk resultaat hebben. Vele medewerkers zijn niet zo Excel minded. (Openen, inputten en sluiten, that's it)
Wie kan mij verder helpen?
Alvast bedankt
PHP:
Private Sub CommandButton22_Click()
Application.ScreenUpdating = False
SheetNames = Array("Apothekers", "Kinesisten", "MedGen", "Tandartsen", "Specialisten")
With Sheets("Alle CCF")
.Range(.Range("CV6"), .Cells(.Rows.Count, 1).End(xlUp)).ClearContents
End With
For i = LBound(SheetNames) To UBound(SheetNames)
With Sheets(SheetNames(i))
.Range(.Range("CV6"), .Cells(.Usedrange.rows.count, 1)).Copy Sheets("Alle CCF").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
Next i
Application.ScreenUpdating = True
End SubGreetz
Pascal
Laatst bewerkt:
