Problema para añadir datos a un Combo vinculado a otro Combo

Prueba con esta macro

Sub llenar_combo1()
inicio = Time
Dim unicos As New Collection
Set a = Worksheets("listado ot")
Set k = Worksheets("analisiscuex")
Set datos = a.Range("g5").CurrentRegion
Set lista = CreateObject("System.Collections.ArrayList")
With datos
    f = .Rows.Count
    .Sort key1:=a.Range(.Columns(1).Address), order1:=xlAscending
    k.ComboBox1.Clear
    For i = 1 To f
        numero = .Cells(i, 1)
        On Error Resume Next
            unicos.Add numero, CStr(numero)
            If Err.Number = 0 Then k.ComboBox1.AddItem numero
        On Error GoTo 0
    Next i
    Set datos = Nothing: Set lista = Nothing
End With
fin = Time
tiempo = fin - inicio
MsgBox ("completado en " & Second(tiempo) & " segundos"), vbInformation, "AVISO"
End Sub
Sub llena_combo2()
Set a = Worksheets("listado ot")
Set k = Worksheets("analisiscuex")
Set datos = a.Range("g5").CurrentRegion
numero = Val(k.ComboBox1.Value)
With datos
    cuenta = WorksheetFunction.CountIf(.Columns(1), numero)
    fila = WorksheetFunction.Match(numero, .Columns(1), 0)
    a.Range(.Cells(fila, 2).Resize(cuenta).Address).Name = "numeros"
    k.ComboBox2.ListFillRange = "numeros"
End With
Set datos = Nothing
End Sub

Hola James, gracias.

Me funciona solo la primera macro. Le he modificado los nombres de las hojas y el orden de la columna que era la 7. La he dejado así y se rellena bien el Combo.

Sub llenar_combo1()
inicio = Time
Dim unicos As New Collection
Set a = Worksheets("Listado OT")
Set k = Worksheets("AnalisisCuex")
Set datos = a.Range("g5").CurrentRegion
Set lista = CreateObject("System.Collections.ArrayList")
With datos
    f = .Rows.Count
    .Sort key1:=a.Range(.Columns(7).Address), order1:=xlAscending
    k.ComboBox1.Clear
    For i = 2 To f
        numero = .Cells(i, 7)
        On Error Resume Next
            unicos.Add numero, CStr(numero)
            If Err.Number = 0 Then k.ComboBox1.AddItem numero
        On Error GoTo 0
    Next i
    Set datos = Nothing: Set lista = Nothing
End With
fin = Time
tiempo = fin - inicio
MsgBox ("completado en " & Second(tiempo) & " segundos"), vbInformation, "AVISO"
End Sub

La segunda macro me da error en la fila siguiente y se detiene la macro.

fila = WorksheetFunction.Match(numero, .Columns(1), 0). Me sale un error de "No se puede obtener la propiedad Match de la clase WorksheetFunction"

Sub llenar_combo2()
Set a = Worksheets("Listado OT")
Set k = Worksheets("AnalisisCuex")
Set datos = a.Range("g5").CurrentRegion
numero = Val(k.ComboBox1.Value)
With datos
    cuenta = WorksheetFunction.CountIf(.Columns(1), numero)
    fila = WorksheetFunction.Match(numero, .Columns(1), 0)
    a.Range(.Cells(fila, 2).Resize(cuenta).Address).Name = "numeros"
    k.ComboBox2.ListFillRange = "numeros"
End With
Set datos = Nothing
End Sub

Te agradezco si me puedes ayudar.

Moisés.

James, en la segunda macro he modificado esto para que lo tengas en cuenta.

Sub llenar_combo2()
Set a = Worksheets("Listado OT")
Set k = Worksheets("AnalisisCuex")
Set datos = a.Range("h5").CurrentRegion
numero = (k.ComboBox1.Value)
With datos
    cuenta = WorksheetFunction.CountIf(.Columns(7), numero)
    fila = WorksheetFunction.Match(numero, .Columns(1), 0)

Set datos = a.Range("h5").CurrentRegion 'he modificado la columna G por la H que es donde están los datos a rellenar. La columna G era en el Combo1. No se si he hecho bien.

numero = (k.ComboBox1.Value) 'he quitado el Val antes del paréntesis porque el valor daba 0 ya que lo que busca no son números. Con el F8 he visto que así encontraba el valor mientras que antes daba 0.

cuenta = WorksheetFunction.CountIf(.Columns(7), numero) 'aquí he cambiado el 1 por el 7, ya que los valores que busca vincular están en la columna "G".

No se si lo que he hecho está bien del todo, he intentado adaptar la macro entendiendo el funcionamiento, puede que no lo haga bien por eso te lo indico.

Pero el error me sigue saliendo en el mismo lugar que antes.

Quedo a la espera si me puedes ayudar.

Gracias James.

Para que tengas mas datos te envío la tabla de donde deberían salir los Combo.

El primer Combo sale de la columna G y el segundo de la columna H. 

Los datos están a partir de la fila 5, porque la 4 son los títulos.

El primer Combo ya lo hace bien pero el segundo es el que da el fallo porque no encuentra los valores imagino.

Gracias,

Moisés.

James, perdona sea tan pesado. Voy haciendo pruebas dentro de mis limitaciones en VBA y por eso te escribo tan seguido.

Mira, con este código que es modificando el tuyo ya salen los datos, pero en el Combo2 se repiten y lo que necesito es que la lista "numeros" contenga valores únicos. Ya creo que queda poco para acabar para que funcione bien, pero que no se repitan no se como hacerlo.

Código:

Sub llenar_combo2()
Set a = Worksheets("Listado OT")
Set k = Worksheets("AnalisisCuex")
Set datos = a.Range("h5").CurrentRegion
numero = (k.ComboBox1.Value)
With datos
    cuenta = WorksheetFunction.CountIf(.Columns(7), numero)
    fila = WorksheetFunction.Match(numero, .Columns(7), 0)
    a.Range(.Cells(fila, 8).Resize(cuenta).Address).Name = "numeros"
    k.ComboBox2.ListFillRange = "numeros"
End With
Set datos = Nothing
End Sub

Foto:

Muchas gracias, y por tu paciencia.

Moisés.

La respuesta a tu pregunta sobre el 2o combobox esta a la vista en el 1er combobox, mira el código y veras que es así con alguna mínima variación.

Sub llena_combo2()
Dim unicos As New Collection
Set a = Worksheets("listado ot")
Set k = Worksheets("analisiscuex")
Set datos = a.Range("g5").CurrentRegion
actividad = k.ComboBox1.Value
With datos
cuenta = WorksheetFunction.CountIf(.Columns(7), actividad)
fila = WorksheetFunction.Match(actividad, .Columns(7), 0)
Set registros = .Cells(fila, 8).Resize(cuenta, 1)
k.ComboBox2.Clear
For i = 1 To cuenta
contrato = .Cells(fila, 8)
On Error Resume Next
unicos.Add contrato, CStr(contrato)
If Err.Number = 0 Then k.ComboBox2.AddItem contrato
On Error GoTo 0
Next i
End With
Set datos = Nothing: Set registros = Nothing
End Sub