VBA Excel, Base de Datos Dos ComboBox Dependientes Datos Repetidos
Disculpen mi ignorancia
Tengo una base de datos como sigue:
A B C
1 Tornillo 4.5 mm 0.05
2 Tornillo 5.5 mm 0.10
3 Tornillo 6.5 mm 0.15
4 Clavo 4.5 mm 0.04
5 Clavo 5.5 mm 0.08
6 Clavo 6.5 mm 0.12
En el cual quiero mostrar una ventana emergente "UserForm" que contiene 2 ComboBox y un Label
En el ComboBox1 quiero mostrar los dos Datos "Tornillos" y "Clavo" pero que no muestre datos repetidos, para eso tengo la siguiente sintaxis
Private Sub UserForm_Activate()
Dim col As New Collection
Set hoja = Worksheets("Hoja1")
ufila = hoja.Cells(hoja.Rows.Count, 1).End(xlUp).Row
On Error Resume Next
For i = 1 To ufila
col.Add Item:=hoja.Cells(i, 1).Value, Key:=CStr(hoja.Cells(i, 1).Value)
Next i
For i = 1 To col.Count
Me.ComboBox1.AddItem col(i)
Next i
Me.ComboBox2.Clear
End Sub
En el ComboBox2 quiero mostrar las dimensiones de los tornillos o clavos según se haya escogido, y como ComboBox2 es dependiente de ComboBox1, tengo la siguiente sintaxis
Private Sub ComboBox1_Change()
Me.ComboBox2.Clear
grupo = ComboBox1.Value
Set hoja = Worksheets("Hoja1")
ufila = hoja.Cells(hoja.Rows.Count, 1).End(xlUp).Row
For i = 1 To ufila
dimension = Cells(i, 2)
If Cells(i, 1) = grupo Then
With Me.ComboBox2
.AddItem dimension
End With
End If
Next
End Sub
Ahora bien el problema que tengo, es que a la hora de selecciona el "Tornillo" o "Clavo" y la dimensión de este, en el label1 aparezca el precio del articulo seleccionado, el cual no he logrado encontrar su sintaxis
Son algo novato en esto.