Elsa Matilde

El problema está en que le dices que 'active' el resultado de la búsqueda... ¿pero qué pasa si no encuentra el valor buscado? Presentará un error sin dudas. Debes cambiar la parte de la búsqueda de este modo: Set busco = Rango.Find(What:=Valor,...

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

Agregá las siguientes instrucciones a tu macro de borrado: Sub Macro_de_Borrado() 'el nombre de tu macro Dim sino sino = MsgBox("¿Confirmas borrar los datos de la planilla?", vbQuestion + vbYesNo, "CONFIRMAR") If sino <> vbYes Then MsgBox "El proceso...

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

La instrucción es la correcta, y devuelve la fecha de creación tal como se observa en mi imagen. Probalo con este código: Sub fechaCreacion() 'x Elsamatilde Dim fc Dim librox As String Set fc = CreateObject("Scripting.FileSystemObject") 'identificar...

Sin embargo hoy comenzo a dar un error en la linea Con este mensaje, debes buscar el contenido de las variables o argumentos de esa instrucción. Es posible que se encuentre con celdas protegidas, combinadas, o las variables no están tomando valores...

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

Te adjunto la macro que podrás ejecutarla desde el mismo Editor, o menú Macros, o asignarla a un botón o atajo de teclado (*) Sub separaDigitos() 'x Elsamatilde Dim i As Byte, x As Byte, y As Byte For i = 1 To 21 y = 21 'col destino = U For x = 1 To...

Primero habrá que establecer cómo sabrá la macro el nombre del segundo libro... quizás al momento de abrirlo pudieras guardar su nombre, algo como: Set otroLibro = ActiveWorkbook 'al momento de abrir el 2do libro se convierte en el libro activo Y...