Jump to content

tierra_pampa

Members
  • Content Count

    269
  • Joined

  • Last visited

  • Days Won

    11

tierra_pampa last won the day on September 21

tierra_pampa had the most liked content!

4 Followers

About tierra_pampa

  • Rank
    Advanced Member
  • Birthday 03/16/1961

Contact Methods

  • Twitter
    @tierra_pampa

Profile information

  • Gender
    Hombre
  • Localización:
    Santa Rosa, La Pampa

Converted

  • Campos
    ;

Recent Profile Visitors

1,422 profile views
  1. Hola @TREBUR Me salió esto. Espero que sea lo que necesitas. Suerte! ae20191013_Libro1.xlsm
  2. Hola @Jose BN! Ya tienes varias respuestas, pero aproveché un momento de relax en mis vacaciones y te dejo otra propuesta. Espero haber entendido tu solicitud! Suerte! ae20191011_CONSULTA COMBOBOX.xlsm
  3. Hola @Xanito Te dejo un nuevo archivo con los cambios (malentendí que de cada lote vendías la disposición actual, no que se elegía el lote desde cual vender). Espero que sea lo que necesitas. Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario. Suerte ae20190930_Stocks-Perecederos - copia_v2.xlsm
  4. Hola @Xanito Te dejo un archivo con algunos retoques. Solo estudié el procedimiento "Validar_Click". Puede que me queden errores para solucionar, pero entiendo que te servirá. Puedes comprobar si realmente sirve para tí? Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario. Suerte ae20190929_Stocks-Perecederos - copia.xlsm
  5. Hola @Málaga Te dejo un archivo para que compruebes si es lo que necesitas. Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario. Suerte! ae20190927_post42214_2019_Prueba.xlsm
  6. hola @jumarcano Dejo un nuevo archivo para tu comprobación. Cómo no explicaste dónde iban los nombres de los vendedores, las hojas se crearán con el nombre que ingreses en la columna "B" (como en el primer archivo que subiste al foro). Puedes poner cualquier nombre (siempre que Excel lo admita). Cualquier problema, nos seguimos contactando por el foro. Suerte! ae20190926_post42166_Ejemplo Copiar Hoja_v3.xlsm
  7. Hola @jumarcano Te dejo un nuevo archivo para que compruebes si es lo que necesitas. Como los nombres de hoja eran muy largos los modifiqué a una letra y sus respectivos valores numéricos. Si no los quieres de dicha manera, avisas y lo eliminamos. Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario. Suerte! ae20190924_post42166_Macro Argentina.xlsm
  8. Hola @jumarcano A la macro que tienes, le agregué una pequeña comprobación para que si el nombre de la hoja existe, no la cree nuevamente. Dicha función es una adaptación a una enseñanza de @Antoni para suplantar las propiedades "EnableEvents" en un formulario. Puedes probar para ver si es lo que necesitas? Que tengas una buena jornada! ae20190921_Ejemplo Copiar Hoja.xlsm
  9. Hola de nuevo @JSDJSD Perdón! No entendí lo que necesitabas (en realidad no había mirado el video) Prueba ahora por favor! ae20190921_Filtradoentrefechas.xlsb
  10. Buenos días @JSDJSD Te dejo una opción. (traté de modificar tu código lo menos posible. No obstante ello, te dejo otra posibilidad para la carga de los datos del cliente, para que no se carguen duplicados.) Que tengas una buena jornada! ae20190921_Filtradoentrefechas.xlsb
  11. Hola @TREBUR Prueba el archivo que subo para comprobar si es lo que necesitas. Comenta, por favor. Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario. Suerte! ae20190821_descomponer_fecha.xlsm
  12. Hola @jose_luisc Te dejo una posible opción. Suerte!!! Sub Rectánguloesquinasredondeadas1_Haga_clic_en() If Hoja1.Range("H3").Value > 21 Then Hoja2.Activate Range("G4").Activate Else Hoja3.Activate Range("G4").Activate End If End Sub
  13. Hola @Visor Modificaste los nombres de los controles (seguramente por el archivo provisorio). Tienes error en las órdenes "FOR NEXT". Revisa y comenta. Suerte! Private Sub ComboBox2_Click() 'Select Case CbxBuscador.Value Select Case ComboBox2.Value Case Is = "AÑO" For X = Hoja3.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If Not Hoja3.Range("B" & X) Like "*" & CbxBuscador & "*" Then Hoja3.Rows(X).Delete End If Next Case Is = "PERIODO" For X = Hoja3.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If Not Hoja3.Range("C" & X) Like "*" & CbxBuscador & "*" Then Hoja3.Rows(X).Delete End If Next Case Is = "MES" For X = Hoja3.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If Not Hoja3.Range("D" & X) Like "*" & CbxBuscador & "*" Then Hoja3.Rows(X).Delete End If Next Case Is = "DIA" For X = Hoja3.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If Not Hoja3.Range("E" & X) Like "*" & CbxBuscador & "*" Then Hoja3.Rows(X).Delete End If Next Case Is = "CARRERA" For X = Hoja3.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If Not Hoja3.Range("G" & X) Like "*" & CbxBuscador & "*" Then Hoja3.Rows(X).Delete End If Next Case Is = "LABORAT." For X = Hoja3.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If Not Hoja3.Range("H" & X) Like "*" & CbxBuscador & "*" Then Hoja3.Rows(X).Delete End If Next Case Is = "SEMESTRE" For X = Hoja3.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If Not Hoja3.Range("I" & X) Like "*" & CbxBuscador & "*" Then Hoja3.Rows(X).Delete End If Next Case Is = "ASIGNATURA" For X = Hoja3.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If Not Hoja3.Range("J" & X) Like "*" & CbxBuscador & "*" Then Hoja3.Rows(X).Delete End If Next Case Is = "DOCENTE" For X = Hoja3.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If Not Hoja3.Range("K" & X) Like "*" & CbxBuscador & "*" Then Hoja3.Rows(X).Delete End If Next Case Is = "OBSERVACION" For X = Hoja3.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If Not Hoja3.Range("S" & X) Like "*" & CbxBuscador & "*" Then Hoja3.Rows(X).Delete End If Next Case Else End Select End Sub
  14. Hola @Erick Saul Te dejo una opción. Comprueba si es lo que necesitas. Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario. Suerte! ae20190507_post41707_ejercicio de frutas.xlsm
  15. Hola Amigo, buen día, espero no te hayas retirado del foro, por favor te recuerdo mi petición sobre la Macro-Inventario

     

    gracias

×
×
  • Create New...

Important Information

Privacy Policy