Jump to content

eayvl

Members
  • Content Count

    92
  • Joined

  • Last visited

About eayvl

  • Rank
    Advanced Member
  • Birthday 03/22/1978

Converted

  • Campos
    ;

Recent Profile Visitors

637 profile views
  1. @Haplox necesito cambiar el número de empleado en hoja "RESULTADO" A2 ejecutar la macro y pase los datos (Periodo, UUID, TOTAL1, TOTA2 Y TOTAL4) Gracias.
  2. Sorprendente! Es posible agregar una Barra de Progreso,
  3. Hola, Requiero de su valiosa orientación y ayuda, de antemano gracias! En la Hoja "DATA" tengo la información que necesito se pase a la hoja "RESULTADO" el id es el número de empleado que esta en la Hoja "RESULTADO" A2 solo se tiene que pasar toda la información que coincida con este dato. En la hoja "RESULTADO" he dejado como debe de quedar la información. Anexo archivo muestra. Muchas gracias! muestra.zip
  4. Lo que indicas es correcto @Héctor Miguel, sin embargo necesito que continué respetando las condicionantes que ya tiene el desarrollo, de acuerdo a lo que me mandaste lo adapte quedando de la siguiente forma y sabes que funciona PERFECTO!!!!! gracias por la idea. Select Case col Case 4, 18, 26, 39, 47 ' columnas que requieren el dato con formato de fecha ' dato = Format(dato, formFecha) End Select Select Case col 'columnas con dato (cero) Case 12, 19, 20, 27, 33, 40, 41, 48, 49 If CDbl(Cells(fila, col)) = 0 Then dato = "" End Select contenido = contenido & sep & dato Select Case col Case 8, 14, 22, 29, 35, 43, 52 ' columnas que determinan el final de cada bloque ' If CDbl(Cells(fila, col)) > 0 Or CDbl(Cells(fila, col - 1)) > 0 Then linea = linea & Mid(contenido, 2) & vbCrLf contenido = "" End Select Lo que trate de intentar es adaptar el contador pero no me da el 100% cuando finaliza. Application.StatusBar = "Registro " & fila - 1 & " de " & Cells(Rows.Count, 1).End(xlUp).Row - 1 & _ " - Completado: " & Int(((fila - 1) / Cells(Rows.Count, 1).End(xlUp).Row) * 100) & " % ..." Next ': Application.StatusBar = False Anexo archivo, genera txt.zip
  5. Hola @Héctor Miguel hay forma de que si en el bloque existe ( Ceros ) no aparezcan en el TXT y solamente quede el pipe vació, anexo imagen de como se tendría que verse el TXT. genera txt.zip
  6. Hola, Quiero agradecer de antemano toda la ayuda que me puedan dar en mi solicitud; Este código genera varios archivos TXT ANSI pero necesito que los genere con la codificación UTF-8 Anexo archivo y código que fue realizado por @Héctor Miguel Sub TXT_Pipes_xFila() ' procedimiento para generar archivos de texto separados por... ??? ' _ R&D: Héctor Miguel Orozco Díaz (octubre 2017) ' _ (modificado por comprobaciones en ceros: febrero 2018) ' Dim ruta As String, formFecha As String, sep As String, fila As Long, col As Integer, _ dato As String, contenido As String, linea As String, archivo As String ruta = ThisWorkbook.Path & "\" ' <= puedes indicar una ruta/carpeta distinta ' formFecha = "dd/mm/yyyy" ' <= por si requieres cambiar el formato de fecha en algunos campos ' sep = "|" ' <= indica el separador de campos/columnas que prefieras ' For fila = 2 To Cells(Rows.Count, 1).End(xlUp).Row ' las filas con datos a procesar ' linea = "" For col = 1 To 52 ' total de columnas en la hoja a procesar ' dato = Cells(fila, col) Select Case col Case 4, 18, 26, 39, 47 ' columnas que requieren el dato con formato de fecha ' dato = Format(dato, formFecha) End Select contenido = contenido & sep & dato Select Case col Case 8, 14, 22, 29, 35, 43, 52 ' columnas que determinan el final de cada bloque ' If CDbl(Cells(fila, col)) > 0 Or CDbl(Cells(fila, col - 1)) > 0 Then linea = linea & Mid(contenido, 2) & vbCrLf contenido = "" End Select Next archivo = Format(Now, "dd mmm yyyy hh mm ss AMPM ") & Range("bb" & fila) & ".txt" Open ruta & archivo For Output As #1: Print #1, linea: Close #1 Next End Sub Lo anexo enzipado en 2 formatos por si alguno no funciona. gracias! genera txt.7z genera txt.zip
  7. Excelente, funciona perfecto! gracias Hector y Riddle.
  8. Hola, he probado el desarrollo y funciona perfecto, el nombre de archivo se forma conforme a la fecha y hora más el número de fila, necesito cambiar ese dato, en lugar de que sea el número de fila tiene que ser el dato que tengo en la columna "BB" (A1, B1, C1, D1 etc ) quedando asi: "07 feb 2018 06 57 37 p. m. A1.TXT3 " eso seria todo, gracias, gracias Hector Miguel y Riddle. archivo = Format(Now, "dd mmm yyyy hh mm ss AMPM ") & fila & ".txt"
  9. Hola Hector Miguel, anexo el desarrollo que me a funcionado perfectamente pero no tiene considerado la siguiente condición, Los Bloques o filas se forman de la siguiente forma: Fila 1, de la ( A - H ) la fila 1 no tiene condición Fila 2, de la ( I- N ) si las columnas M y N suman ( cero ) no agregar la fila en el TXT Fila 3, de la ( O - V ) si las columnas U y V suman ( cero ) no agregar la fila en el TXT Fila 4, de la ( W - AC ) si las columnas AB y AC suman ( cero ) no agregar la fila en el TXT Fila 5, de la ( AD - AI ) si las columnas AH y AI suman ( cero ) no agregar la fila en el TXT Fila 6, de la ( AJ - AQ ) si las columnas AP y AQ suman ( cero ) no agregar la fila en el TXT Fila 7, de la ( AR - AZ ) si las columnas AY y AZ suman ( cero ) no agregar la fila en el TXT Así debe de quedar el 1er TXT generado: 01|4158BR|ANILINA COLIBRI bordeaux (30)|08/05/2017|V03x|2.19|2.36|2.11 04|4158AMRC|ANILINA COLIBRI am.canario (30)|01/05/2017|21.45|23.11|20.63 05|503060B|Cordones p/calz.060x12 blanco|14.16|15.25|13.61 06|3071870|Peg.Poxilina x38cc(6)|01/05/2017|W04x|59.21|63.94|56.83 07|014AI05B|Acetato alto impacto 0.5mm blanco (10)|01/05/2017|E04x|A04x|44.27|47.69|42.58 La fila 2 y 3 no aparecen en el TXT, las columnas ( M - N y U - V ) suman "cero". Espero haberme explicado y muchas gracias por darle seguimiento. genera txt.rar
  10. Riddle excelente, tengo una pregunta, si decidiera agregar más bloques pero ya no se incluye "P.BULTO" como podría hacerle, Crees que se necesario manejar por ejemplo: de la columna ( a - h ) 1er bloque ( g + h ) = cero, no aparece en txt de la columna ( i - n ) 2do bloque ( m + n ) = cero, no aparece en txt y así sucesivamente, para que pueda configurarse y poder agregar mas bloques. gracias.
  11. Riddle, las columnas ( G-H, M-N, U-V, AB-AC, AH-AI, AP-AQ, AY-AZ ) si en alguna de ellas suman ( cero ) ese bloque no se genere en el TXT. Los bloques son como siguen, el siguiente ejemplo es de la fila 2, 1er txt: 01 a-h 02 i-n ( m y n suman "cero" este bloque no tiene que aparecer en el txt ) 03 o-v ( u y v suman "cero" este bloque no tiene que aparecer en el txt ) 04 w-ac 05 ad-ai 06 aj-aq 07 ar-az De acuerdo a este ejemplo solo tendría que ir en el 1er txt los bloques ( 01, 04, 05, 06 y 07 ) Fila 3, 2do TXT dependiendo si suman ( cero ) las columnas antes mensionadas. Solo en algunos bloques tiene FECHA y tiene que ser configurable ( formFecha = "dd/mm/yyyy" ' <= cambiar el formato de fecha ) Se tiene que generar un txt por cada fila, en este caso serian 9 txt. Gracias!!!!
  12. Si, Riddle lo intento nuevamente, lo subo en un ZIP y 7z por si no funciona en uno, gracias por tu pronta respuesta! genera txt.zip genera txt 1.7z
  13. Hola, tengo un desarrollo funciona perfectamente y que amablemente me ayudo un usuario del foro, pero me encontre con la siguiente necesidad y por eso pido de su ayuda. Necesito agregar la siguiente condición que si en las siguientes columnas ( G-H, M-M, U-V, AB-AC, AH-AI, AP-AQ, AY-AZ ) suman ( Cero ) ese bloque no se genere en el TXT. 01|4158BR|ANILINA COLIBRI bordeaux (30)|08/05/2017|V03x|2.19|2.36|2.11 04|4158AMRC|ANILINA COLIBRI am.canario (30)|01/05/2017|21.45|23.11|20.63 05|503060B|Cordones p/calz.060x12 blanco|14.16|15.25|13.61 06|3071870|Peg.Poxilina x38cc(6)|01/05/2017|W04x|59.21|63.94|56.83 07|014AI05B|Acetato alto impacto 0.5mm blanco (10)|01/05/2017|E04x|A04x|44.27|47.69|42.58El primer archivo tendría que verse así: NO tendrían que ir los siguientes datos en el TXT porque las columnas ( M-N, U-V) suman ( Cero ). 02|14515983|SOBRE Polyester 150mic.059x083(100)|0.44|0|0 03|0706A|Tapa p/anillado opacaT/OF.azul(50|01/05/2017|Z04x|2.73|0|0 Espero haberme entendido, anexo archivo de Excel. genera txt.rar
  14. Héctor Miguel bien, bien Muchas gracias por el apoyo. Tema solucionado.
×
×
  • Create New...

Important Information

Privacy Policy