Elsa Matilde

Si te da algún error indica por favor en qué línea. Leyendo el código puedo imaginar que el error quizás se deba a que los nombres en las celdas no estarán incluyendo las rutas... puede ser? Sdos y espero tus aclaraciones para continuar.

No te entendí del todo: si funciona en algunos casos y en otros no el problema no está en el código sino en el contenido de tus celdas. Enviame imagen o la hoja con la macro para revisarlo. Mi correo ya saben dónde está (en mi sitio ;)

La siguiente macro te cambia el color a todas las formas que tengas en la hoja activa: Sub colorFormas() 'x Elsamatilde For Each sh In ActiveSheet.Shapes sh.Select With Selection.ShapeRange.Line .Visible = msoTrue .ForeColor.RGB = RGB(0, 0, 0) 'negro...

Si los 2 controles llaman (con doble clic) al mismo Calendar debes anteponer una instrucción que guarde en una variable quien lo llamó: Dim quien As Byte Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) quien = 1 'llamada al...

No pude abrir tu libro ----- ya te envié imagen y solicitud de nuevo archivo. Sdos!

Esta macro intenta actualizar un rango llamado 'inspD' colocado en hoja 'Tablas' col A:Q... a partir de estas aclaraciones ajusta las instrucciones a tu modelo. Sub ActualizaRango() 'x Elsamatilde 'redefine el rango con la última fila ocupada filx =...

Si vas a filtrarla, una opción sería utilizando Filtro avanzado dejando el resultado en un rango auxiliar. Luego recorres el rango auxiliar o lo colocas ya directamente en tu plantilla de partes. No das mucha idea de cómo son tus hojas pero el Filtro...

Entra al Editor de macros (con atajo de teclado Alt + F11) Inserta un módulo y allí copia el siguiente código: Sub ocultaVacias() 'x Elsamatilde Application.ScreenUpdating = False Range("D" & Rows.Count).Select 'utilizar la col que tendrá datos...

Es posible realizar esta tarea con una macro. Pero para eso se requiere algo más de información. 1- Como identificar los libros que hay que unir: si se encuentran todos en una misma carpeta o si necesitas que se te presente una ventana para ir...

Los Textbox tienen una propiedad llamada: MaxLength, allí le podés indicar el valor máximo que en este caso es 10. Por lo que no necesitas nada del código que creaste, salvo lo relativo al Lcase: Private Sub TextBox1_Change() 'minusculas...