Máximos colaboradores

Mañana te lo miro

Private Sub CommandButton1_Click() Hoja1.Range("A2").Resize(Hoja1.Rows.Count - 1).Offset(0, 0).Delete For Each hoja In Sheets If hoja.Name Like "Seguimiento" & "*" Then ufh2 = Hoja1.Range("E" & Rows.Count).End(xlUp).Row + 1 With Sheets(hoja.Name).Range("A1").CurrentRegion .AutoFilter 5, Criteria1:="<>" .Offset(1).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible).Copy Hoja1.Range("A" & ufh2) .AutoFilter End With End If Next End Sub Seguimientos - copia.xlsm

C:\Users\tu usuario\AppData\Roaming\Microsoft\Excel\XLSTART

Sin libro de ejemplo solo puedo participar en tu consulta con código pensado de manera general. Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim i As Integer Dim existe As Boolean existe = False ' Verificar si el elemento ya existe en la lista For i = 0 To ComboBox1.ListCount - 1 If ComboBox1.List(i) = ComboBox1.Text Then existe = True Exit For End If Next i ' Si el elemento no existe, agregarlo a la lista If Not existe Then ComboBox1.AddItem ComboBox1.Text End If End Sub Este código agrega un nuevo elemento al combobox cuando el usuario escribe algo y presiona ‘Enter’. Espero te sea de ayuda, sino comparte el ejemplo y es posible que algún miembro o Maestro te brinde ayuda más específica.