Content Type
Profiles
Forums
Downloads
Ideas
Posts posted by Gabriela hg
-
-
Hace 9 horas, Gabriela hg dijo:
HOLA BUENAS NOCHES
SOLICITO SU GRANDIOSA COLABORACIÓNEL SIGUIENTE ARCHIVO ES UNA BASE DE DATOS DE PRODUCTOS
GENERAR TXT.xlsx 14.51 kB · 1 descarga
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
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
-
HOLA BUENAS NOCHES
SOLICITO SU GRANDIOSA COLABORACIÓNEL SIGUIENTE ARCHIVO ES UNA BASE DE DATOS DE PRODUCTOS
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
-
BUENAS TARDES!
MUCHAS GRACIAS POR SU TIEMPO Y AYUDA, ME SIRVEN PERFECTAMENTE PARA LO QUE NECESITOSSALUDOS!
-
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
-
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
GENERAR TXT
in Macros y programación VBA
Posted
hola buenas tardes!
Gracias, y en el caso de ponerle el pipe ( | ) como puedo realizarlo?