Buscar con 2 combobox, 2 valores de una hoja y mostrarlos en userform
Estimados, gracias por toda las ayudas anteriores, fui subsanando inconvenientes puntuales, y nuevamente recurro a ustedes para su orientación:
Volviendo a mi userform, tengo dentro de un frame1, necesito que con los datos de Combobox Fecha (puede haber varias o incluso repetirse el dia) y un combobox turno (mañana tarde o noche) que ya fueron cargados previamente, me busque en una Hoja2, tanto un factor y un VCV ( a los efectos de la explicación, ambos son números en columnas fijas) y me los muestre en un label. Navegando y buscando ejemplos, logre armar algo, pero me da diferentes errores, primero una parte donde quiero limpiar y poner en cero un combobox antes de la búsqueda me da error, y si supero esto eliminándolo, me trae otro error de no permitido y errores varios más: les adjunto el código de esta parte en particular, y si algún dato me faltó pasarles para entender más, no duden en pedírmelo:
Private Sub Frame1_Initialize()
TBTurno.Clear
TBFecha.Clear
With Worksheets("Hoja2")
.[aa1] = .[a1].Value
.Range("a1", .[a1].End(xlDown)).AdvancedFilter xlFilterCopy, , .[aa1], True
If .[aa2] = "" Then GoTo Fin
Select Case IsEmpty(.[aa3])
Case False: TBFecha.List() = .Range("aa2", .[aa1].End(xlDown)).Value
Case True: TBFecha.AddItem .[aa2].Value
End Select
Fin:
.[aa1].CurrentRegion.Delete xlShiftUp
End With
End Sub
Private Sub TBFecha_Change()
Dim LR As Long
With Worksheets("Hoja2")
.[aa1] = .[a1].Value: .[ab1] = .[b1].Value
LR = .[a65536].End(xlUp).Row
If LR = 1 Then GoTo Fin
.[aa2] = TBFecha .Range("a1:b" & LR).AdvancedFilter xlFilterCopy, .[aa1:aa2], .[ab1], False
TBTurno.Clear
Select Case IsEmpty(.[ab3])
Case False: TBTurno.List() = .Range("ab2", .[ab1].End(xlDown)).Value
Case True: TBTurno.AddItem .[ab2].Value
End Select
Fin:
.[aa1].CurrentRegion.Delete xlShiftUp
End With
End Sub
Private Sub TBTurno_Change()
Application.ScreenUpdating = False
Sheets("Hoja2").Activate
Range("B2").Select
Lote_existente = Cells.Find(What:=TBTurno, After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=True).Activate
If Lote_existente = True Then
TBFecha = ActiveCell.Offset(0, -1).Value
TBFactor.Value = ActiveCell.Offset(0, 9).Value
TBVCV.Value = ActiveCell.Offset(0, 10).Value
End If
Application.ScreenUpdating = True
End Sub
Desde ya agradezco toda orientación y ayuda adonde quiero llegar con la resolución.
