HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.455
- Office versie
- Bèta Insider Office 365
Het hele proces is een wirwar aan codes.
Ik ga dat niet helemaal voor je optimaliseren.
Een stukje om je op gang te helpen.
Zorg dat de codes die daar op volgen aangepast worden zodat je met de Update-knop alles wegschrijft.
Ik ga dat niet helemaal voor je optimaliseren.
Een stukje om je op gang te helpen.
Code:
Private Sub ComboBox1_Change()
With Sheets("AutoCAD Data")
Set c = .Columns(1).Find(ComboBox1, , , xlWhole)
If Not c Is Nothing Then
TbxBouwLaag = c.Offset(1).Value
TbxGO = Format(c.Offset(, 4), ".00")
TbxHoogte = Format(c.Offset(, 5), "0.00")
TbxLengte = Format(c.Offset(, 13), "0.00")
TbxBreedte = Format(c.Offset(, 14), "0.00")
CbxGebruiksfunctie = c.Offset(, 3).Value
End If
End With
bereken
Zorg dat de codes die daar op volgen aangepast worden zodat je met de Update-knop alles wegschrijft.