Jump to content

Pirtrafilla

Members
  • Posts

    453
  • Joined

  • Last visited

  • Days Won

    2

Pirtrafilla last won the day on March 28 2021

Pirtrafilla had the most liked content!

About Pirtrafilla

  • Birthday 06/09/1968

Converted

  • Campos
    ;

Recent Profile Visitors

1,589 profile views

Pirtrafilla's Achievements

  1. Gracias a todos por la ayuda. No he respondido porque hace varios días que no había entrado al foro. Voy a usar los aportes, me van a ser de mucha ayuda. Gracias!!!
  2. @FGV Gracias. Voy a mirar esto que me dices, tendré que adaptarme a lo que hay, si no se puede trabajar con horas en negativo. Lo dicho, Gracias.
  3. Gracias por la respuesta. Es casi lo que quiero, solo que el saldo lo tengo que hacer por cada fila. Estoy intentando adaptar la formula pero no me sale. ¿podrías revisarla a ver donde estoy fallando? Gracias. Convertir a horas-FGV(2).xlsx
  4. Buenos días. Tengo un fichero que descargo cada día de un aplicativo de la empresa que me vienen las horas y minutos en formato texto. La única manera que he conseguido de convertirlo a horas y minutos es con esta formula. Pero el problema me viene cuando las horas están en negativo, que me da error. Esto es de un archivo que me informa de las horas informadas por cada empleado en un registro de jornada, hay quien hace menos de su jornada o simplemente no ha venido y ahí es cuando viene en negativo. Lo tengo que convertir al formato adecuado para poder tratar el fichero. Adjunto un ejemplo. Agradezco la ayuda. Convertir a horas.xlsx
  5. @Antoni Muchas gracias, la modificación es perfecta. 'Cargamos datos For x = 2 To CargaWeb.Range("A" & Rows.Count).End(xlUp).Row pf = .Range("A" & Rows.Count).End(xlUp).Row + 1 Set ProvDoc = .Columns("Z").Find(CargaWeb.Cells(x, proveedor.Column) & "|" & _ CargaWeb.Cells(x, documento.Column), , xlValues, xlWhole) Es lo que necesitaba, ahora si que ya no tengo problema si cambie la columna de lugar. Voy a terminar de estudiar el código porque me va a ser útil aquí y en otras ocasiones. Lo dicho, MUCHAS GRACIAS.
  6. @AntoniBuenas tardes de nuevo. Disculpa que vuelva a reabrir este hilo, he estado revisando el código y tengo una duda. Si en la hoja "CargaWeb" la empresa cambia el orden de las columnas, ¿sigue funcionando? Porque ese es mi mayor problema, que el orden de las columnas e incluso pueden añadir más podría variar el resultado. Me he fijado en esta arte del código: 'Cargamos datos For x = 2 To CargaWeb.Range("A" & Rows.Count).End(xlUp).Row pf = .Range("N" & Rows.Count).End(xlUp).Row + 1 Set ProvDoc = .Columns("Z").Find(CargaWeb.Range("B" & x) & "|" & _ CargaWeb.Range("H" & x), , xlValues, xlWhole) If ProvDoc Is Nothing Then 'Comprobamos duplicados Y veo que compara el campo que concatena las celdasProveedor + Documento y se lo lleva a la columna Z de manera temporal y los busca en la hoja CargaWeb en las columnas B y H. Por ahora me da perfecto pero si mañana cambian el orden de las columnas en la hoja CargaWeb creo que ya no conseguimos que funcione igual. Corrígeme por favor si estoy equivocado, y si estoy en lo cierto, ¿habría forma que teniendo en cuenta que los títulos no van a cambiar de nombre pero si la ubicación en las columnas no influyera si esto sucediera? Porque va a pasar si o si, sino ahora en unos días. Es decir, en la hoja Principal no van a cambiar de lugar las columnas, pero en la hoja CargaWeb seguro que ocurre. Gracias!!!
  7. @Antoni Simplemente fantástico. Es justo que necesitaba. Con que poco código has hecho esto, estoy alucinado. Además el código me parece elegante. Estoy intentando entender cada parte del código, que sencillo lo haces y lo complejo que me parece. Muchísimas gracias. Un abrazo.
  8. Hola de nuevo. De momento he encontrado la forma de recorrer la hoja CargaWeb. La he convertido en una tabla, creo que así si cambian de lugar las columnas será más fácil recorrerla. Agradezco cualquier ayuda y comentario para seguir con lo que exponía en el primer post. Sub Carga() Dim filas As Integer, x As Integer, buscar As String filas = Sheets("CargaWeb").ListObjects("tabla1").DataBodyRange.Rows.Count For x = 1 To filas buscar = Sheets("CargaWeb").ListObjects("Tabla1").ListColumns("CÓDIGO PROVEEDOR").DataBodyRange.Cells(x, 1) buscar = buscar & Sheets("CargaWeb").ListObjects("Tabla1").ListColumns("NUMERO DOCUMENTO").DataBodyRange.Cells(x, 1) 'MsgBox "Fila " & x & " PROVEEDOR " & buscar Next x End Sub Lo siguiente creo que sería comparar estas columnas con la hoja Principal y si encuentro lo mismo no copio los datos, pero si no encuentro duplicado entonces añado los datos de la fila de CargaWeb a la hoja Principal. Creo que lo más rápido sería usar el método Find, pero claro he de comparar dos columnas a la vez y no se cómo hacerlo. Gracias.
  9. Buenos días a todos de nuevo. Busco ayuda en este asunto porque voy muy perdido. Tengo un archivo con dos hojas, "Principal" y "CargaWeb". En la hoja Principal quiero traerme las filas de CargaWeb donde los datos no se repitan en Principal. Pero el primer problema es que la hoja CargaWeb no siempre tiene las columnas en el mismo orden. Aunque es cierto que los títulos que necesito en Principal están en CargaWeb. He creado un fichero de muestra y veréis que en Principal hay muchas columnas, las que está coloreadas son las que necesito rellenar. Es decir tengo dos problemas, uno que los datos no se han de repetir (en este caso por ejemplo PROVEEDOR y NUMERO DE DOCUMENTO serían los datos a comparar para que no se repitan) y el otro problema es el orden de las columnas en CargaWeb que de manera constante cuando lo descargo de un sistema de la empresa vienen en otro orden. Actualmente lo hago a mano y me emplea mucho rato esto y busco la manera de automatizarlo. No se si la idea de convertir en una tabla la hoja CargaWeb sería de ayuda a la hora de importar los datos. Agradezco cualquier ayuda o comentario. Un abarzo. Moisés. 1052 Portafirmas.xlsx
  10. Hola, la hoja parece que está bloqueada, al menos para editar algunas celdas. Pero además había hojas ocultas. Para salir del paso he podido porque lo que necesitaba estaba en la hoja oculta. Pero como no se si tiene contraseña la edición de la hoja lo dejo así. He visto las macros y no hay bloqueos ni contraseñas. Pero muy bueno, para lo que necesitaba ver ya lo he visto en la hoja oculta. Había una lista de productos desordenada y en el desplegable me era tedioso encontrar algo porque no tenía orden. Gracias!!
  11. Buenas. Tengo un archivo Excel que me han dejado en el trabajo. Quiero ver en validación de datos de donde coge un desplegable los datos. Sin embargo cundo me pongo en la celda la barra de herramientas está en gris. No vero como se desbloquea esto. El libro no tiene contraseña, por eso pienso que lo mismo es una opción de Excel y no de bloquear. Y el problema se agrava porque ese fichero lo hizo alguien que ya no está en la empresa, así que no puedo preguntarle. ¿hay manera que la barra de herramientas se pueda habilitar? Gracias.
  12. Hola Gabriel, perdona la tardanza. He estado haciendo pruebas y buscando el por qué no acaba de funcionar. En el fichero de ejemplo funciona pero en el mío funciona en unas columnas y en otras no. Te envío mi fichero original, he quitado datos sensibles y dejado lo necesario. Además te he filtrado por las tarjetas COMODIN para que veas que hay algunas que si me da el conductor pero otras no, y no consigo ver donde está el error. Las tarjetas veras que se llaman PROVISION en vez de COMODIN. Te agradezco toda ayuda, tengo esto en el punto final pero no me funciona y no lo puedo terminar de poner en marcha. Y si alguien más puede ayudar también lo agradezco. Moisés. GestionRepsol (copia).xlsm
  13. Lo siento, me deje el archivo en el camino. Lo adjunto. Ejemplo consumos combustible sq (2).xlsx
×
×
  • Create New...

Important Information

Privacy Policy