Elsa Matilde

Te dejo la macro con el agregado para que puedas ejecutarla en varias hojas. Inhabilité las líneas de 'Target' porque este código así como lo presentas va en un módulo, por lo tanto no se utiliza Target. Sub Modify_Table2() ' Remove specific columns...

Te dejo una macro para el envío de adjuntos. El nombre del archivo será la misma cadena que utilizaste en macro anterior. Si declaras las variables como públicas o colocas estas instrucciones en la misma macro, no será necesario que las vuelvas a...

Los mensajes de error generalmente tienen más de una causa. Debieras copiar todo el mensaje para tener una idea más amplia del motivo. Tratándose de la palabra 'Búsqueda' revisa si va con o sin acento. Y una de las razones, aunque no recuerdo si es...

Te dejo una macro para el botón de Guardar. Agrego la función Trim para evitar que se ingrese algún espacio que luego haga la diferencia entre un nombre y otro. Private Sub CommandButton1_Click() 'botón Guardar 'x Elsamatilde 'busca en hoja Base, col...

Mereces el premio a la perseverancia ;) A la macro que te envié le agregué la instrucción para devolverte también el nombre de la hoja, tal como se observa en la siguiente imagen. Ahora te queda adaptarla a tu modelo. Sub solicitaRango() 'x...

Estabas bastante cerca. Te dejo una macro con el InputBox que te devuelve los 2 campos: Sub solicitaRango() 'x Elsamatilde Dim rango As Range, libro As String Dim miLibro As Workbook, miHoja As Worksheet Set miLibro = ActiveWorkbook Set miHoja =...

Reemplazá tus instrucciones a partir de la línea del comentario, por las que te dejo a continuación: 'recorro la ultima fila con datos ... a partir de aquí ultima_fila = Worksheets(b).Range("a" & Rows.Count).End(xlUp).Row 'los datos que necesito...

Al iniciar el proceso y recién luego de hacer los controles de contenido, se agregó la opción de mostrar la hora de inicio: Private Sub CommandButton8_Click() 'buscar coincidencias canti = 0 For Each ct In Frame2.Controls If TypeName(ct) = "TextBox"...

No queda claro dónde están y cuáles son las fechas a comparar. Simplemente me gustaría que las fechas que falten 1 semana para llegar a ese día (día actual incluido) Te dejo un ejemplo para que puedas adaptarlo a tu modelo. Aquí se compara la celda...

Dejo la macro ajustada al tema bordes, reemplazando las líneas inhabilitadas por éstas nuevas: En lugar de: 'Range("A:SZ").Interior.Color = xlNone Coloca ésta: Range("A:SZ").Borders.LineStyle = xlNone Y en lugar de: 'Celda.Interior.Color = vbYellow...