johnny1980
Gebruiker
- Lid geworden
- 28 apr 2013
- Berichten
- 75
indien er geen andere oplossing is.....
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.
With Sheets("Lijsten")
a = .Range("H" & Rows.Count).End(xlUp).Row + 1
.Cells(a, "H").Value = cmbaanvrager.Value
.Range("H1:H1500").Sort key1:=.Range("H1:H1500"), order1:=xlAscending, Header:=xlNo
a = .Range("K" & Rows.Count).End(xlUp).Row + 1
.Cells(a, "K").Value = cmbip.Value
.Range("K1:K1500").Sort key1:=.Range("K1:K1500"), order1:=xlAscending, Header:=xlNo
End With
If WorksheetFunction.CountIf(zoek range, zoek waarde) = 1 Then Exit Sub
If WorksheetFunction.CountIf(zoek range, zoek waarde) = 1 Then Exit Sub
With Sheets("Lijsten")
If Application.CountIf(.Columns(8), cmbaanvrager.Value) = 0 Then
.Cells(Rows.Count, 8).End(xlUp).Offset(1) = cmbaanvrager.Value
.Columns(8).Sort .Cells(1, 8), , , , , , , xlNo
End If
If Application.CountIf(.Columns(11), cmbip.Value) = 0 Then
.Cells(Rows.Count, 11).End(xlUp).Offset(1) = cmbip.Value
.Columns(11).Sort .Cells(1, 11), , , , , , , xlNo
End If
End With
Als je zo'n simpel regeltje al niet begrijpt dan wordt het natuurlijk twijfelachtig of je dit geheel wel kan onderhouden.
With Sheets("Lijsten")
a = .Range("H" & Rows.Count).End(xlUp).Row + 1
.Cells(a, "H").Value = cmbaanvrager.Value
.Range("H1:H1500").Sort key1:=.Range("H1:H1500"), order1:=xlAscending, Header:=xlNo
a = .Range("K" & Rows.Count).End(xlUp).Row + 1
.Cells(a, "K").Value = cmbip.Value
.Range("K1:K1500").Sort key1:=.Range("K1:K1500"), order1:=xlAscending, Header:=xlNo
End With
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 1
If Target.Value >= "0" Then
Target.Resize(, 19).Borders.Weight = xlThin
Target.Offset(, 12).Resize(, 3).Borders.Weight = 3
End If
Case 6
If Target.Value = "SCHAARB.-VORM. BUNDEL C" Then Y = 5
If Target.Value = "SCHAARB.-VORM. BUNDEL R" Then Y = 3
If Target.Value = "SCHAARB.-VORM. BUNDEL P" Then Y = 10
If Target.Value = "SCHAARB.-VORM. BUNDEL L" Then Y = 3
Target.Resize(, 2).Font.ColorIndex = Y
Target.Resize(, 4).Font.Bold = xlMedium
Target.Offset(, -5).Resize(, 4).Font.ColorIndex = Y
Target.Offset(, -5).Resize(, 4).Font.Bold = xlMedium
Target.Offset(, 2).Resize(, 2).Font.ColorIndex = Y
Target.Offset(, 8).Font.ColorIndex = Y
Target.Offset(, 12).Font.ColorIndex = Y
Target.Offset(, 12).Font.Bold = xlMedium
Case 7
If Target.Value = "SCHAARB.-VORM. BUNDEL C" Then Y = 1
If Target.Value = "SCHAARB.-VORM. BUNDEL R" Then Y = 3
If Target.Value = "SCHAARB.-VORM. BUNDEL P" Then Y = 10
If Target.Value = "SCHAARB.-VORM. BUNDEL L" Then Y = 3
Target.Font.ColorIndex = Y
Case 11
Target.Interior.ColorIndex = IIf(Target.Value = "FBN", 43, IIf(Target.Value = "FVV", 45, xlNone))
Case 12
Target.Interior.ColorIndex = IIf(Target.Value >= "0", 36, xlNone)
Case 18
If InStr(Target.Value, "BOOK IN") Then Target.Offset(, -17).Resize(, 18).Interior.ColorIndex = 20
End Select
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.