Gerson Pineda

Hola hugo Agrega esta linea Me.txt_folio = Application.Max(Hoja2.Columns(2)) + 1 Y al guardarlo en la hoja, déjalo así Hoja2.Cells(Final, 2) = Me.txt_folio * 1 Saludos

Ver tus comentarios, de agradecimiento y lo mejor que te haz enganchado, me parece genial! Saludos

Nick Pues enhorabuena! Respecto a tu observación, en efecto falla la formula, pero haciendo cambio de función, creo da el resultado esperado =IF(DAY(Tabla1[Fecha Pedido])<8,1,ROUNDUP(DAY(Tabla1[Fecha Pedido])/7,0)) Modifica y prueba Saludos

Holas! Nick Las semanas continuas son correctas, pero lo que tu deseas se debe armar, la TD no puede mostrar algo que no tiene, debemos hacerlo de una u otra forma, para ponerlo a disposición Lo que hice fue agregar una columna adicional [Columna Calculada] y listo, revisa el adjunto Saludos a ambos Segmentadores por semanas de mes_GP.zip

Ya no se que decir 😅

Hola Llevas un buen tiempo por aqui y no subes archivo, ademas consultas sobre supuestos rangos Saludos

Hola! ¿Que versión de Excel tienes? Saludos

Te estabas haciendo bolas , solo cosa de indicar dato de H1 Saludos

@avalencia me odiara mas con tu comentario @Jose BN jajaja [me perdonas abuelo?]

Otra forma que es la que utilizo y que habitualmente veo que no es muy utilizada, es la siguiente: Dim mh As Worksheet: Set mh = Hoja1 va6 = mh.Range("A6").Address(, , , 1) vb6 = mh.Range("B6").Address(, , , 1) VBA.MsgBox va6 VBA.MsgBox vb6 Set mh = Nothing @avalencia conoces otros métodos? Saludos a ambos!

Si entiendo, pero hay mas jajaja... pero sabes que abuelo, esperemos que el "primo" Jose, nos explique un poco mas Saludos

Hola Jorge Precisamente Power Pivot es lo ideal, para tu necesidad, pero si siempre hay peros... Debes leer sobre el tema de las relaciones y entender como PP, maneja e identifica las mismas, por ejemplo para poder hacer búsquedas tipo buscarv [existen formas y métodos, que debes comprender] Todo análisis avanzado de calculo en TD, se puede controlar con PP y su gama de funciones Dax Aquí lo crucial es entender que es un tabla historial [eventos] y una tabla de consulta [aquí debe haber solo datos únicos] Saludos

@avalencia creo que Jorge, te ha confundido Si utilizas el evento open, no es necesario utilizar "activecell", a menos que [aclaración que no veo por ningún lado], este utilizando una macro de evento posterior al open, cosa que tampoco encontraría sentido jaja, pues asumo que la idea es que al abrir el libro y se dispare la macro "Recordar", siempre que la celda H1, diga "Activar" [y hay algo mas por mencionar pero...] PD: creo que de nuevo me odiaras jaja Saludos!

Hola Jose Es que hice uso del "codename" de las hojas (Hoja1, Hoja2 etc... , la ventaja que tiene esto, es que no importa que nombre le das a las hojas (entiéndase la que vemos en la interface de Excel) Entonces Sheets("BD BOL VENTAS") es equivalente a Hoja2 (codename), tal como te lo comente en la macro, que te envie Saludos

En este tema se utiliza, solo adapta al tuyo Saludos

Hola Puedes utilizar el objeto Application.FileDialog(msoFileDialogFolderPicker) Saludos

Hola Solo inserta la figura y le asignas la macro Saludos

Prueba asi: With Hoja2 'BD BOL VENTAS f = Hoja1.[E16] .Range(.Cells(f, "A"), .Cells(f, "K")) = Hoja1.[BF4:BP4].Value End With Saludos

Sin querer te "exhibí" jaja Eres como mi abuelo y lo sabes, solo imagina que estas con uno de tus nietos y te pide tirarte al suelo [debes hacerlo jaja] Saludos

Entonces haz seguido mi recomendación PD: la fecha de tu publicacion, me parece que esta incorrecta Saludos

Hola ¿Deseas pegar toda la tabla en la fila 8, o solo la fila que tienes marcada de negrita? Saludos

no, discordia! [ni lo digas]... pero cada quien da su punto de vista según su experiencia, a eso se le llama debate o discusión temática A tu tema... porque no utilizas simplemente Excel como BD, cada quien sube la información y la suben a Ondrive, luego con PQ, lo juntas, ya con esto te olvidaras de las limitaciones de Access en la nube, y no te quiero desanimar, pero hay cosas por las cuales MS, no va retroceder Power Query sera tu ETL [Extract, Transform and Load («extraer, transformar y cargar»)] Saludos

@nickmartinez ¿Quieres otra respuesta rápida?... pues olvídate de Access Eso ya la nube es parte de nuestras vidas, pero enfocate en el uso de los Power o donde se encuentra todo junto Power BI Desde esta plataforma puedes hacer cosas insuperables, ademas de los buenos consejos de @avalencia Saludos

¿Cuanto tarda? Con la otra macro [TextoColumnas_GP], debe tardar menos, pero desde luego que debes hacerle arreglos, para mostrar los datos como la primera Saludos

Permitime aclararte, pero PQ no va reemplazar las TD, pero si nos viene a dar mas que una mano, para poder trabajar nuestras BD y luego calcularlas en TD Las tablas dinamicas no son solo campos calculados, tambien y como lo comente al inicio que DAX, es una gama de funciones integradas en Power Pivot [lee sobre este inmenso tema] Saludos