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.
Private Sub Workbook_Open()
With GetObject("C:\Dropbox\documenten\Excel opmerkingen.xls")
Sheets("Blad1").ComboBox1.List = .Sheets("Blad2").Range("c2:f202").Value
.Close
End With
End Sub
Private Sub Workbook_Open()
dim i as long
With GetObject("C:\Dropbox\documenten\Excel opmerkingen.xls")
for i = 1 to 20
Sheets("Blad1").oleobjects("ComboBox"& i).object.List = .Sheets("Blad2").Range("c2:f202").Value
next i
.Close
End With
End Sub
Private Sub Workbook_Open()
Dim c As Long
Dim i As Long
Dim j As Long
Dim k As Long
With GetObject("C:\Dropbox\documenten\Excel omschrijving.xls")
For c = 1 To 21 'c is een groep comboboxen die het zelfde moeten doen'
Sheets("InvoerSheet").OLEObjects("ComboBox" & c).Object.List = .Sheets("Blad2").Range("a2:a202").Value
Next c
For i = 21 To 50 'i en j zijn twee groepen comboboxen die het zelfde moeten doen'
For j = 52 To 91
Sheets("InvoerSheet").OLEObjects("ComboBox" & i, j).Object.List = .Sheets("Blad2").Range("c2:f202").Value
Next i, j
For a = 51 'k is een enkele combobox die uit k zijn gegeven moeten halen'
Sheets("InvoerSheet").OLEObjects("ComboBox" & a).Object.List = .Sheets("Blad2").Range("k2:k20").Value
Next k
.Close
End With
End Sub
With GetObject("C:\Dropbox\documenten\Excel omschrijving.xlsm")
For c = 1 To 21 'c is een groep comboboxen die het zelfde moeten doen'
Sheets("InvoerSheet").OLEObjects("ComboBox" & c).Object.List = .Sheets("Blad2").Range("a2:a202").Value
Next c
For i = 21 To 50 'i en j zijn twee groepen comboboxen die het zelfde moeten doen'
Sheets("InvoerSheet").OLEObjects("ComboBox" & i).Object.List = .Sheets("Blad2").Range("c2:f202").Value
Next i
Sheets("InvoerSheet").combobox51.List = .Sheets("Blad2").Range("k2:k20").Value
For j = 52 To 91
Sheets("InvoerSheet").OLEObjects("ComboBox" & j).Object.List = .Sheets("Blad2").Range("c2:f202").Value
Next j
.Close
End With
With GetObject("C:\Dropbox\documenten\Excel omschrijving.xlsm")
For i = 1 To [COLOR=#0000ff]20 [/COLOR]'c is een groep comboboxen die het zelfde moeten doen'
Sheets("InvoerSheet").OLEObjects("ComboBox" & c).Object.List = .Sheets("Blad2").Range("a2:a202").Value
Next i
For i =[COLOR=#0000ff] 21 To 91[/COLOR] 'i en j zijn twee groepen comboboxen die het zelfde moeten doen'
Sheets("InvoerSheet").OLEObjects("ComboBox" & i).Object.List = .Sheets("Blad2").Range("c2:f202").Value
Next i
Sheets("InvoerSheet").combobox51.List = .Sheets("Blad2").Range("k2:k20").Value
.Close
End With
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If MsgBox("U wilt deze gegevens toevoegen?", vbCritical + vbYesNo) = vbYes Then
Application.ScreenUpdating = False
If ComboBox1.ListIndex = -1 Then
With Workbooks.Open([COLOR=#3E3E3E]"C:\Dropbox\documenten\Excel omschrijving.xlsm")[/COLOR].Sheets("blad2")
.Cells(Rows.Count, 15).End(xlUp).Offset(1) = ComboBox1.Value
ComboBox1.List = .range("O2:O" & .cells(rows.count,15).end(xlup).row).Value
.Parent.Close -1
End With
End If
End If
End Sub
.Cells(Rows.Count, 15).End(xlUp).Offset(1) = ComboBox1.Value
ComboBox1.List = .range("O2:O" & .cells(rows.count,15).end(xlup).row).Value
.Cells(Rows.Count, 1).End(xlUp).Offset(1) = ComboBox1.Value
ComboBox1.List = .range("A2:A" & .cells(rows.count,1).end(xlup).row).Value
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.