Oude leerling
Gebruiker
- Lid geworden
- 30 aug 2010
- Berichten
- 554
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 VenA()
ar = Split("DI DO")
With Sheets("Blad1")
.Cells(1, 26) = "Dag"
For j = 0 To 1
.Cells(2, 26) = ar(j)
.ListObjects(1).Range.AdvancedFilter xlFilterCopy, .Range("Z1:Z2"), Sheets(j + 2).Cells(1)
Next j
.Range("Z1:Z2").Clear
End With
End Sub
Sub enigmasmurf()
With Sheets("Blad1")
aantal_di = WorksheetFunction.CountIf(.Columns(4), "DI")
.Range("A1:D" & aantal_di + 1).Copy Sheets("Blad2").Cells(1, 1)
aantal_do = WorksheetFunction.CountIf(.Columns(4), "DO")
.Range("A1:D1,A" & aantal_di + 2 & ":D" & aantal_di + aantal_do + 2).Copy Sheets("Blad3").Cells(1, 1)
End With
End Sub
Sub VenA()
ar = Split("DI DO") 'split de tekst op de spatie die tussen "DI en DO" staat
With Sheets("Blad1")
.Cells(1, 26) = "Dag" 'zet "Dag" in cel Z1
For j = 0 To 1 'laat de lus twee keer lopen; de variabele j krijgt eerst de waarde 0 en daarna 1.
.Cells(2, 26) = ar(j) 'zet in cel Z2 ar(j); eerste keer is ar(o) = "DI"; tweede keer is ar(1) = "DO"
.ListObjects(1).Range.AdvancedFilter xlFilterCopy, .Range("Z1:Z2"), Sheets(j + 2).Cells(1) 'haal de gegevens op dmv de cellen Z1:Z2 met de copymethode van het geavanceerde filter respectievelijk naar de bladen Sheets(0+2) en sheets(1+2) cel A1.
Next j 'volgende j
.Range("Z1:Z2").Clear 'wis alles wat in Z1:Z2 staat.
End With
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.