Jump to content

JSDJSD

Members
  • Content Count

    1,101
  • Joined

  • Last visited

  • Days Won

    70

Everything posted by JSDJSD

  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
  12. 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(
  13. Perdón esto no tenía que ponerlo aquí.
  14. 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(
  15. Hola xinortiz, prueba y comenta InicioPrueba.xlsm baseprueba.xlsx
  16. Muchísimas gracias Gerson, es lo que quería confirmar. Podemos dar el tema por resuelto, gracias.
  17. 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
  18. 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
  19. 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.
  20. 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)
×
×
  • Create New...

Important Information

Privacy Policy