Dante Amor

[Ho la y bienvenido a TodoExpertos! Pon aquí tu macro para revisarla y ver si es posible optimizar el código. También pon una muestra de datos para ver cómo deben estar los datos en la hoja y poder probar el código. O si puedes subir tu archivo a la...

Set Activador1 = Range("D11,D14,D17,D20,D23,D26,D29,D32,D35,D38,D41,D44,D47,D50,D53,D56,D59,D62,D65,D68,D71,D74,D77,D80,D83,D83,D86,D89,D92,D95,D98,D101,D104,D107,D110,D113,D116,D119,D122,D125,D128,D131,D134,D137,D140,D143") Para simplificar esa...

Entiendo que la petición es para una celda. Pero me gustaría contribuir con una opción cuando seleccionan más de una celda. Tal vez, no se requiera para este caso en particular, pero puede ayudar a alguien más con un escenario similar, donde necesite...

¿En cuál columna están los valores? ¿Siempre están separados por un guión?

Existen aplicaciones como google maps, Waze, Apple Maps, que te ayudan a trazar tus rutas; y desde luego, te ayudan a encontrar la ruta más corta y rápida.

Las soluciones no concuerdan. Te están pidiendo "La cantidad de madera", entonces debe ser en metros cuadrados. Estás son áreas de las piezas que se deben calcular: La "base superior" no se calcula, porque es la abertura para poner los lápices....

Tienes pendiente valoras estas respuestas: ¿Cuántas columnas tiene mi Array birideccional? ¿Crear procedimiento para vaciar los items de un listbox de cualquier formulario? ---- Revisa el siguiente tip para configurar el ancho de columnas: ¿Cómo...

[Ho la y bienvenido a todoexpertos! No publiques preguntas como "Anónimo" es difícil hacer el seguimiento, ya que muchas preguntas publicadas de esa manera. Puedes poner un pseudónimo en tu nombre de usuario. --- Regresando a tu pregunta, puedes...

[Ho la y bienvenido a TodoExpertos! Para quitar los duplicados, puedes utilizar la funcionalidad de excel "Quita duplicados" - Selecciona las celdas que quieres revisar. - Ve al menú DATOS / Quitar duplicados - Marca la casilla si tus datos tienen...

Prueba la siguiente macro: Sub AbrirTodosLosArchivos() Dim wb As Workbook Dim arch As Variant Dim ruta As String ' Application.ScreenUpdating = False Set wb = ThisWorkbook ruta = wb.Path & "\" arch = Dir(ruta & "*.xls*") Do While arch <> ""...