Is this any better. It assumes that the data is on a worksheet called Data
Private Sub UserForm_Activate()
TextBoxItemName.Value = ""
With cboCategory
.AddItem "IT System"
.AddItem "Personnel"
.AddItem "ROV"
.AddItem "ROV Survey Systems"
.AddItem "ROV Tooling and NDT Systems"
.AddItem "Vessel"
.AddItem "Vessel Consumables"
.AddItem "Vessel Survey Systems"
End With
CboSubCategory.Value = ""
TextBoxItemName.Value = ""
With cboTypeOfAcquisition
.AddItem "Consumables"
.AddItem "Employed"
.AddItem "Hire In"
.AddItem "Investment"
.AddItem "Owned"
End With
cboTypeOfAcquisition.Value = ""
With CboCurrency
.AddItem "BRL"
.AddItem "DKK"
.AddItem "EUR"
.AddItem "GBP"
.AddItem "MXN"
.AddItem "NOK"
.AddItem "SEK"
End With
CboCurrency.Value = ""
TextBoxPurchasingPrice.Value = ""
End Sub
Private Sub cboCategory_Change()
With cboCategory
.Clear
Select Case .Value
Case "IT System": .AddRange Worksheets("Data").Range("IT_System")
Case "Personnel": .AddRange Worksheets("Data").Range("Personnel")
Case "ROV": .AddRange Worksheets("Data").Range("ROV")
Case "ROV Survey Systems": .AddRange Worksheets("Data").Range("ROVSurveySystems")
Case "ROV Tooling and NDT Systems": .AddRange Worksheets("Data").Range("ROVToolingandNDTSystems")
Case "Vessel": .AddRange Worksheets("Data").Range("Vessel")
Case "Vessel Consumables": .AddRange Worksheets("Data").Range("VesselConsumables")
Case "Vessel Survey Systems": .AddRange Worksheets("Data").Range("VesselSurveySystems")
End Select
End With
End Sub
Bookmarks