danny147
Terugkerende gebruiker
- Lid geworden
- 29 apr 2007
- Berichten
- 4.744
Bijlagen
Laatst bewerkt:
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.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Sub Filter()
Set rng = Blad1.Range("A1:A27")
If rng.SpecialCells(xlCellTypeVisible).Rows.Count = rng.Rows.Count Then
For i = 6 To Blad1.Cells(Blad1.Rows.Count, "A").End(xlUp).Row
If Blad1.Cells(i, "M") <> "Uitgevoerd" And _
Blad1.Cells(i, "N") <> "Uitgevoerd" And _
Blad1.Cells(i, "O") <> "Uitgevoerd" Then
Blad1.Rows(i).Hidden = True
End If
Next i
Else
rng.Rows.Hidden = False
End If
End Sub
Sub Filter()
Set rng = Blad1.Range("A1:A27")
If rng.SpecialCells(xlCellTypeVisible).Rows.Count = rng.Rows.Count Then
For i = 6 To Blad1.Cells(Blad1.Rows.Count, "A").End(xlUp).Row
If Blad1.Cells(i, "M") <> [COLOR="#FF0000"]ComboBox4.Value[/COLOR] And _
Blad1.Cells(i, "N") <> [COLOR="#FF0000"]ComboBox4.Value[/COLOR] And _
Blad1.Cells(i, "O") <> [COLOR="#FF0000"]ComboBox4.Value[/COLOR] Then
Blad1.Rows(i).Hidden = True
End If
Next i
[COLOR="#FF0000"]Sheets("Reservatie").Range("A5:O400").SpecialCells(xlCellTypeVisible).Copy Sheets("Gegevens").Range("A100").End(xlUp)[/COLOR]
rng.Rows.Hidden = False
End If
End Sub
Private Sub CommandButton5_Click()
Parent.DisplayAlerts = False
Dim xlsx As New Worksheet
Dim i As Integer
Set xlsx = ThisWorkbook.Worksheets.Add
For i = 0 To Listbox1.ListCount - 1
xlsx.Range("A" & i).Value = Listbox1.List(i)
Next
xlsx.PrintOut
xlsx.Delete
Parent.DisplayAlerts = True
End Sub
Private Sub Workbook_Open()
sn = Sheets("database").Cells(1).CurrentRegion
For j = 1 To UBound(sn)
If InStr(c01 & ",", "," & sn(j, 1) & ",") = 0 Then c01 = c01 & "," & sn(j, 1)
Next
With Sheets("output")
.keus1.List = Split(Mid(c01, 2), ",")
.keus2.Clear
.keus3.Clear
.Range("B5:B7").ClearContents
End WithEnd Sub
Private Sub CommandButton1_Click()
sn = Sheets("Reservatie").Range("A5")CurrentRegion
For j = 1 To UBound(sn)
If InStr(c01 & ",", "," & sn(j, 1) & ",") = 0 Then c01 = c01 & "," & sn(j, 1)
Next
With Sheets("Gegevens")
[COLOR="#FF0000"].ComboBox1.List = Split(Mid(c01, 2), ",")[/COLOR]
.ComboBox2.Clear
.ComboBox3.Clear
.ComboBox3.Clear
End With
Listbox1.Clear
End Sub
Private Sub CommandButton1_Click()
sn = Sheets("Reservatie").Range("A5").CurrentRegion
For j = 1 To UBound(sn)
If InStr(c01 & ",", "," & sn(j, 1) & ",") = 0 Then c01 = c01 & "," & sn(j, 1)
Next
ComboBox1.List = Split(Mid(c01, 2), ",")
ComboBox1.Visible = True
Listbox1.Clear
End Sub
sn = Sheets("Reservatie").Range("A5").CurrentRegion
For j = 1 To UBound(sn)
If InStr(c01 & ",", "," & sn(j, 1) & ",") = 0 Then c01 = c01 & "," & sn(j, 1)
If InStr(c02 & ",", "," & sn(j, 2) & ",") = 0 Then c02 = c02 & "," & sn(j, 2)
Next
ComboBox1.List = Split(Mid(c01, 2), ",")
combobox2.List =
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.