JSDJSD

Prueba y comenta... en el video veras que solo pone un si pero es que me he equivocado al subirlo el que he subido es de una prueba anterior, en realidad pasa todos los marcados. EEDD2020-3.xlsm

Lo de que no tengas duplicados en el combo me ha quedado claro pero porque no subes un ejemplo de como quieres que queden realmente los datos guardados en las diferentes hojas? Es decir si por ejemplo filtramos lo siguiente como debería quedar en las diferentes hojas guardado?

Si no te da nadie solución, mañana te subo el archivo modificado. Mientras si quieres inténtalo tu mismo ya que solo hay que cambiar de tu código un par de cosillas

Pregunta trampa.. 😜

Pues ya tienes unos puntitos ganados con el maestro Antoni y con mi persona.

Ya lo único que me queda por decirte es que espero que seas del Real Madrid,,, 😎

Siempre hay que probar todo el material que nos ofrecen, decir si nos funciona como queremos y agradecer la implicación de aquel que nos ofrece su ayuda. Un saludo

Prueba la alternativa del maestro Antoni, es lo mismo pero de un modo diferente, y no olvides nunca agradecer a quién te ayuda o intenta ayudar y es el foro es mediante el corazoncillo que tenemos en la parte inferior derecha.

uuffff¡¡¡¡ aquí el archivo duda exce prueba1.xlsm

Mira a ver si es esto lo que necesitas ?

Sube tu archivo, con un ejemplo del Antea y el después

Por eso mismo decía yo que no sabía si lo había entendido bien o no. Perfecto Antoni

Prueba a ver si es lo que necesitas no se si te entendí bien Distribución en grupos.xlsm

Prueba y comenta a ver si es lo que pretendes, eso sí, te dejo como tarea que implementes tu las fechas en caso de que no lo consigas dilo. ESCUELA (Prueba 1).xlsm

Este si es el tuyo Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ' Si pulsamos Enter en textbox2 se ejecuta la macro date1 = TextBox1: Date2 = TextBox2 ' Asignamos a las variales su valor With Sheets("Hoja1").Range("A1").CurrentRegion ' Seleccionamos todo rango desde A1 'Filtramos en la columna 1 según condicion por dos criterios en este caso >= y <= .AutoFilter 1, Criteria1:=">=" & CDbl(CDate(date1)), Operator:=xlAnd, Criteria2:="<=" & CDbl(CDate(D

Simplemente te reemplace esta línea ListBoxLista.Clear por ListBoxLista.RowSource = "", el resto del código es tuyo, de todos modos si necesitas una explicación del mismo te subo tu código comentariado. ** Cuando se usa RowSource para cargar ListBox no se puede borrar este con Clear, si no que tienes que usar la propiedad RowSource="" para borrarlo. Private Sub BtnBuscar_Click() Dim fin As Long, i As Long, n As Long Dim sCadena_seccion As String Set FILTRAR = ActiveWorkbook.Worksheets("Listado") With FILTRAR fin = Application.CountA(.Range(

Perdón esto no tenía que ponerlo aquí.

Simplemente te reemplace esta línea ListBoxLista.Clear por ListBoxLista.RowSource = "", el resto del código es tuyo, de todos modos si necesitas una explicación del mismo te subo tu código comentariado. ** Cuando se usa RowSource para cargar ListBox no se puede borrar este con Clear, si no que tienes que usar la propiedad RowSource="" para borrarlo. Private Sub BtnBuscar_Click() Dim fin As Long, i As Long, n As Long Dim sCadena_seccion As String Set FILTRAR = ActiveWorkbook.Worksheets("Listado") With FILTRAR fin = Application.CountA(.Range(

Hola xinortiz, prueba y comenta InicioPrueba.xlsm baseprueba.xlsx

Muchísimas gracias Gerson, es lo que quería confirmar. Podemos dar el tema por resuelto, gracias.

Hola NAB_20, te dejo una opción , abre el formulario, introduce fecha inicio y fecha fin y pulsa enter. Antoni un saludo también para ti. Prueba v1.xlsm

Hola, alguién podría sacarme de dudas ?, es decir confirmarme si al cargar en formulario dentro de un WebBrowser un pdf se puede evitar el parpadeo o no, para ello subo archivo usado así como una representación visual del mismo. Prueba.rar

Me alegro mucho pero no olvides nunca agradecer a quien te ayuda o intenta ayudar y en este foro es mediante el corazoncillo que encontramos en la parte inferior derecha.

Sub ExportarBase() Dim Fila As Long Dim no As Range Dim solicitud As String Application.ScreenUpdating = False solicitud = Hoja1.Cells(1, 2) ufh1 = Hoja2.Range("A" & Rows.Count).End(xlUp).Row With Hoja2.Range("A2:A" & ufh1) Set no = .Find(CDbl(solicitud), LookIn:=xlValues, lookat:=xlWhole) With Hoja2 If Not no Is Nothing Then Fila = no.Row .Range("A" & Fila) = Hoja1.Range("B1") .Range("B" & Fila) = Hoja1.Range("B3") .Range("C" & Fila)