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.
Me("TextBox" & i) = ""
( F8 gebruik ik nooit, geen idee wat dit doet, )
Me.Hide
For i = 8 To 10
Me("TextBox" & i) = ""
Next i
ComboBox1 = ""
TextBox19 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
Me.Hide
For i = 8 To 10
Me("TextBox" & i) = ""
Next i
ComboBox1 = ""
TextBox19 = ""
Private Sub UserForm_Activate()
With Sheets("-OVERZICHT-")
Dim num As Integer
num = ActiveCell.Row
TextBox1.Value = .Cells(num, 7).Value 'serienummer
TextBox2.Value = .Cells(num, 8).Value 'klantnummer
TextBox3.Value = .Cells(num, 9).Value 'type bed
TextBox4.Value = .Cells(num, 4).Value 'etage
TextBox5.Value = .Cells(num, 5).Value 'naam afdeling
TextBox6.Value = .Cells(num, 6).Value 'kamernummer
TextBox19.Value = .Cells(num, 10).Value 'bijzonderheden
End With
End Sub
Private Sub TextBox10_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Or KeyCode = 9 Then
ComboBox1.SetFocus [COLOR="#008000"]'of textbox19.setfocus wat je maar wenst[/COLOR]
End If
End Sub
Ik had er nog eentje.Gewoon even zoeken in je oude bestanden
geen idee, misschien heeft iemand anders een oplossingEn ik kan wel een map aanmaken in One Drive, maar kan hier vervolgens niet het rapport in op slaan (misschien is dit wel ergens geblokeerd op onze laptops)
Zal straks even kijken, zal wel lukkenDe userform die verschijnt als je in kolom B klikt, zouden we graag laten verschijnen net boven of onder de geselecteerde cel,
En ik kan wel een map aanmaken in One Drive, maar kan hier vervolgens niet het rapport in op slaan (misschien is dit wel ergens geblokeerd op onze laptops)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
Application.Calculate
Application.ScreenUpdating = False
End If
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, ListObjects(1).ListColumns(2).DataBodyRange) Is Nothing Then
Frm_Status.Show
End If
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.