Jump to content

Gabriela hg

Members
  • Posts

    12
  • Joined

  • Last visited

Everything posted by Gabriela hg

  1. hola buenas tardes! Gracias por su ayuda, les comparto el archivo, en las columnas que necesito modificar están en amarillo, la fecha la necesito en año/mes/día y en las otras columnas quiero que me respete los concepto que son : Referencia = Datos Pago de Factura = Nota de crédito Concepto = Descripción anexo el archivo y de ante mano mil gracias Carga Almacen.xlsm
  2. hola buenas tardes! Gracias, y en el caso de ponerle el pipe ( | ) como puedo realizarlo?
  3. HOLA NUEVAMENTE, ENCONTRE LA SIGUIENTE MACRO PARA MI ARCHIVO, EL PUNTO ES QUE AL MOMENTO DE LLEGAR A LA COLUMNA "AS" ME MARCA ERROR EN LA MACRO, COMO PUEDO UTILIZARLA. GRACIAS Sub carga() Lines = Application.WorksheetFunction.CountA(Range("a6:a65536")) Lines = Lines + 6 'catalogo de valores For X = 6 To Lines A = Cells(X, 1) & "|" B = Cells(X, 2) & "|" C = Cells(X, 3) & "|" E = Cells(X, 4) & "|" G = Cells(X, 5) & "|" i = Cells(X, 6) & "|" K = Cells(X, 7) & "|" M = Cells(X, 😎 & "|" O = Cells(X, 9) & "|" Q = Cells(X, 10) & "|" S = Cells(X, 11) & "|" U = Cells(X, 12) & "|" W = Cells(X, 13) & "|" Y = Cells(X, 14) & "|" AA = Cells(X, 15) & "|" AC = Cells(X, 16) & "|" AD = Cells(X, 17) & "|" AE = Cells(X, 18) & "|" AF = Cells(X, 19) & "|" AG = Cells(X, 20) & "|" AH = Cells(X, 21) & "|" AI = Cells(X, 22) & "|" AJ = Cells(X, 23) & "|" AK = Cells(X, 24) & "|" AL = Cells(X, 25) & "|" AM = Cells(X, 26) & "|" AN = Cells(X, 27) & "|" AO = Cells(X, 28) & "|" AP = Cells(X, 29) & "|" AQ = Cells(X, 30) & "|" AR = Cells(X, 31) & "|" AS = Cells(X, 32) & "|" AT = Cells(X, 33) & "|" 'CONCATENA DATOS Cells(X, 33) = A & B & C & E & G & i & K & M & O & Q & S & U & W & Y & AA & AC & AD & AD & AE & AF & AG & AH & AI & AJ & AK & AL & AM & AN & AO & AP & AQ & AR & AS & AT Next X 'Guarda archivo Range(Cells(6, 33), Cells(Lines, 33)).Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False direc = Application.GetSaveAsFilename(InitialFileName:="info8", _ fileFilter:="archivos de texto (*.txt), *.txt", Title:="Guardar archivo Carga-Batch Como:") ActiveWorkbook.SaveAs Filename:= _ direc, FileFormat:= _ xlTextPrinter, CreateBackup:=False ActiveWindow.Close savechanges:=False Selection.ClearContents Range("F5").Select End Sub
  4. HOLA BUENAS NOCHES SOLICITO SU GRANDIOSA COLABORACIÓN EL SIGUIENTE ARCHIVO ES UNA BASE DE DATOS DE PRODUCTOS GENERAR TXT.xlsx NECESITO GENERAR EL TXT PARA PODER SUBIRLOS A UN SISTEMA, LA SEPARACIÓN ES CON "," (COMAS), ME PUEDEN AYUDAR PARA PODER GENERARLO EL ARCHIVO TXT, DE ANTEMANO MUCHAS GRACIAS
  5. BUENAS TARDES! MUCHAS GRACIAS POR SU TIEMPO Y AYUDA, ME SIRVEN PERFECTAMENTE PARA LO QUE NECESITOS SALUDOS!
  6. BUENAS NOCHES DENTRO DEL ARCHIVO QUE LES MENCIONO TENGO EL SIGUIENTE REGUISTRO AUGR681114CQA EL CUAL ESTA REPETIDO 3 VECES, LAS CUALES SOLO QUIERO QUE APAREZCA EN OTRA HOJA UNA SOLA VEZ PERO CON LA SUMA TOTAL DE ESOS 3 REGISTROS Y ASI SUCESIVAMENTE POR CADA REGISTRO QUE TENGA EN MI LISTADO GRACIAS
  7. Hola buenas noches! Espero que me puedan apoyar con el siguiente tema: Tengo una base de datos de mas de 2500 registros de los cuales quiero depurar de acuerdo a su RFC Emisor y sumar las cantidades que contenga en sus registros de acuerdo a las demás columnas, es decir que si un registro aparece 500 veces que me sume en general el contenido de su registro, todo esto mediante una macro, anexo un archivo con algo de información, espero puedan apoyarme, de ante mano mil gracias acumulado 2020.xlsx
  8. Hola buenas noches!

     

    Espero que me puedan apoyar con el siguiente tema:

     

    Tengo una base de datos de mas de 2500 registros de los cuales quiero depurar de acuerdo a su RFC Emisor y sumar las cantidades que contenga en sus registros de acuerdo a las demás columnas, es decir que si un registro aparece 500 veces que me sume en general el contenido de su registro, todo esto mediante una macro, anexo un archivo con algo de información, espero puedan apoyarme, de ante mano mil gracias

    acumulado 2020.xlsx

    Gabriela

     

    1. Sergio

      Sergio

      Hola Gabriela,

      Por favor, haz tu consulta en la carpeta adecuada del foro. Esto es un mensaje personal.

      Gracias,

×
×
  • Create New...

Important Information

Privacy Policy