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.
Spijtig genoeg kom ik er niet achter waarom het opeens niet meer werkt.Userform show werkt niet meer als ik op een cel in kolom b klik
Bedoel je hiermee het kleuren van combobox1?Daarnaast werkt het kleuren van de onderste regel ook ineens niet meer, als bed afgekeurd is dat hij rood moet worden
If .[C58].Value = "Bed is nog niet goedgekeurd en wacht op reparatie/oplossing" Then
If .[C58].Value = sheets("Data").range("H2").value Then
Private Sub ComboBox1_Change()
With ComboBox1
If .Value = Sheets("Data").Range("H2").Value Then
.BackColor = vbRed
Else
.BackColor = vbGreen
End If
End With
End Sub
Private Sub ComboBox1_Change()
With ComboBox1
If .Value = Sheets("Data").Range("H2").Value Then
.BackColor = vbRed
Else
.BackColor = vbGreen
End If
End With
End Sub
Private Sub userform_initialize()
Me.Top = ActiveCell.Top + 60 'waarde eventueel aanpassen
End Sub
Private Sub userform_initialize()
With Me
.StartUpPosition = 0
.Top = 415
.Left = ActiveCell.Offset(0, 1).Left
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, ListObjects(1).ListColumns(1).DataBodyRange) Is Nothing Then
Frm_Status.Show
End If
If Application.CutCopyMode = False Then
Application.Calculate
End If
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.