Jump to content

JSDJSD

Members
  • Content Count

    1,101
  • Joined

  • Last visited

  • Days Won

    69

JSDJSD last won the day on February 22

JSDJSD had the most liked content!

About JSDJSD

  • Rank
    Advanced Member
  • Birthday 01/01/1972

Profile information

  • Localización:
    Priego de Córdoba -- Excel 2016 --

Converted

  • Campos
    ;
  • Mi versión de Excel:
    2

Recent Profile Visitors

3,196 profile views
  1. 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
  2. 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?
  3. 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
  4. Pues ya tienes unos puntitos ganados con el maestro Antoni y con mi persona.
  5. Ya lo único que me queda por decirte es que espero que seas del Real Madrid,,, 😎
  6. 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
  7. 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.
  8. Por eso mismo decía yo que no sabía si lo había entendido bien o no. Perfecto Antoni
  9. Prueba a ver si es lo que necesitas no se si te entendí bien Distribución en grupos.xlsm
  10. 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
  11. 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
×
×
  • Create New...

Important Information

Privacy Policy