Abraham Valencia

[Hola Mira, estas dos líneas: 'dam. Send Dam. Display Déjalas así: Dam. Send 'dam. Display ¿Notas la diferencia? Abraham Valencia

[Hola ¿Tus tres tablas dinámicas están en una misma hoja, una en cada hoja, otra forma? Los campos en cuestión ¿son exactamente los mismos en las tres tablas dinámicas? Abraham Valencia

[Hola ¿Necesariamente necesitas tener todos los registros en Excel? ¿No te es suficiente trabajar con ellos con Power Query y/o Power Pivot? De ser necesarios tenerlos en una base de datos, quizá te sea más útil Access. Abraham Valencia

[Hola Suponiendo que la letra la colocas en el "Textbox1", y deseas el efecto en el "Textbox2", puedes usar esto: Por supuesto que puedes usarlo en otro evento, pero con esto te dará idea. Abraham Valencia

[Hola Para ser sincero me parece poco práctico, pero prueba así: Sub Inicio() Application.OnTime Now + TimeValue("00:00:01"), _ Procedure:="Grabar", _ Schedule:=True End Sub Sub Grabar() Application.DisplayAlerts = False...

[Hola ¿Todas las tablas dinámicas tienen el campo en cuestión o alguna no? De ser "sí" la respuesta prueba usando esto: Sub ActualizarTD() Dim TD As PivotTable For Each TD In ActiveSheet.PivotTables With TD .PivotFields ("TRAZABILIDAD / LOTE")...

[Hola Los pocos detalles que das y las imágenes en realidad no ayudan a entender el dilema y aunque pueden plantearse varias probabilidades (exceso de formatos condicionales, poca memoria, etc.), en realidad para ser certeros el ideal es que coloques...

[Hola Como para que te des idea, sugiero comenzar leyendo lo siguiente: Comentas Abraham Valencia

[Hola Yo sugiero que coloques tu archivo en algún "Drive" (OneDrive, Google Drive, DropBox, etc.) y que compartas por aquí el enlace, así nadie tendrá que hacer público su correo, que es lo que probablemente muchos prefieren (me incluyo). Abraham Valencia

[Hola Prueba así: Sub Paginas() Dim nPaginai As Integer nPaginai = Application.InputBox(prompt:="Ingrese un número del 1 al 1000", Type:=1) With ActiveSheet.PageSetup .RightFooter = "Página &P de &N" .FirstPageNumber = nPaginai End With End Sub...