Elsa Matilde

Si bien estás con Word, te comento que en Excel la propiedad LockAspectRatio es la que permite manipular el aspecto proporcional de la imagen, tal como se comenta en el sitio de Microsoft:...

El siguiente código debes colocarlo en el Editor, en el objeto HOJA donde quieras controlar estas columnas. Private Sub Worksheet_Change(ByVal Target As Range) Dim celdas As Variant Dim i As Byte celdas = Array("F11", "H11", "J11", "L11", "N11",...

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"...