Hallo,
Ik ben bezig met een excel rekenmodel, met materialen database.
Wat ik wil bereiken is als volgt:
met combobox materiaal selecteren-->
Enkele materiaalwaarden plaatsen in bepaalde cel -->
Database staat gewoon op een tabblad in excel, bijv: a1: naam, b1 waarde2, c1:waarde 3
Momenteel heb ik het volgende stukje code verkregen dat werkt:
Echter wanneer ik nu weer op de combobox klik komen de namen er dubbel in te staan, dit wil ik voorkomen.
Iemand tips?
Mvg,
Chris
Ik ben bezig met een excel rekenmodel, met materialen database.
Wat ik wil bereiken is als volgt:
met combobox materiaal selecteren-->
Enkele materiaalwaarden plaatsen in bepaalde cel -->
Database staat gewoon op een tabblad in excel, bijv: a1: naam, b1 waarde2, c1:waarde 3
Momenteel heb ik het volgende stukje code verkregen dat werkt:
Private Sub cbomat_click()
Dim oC As Range, EndRow As Long, r As Long
EndRow = ThisWorkbook.Sheets(3).Cells(Rows.Count, 1).End(xlUp).Row
Set oC = ThisWorkbook.Sheets(3).Cells
For r = 1 To EndRow
If oC(r, 1).Value <> "" Then
cboMat.AddItem oC(r, 1).Value
End If
Next
End Sub
Private Sub cbomat_change()
Dim i As Integer
Dim l As Long
Dim oRng As Range
Set oRng = ThisWorkbook.Sheets(3).Cells.Find(what:=cboMat.Value, lookat:=xlWhole)
Sheet3.Range("a14").Value = oRng.Offset(0, 1).Value
End Sub
Echter wanneer ik nu weer op de combobox klik komen de namen er dubbel in te staan, dit wil ik voorkomen.
Iemand tips?
Mvg,
Chris