Jump to content

tierra_pampa

Members
  • Content Count

    285
  • Joined

  • Last visited

  • Days Won

    12

tierra_pampa last won the day on October 30 2019

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,847 profile views
  1. Hola @joselica Amigo, una correción rápida antes de salir rumbo al trabajo. Si no es lo que necesitas, y no te responden antes, a la noche ingreso por las dudas. Suerte! ae20200701_post43704_LISTADO DESAYUNOS 03.07.2020 - OK - falta totales.xlsm
  2. Hola @alexanderch Te dejo un archivo para que pruebes si es lo que necesitas. Es una modificación del archivo subido por @Mauricio_ODN Como te indicaran en la primera respuesta, tienes que indicar la ruta dónde dejar los archivos en la celda "D1" de la hoja "Directivo". 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! ae20200701_post43715_RECIBOS PAGOS PRUEBA1.xlsb
  3. Hola @joselica Va una nueva versión (te paso algunos colores en la hoja "configura", tu decide cual te gusta más) Prueba si es de tu gusto. Suerte! ae20200701_post43704_BREAKFAST LISTv2.xlsm
  4. Hola @PATILARGO Disculpas amigo, era tarde en mi país y creí que podrías reemplazarlo. Espero que te sirva la posible solución. Cualquier problema que puedas tener, por aquí andarán siempre personas dispuestos a ayudarte. Suerte! ae20200630_post43702_Plani.xlsm
  5. Buenas tardes tierra_pampa,

    Tal como te he dico, he comprobado tu ayuda.

    Resulta que en la columa de los servicios T2, no me recopila bien los datos.

    He dado vueltas y no me aclaro en solucionarlo.

    ¿Podias echarle un vistazo de nuevo? Por favor.

    Adjunto el documento repasado.

    Saludos,

     

     

     

     

    BREAKFAST LIST - PROBA 01.07.2020.xlsm

    1. tierra_pampa

      tierra_pampa

      Hola amigo!

       

      Estoy en eso. Dame un ratito y lo reenvío en el post principal

      Abrazo grande desde La Pampa, Argentina!}

       

    2. joselica

      joselica

      Hola amigo,

      No te preocupes.

      Agradezco enormemente tu ayuda.

      Esperare tu respuesta para ver donde esta el error sobre los datos de la columna T2..

      Mientras tanto ire probando y estudiando lo que has conseguido hasta ahora.

      Un abrazo,

      Jose

  6. Hola @joselica Te dejo un archivo para que pruebes 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! ae20200701_post43704_BREAKFAST LIST.xlsm
  7. Hola @PATILARGO Te dejo una opción modificando tan solo una línea de la macro. 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! For Each x In Range(vci, vci.End(xlDown)) If x <> "6011" Then i = i + 1 If i > 1 Then vpc = x + 0 & "-" & vpc 'vpc = vpc & "-" & x + 0 Else vpc = vpc & x + 0 End If End If Next
  8. Hola @Marcos14 Te dejo un archivo para que pruebes 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! ae20200624_post43676_combobox.xlsm
  9. Hola @Maria_80 Te dejo un archivo para que pruebes 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! ae20200624_post43672_ejemplo_filtro.xlsm
  10. Hola @bzrxds Te dejo un archivo para que pruebes 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! ae20200618_post43643_Libro4.xlsm
  11. Hola @Enid86 El código del Maestro Antoni efectúa lo que necesitas. Suerte! Sub encontrar_letra() With Application .ScreenUpdating = False .DisplayAlerts = False End With ccol = Hoja1.Cells(3, 2).Value ufila01 = 0: ufila01 = Hoja1.Cells(Rows.Count, ccol).End(xlUp).Row ctexto = Hoja1.Cells(4, 2) With Columns(ccol) .Find(ctexto, .End(Down), , xlWhole, , xlPrevious).Select End With MsgBox "La última celda con valor: " & ctexto & " es la celda: " & ActiveCell.Address With Application .ScreenUpdating = True .DisplayAlerts = True End With End Sub ae20200503_post43338_encontrar letra.xlsm
  12. Hola @Jose BN Perdón amigo, hice el código y no caí en cuenta que el pedido original incluía otras columnas. Perdón! La mejor manera de aprender es bajar un archivo cualquiera e ir viendo (paso a paso) que es lo hace Excel tras cada línea de código. Mientras tanto, siempre tendrás el foro para evacuar posibles dudas. Qué tengas una buena jornada!
  13. Hola @Jose BN A ver si te sirve esta modificación. Por favor, la próxima consulta recuerda que hay que subir los archivos para pruebas. Suerte! Sub copiarDatosDeArchivo1A2() Dim x As Workbook Dim y As Workbook '## Abrimos ambos ficheros cruta01 = ThisWorkbook.Path & "\" cruta02 = "C:\Users\jballadares\Desktop\CSV\" carch01 = ThisWorkbook.Name carch02 = "JBLibro4.xlsx" Set x = ActiveWorkbook Set y = Workbooks.Open(cruta02 & carch02) 'Copiamos los datos que queramos del primer libro de excel: ufila1 = 0: ufila1 = Hoja1.Cells(Rows.Count, 2).End(xlUp).Row x.Sheets("RV").Range("B1:B" & ufila1).Copy 'Pegamos en el otro libro: y.Sheets("Hoja1").Range("A1").PasteSpecial 'Cerramos el fichero: 'x.Close y.Save y.Close End Sub
  14. Hola @cristian9209 Dejo un archivo con lo entiendo puede llegar a ser los que necesitas. La macro revisa que el nombre de hoja no esté previamente ocupado, pero no elimina la hoja. Si lo deseas, lo modificamos para ello. 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! ae20191029_post342313_Ejemplo.xlsm
  15. Hola @josegomez Prueba el dato modificando la versión del programa que usas en la cadena: ( Microsoft.ACE.OLEDB.xx.0; ) bd = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ruta & "\" & base_de_datos & ";Persist Security Info=False;" Conn.Open bd La macro funciona. Suerte!
×
×
  • Create New...

Important Information

Privacy Policy