Joaom Manuel

Cambiar nombre de formas (Elipse 1) a uno Con su nombre Elipse de en la caja de Nombres y en la macro ActiveSheet.DrawingObjects("Elipse").Delete 'NO ELIMINA EN RESPALDO DE HOJA ActiveSheet. DrawingObjects("UNO").Delete 'SI ELIMINA EN RESPALDO DE...

DAM, esta macro Private Sub CheckBox1_Click() If CheckBox1 = True Then frmLista.Height = 282 TextBox6.Enabled = False: TextBox7.Enabled = False: TextBox8.Enabled = False: TextBox9.Enabled = False TextBox6 = "": TextBox7 = "": TextBox8 = "": TextBox9...

DAM, aquí entretenido. Ahora vengo con esto. ¿Para eliminar 2 Elipse con esta iinea ActiveSheet. DrawingObjects("Elipse 4, Elipse 5").Delete Me manda error; "no te riaaaaas" Esta linea esta en la macro Sub guardar() del libro Lista Repuestos. Cambie...

Pues eso DAM, Macro Excel para formulario para apertura de libro necesario

'POR DANTE AMOR MsgBox que me diga cuantos libros abiertos y nombre de cada uno Esta tu macro, (ME DIRIJO A DAM) que dejaste a un usuario como una de las opciones Sub LibrosAbiertosNombre() 'POR DANTE AMOR archivo = "libro3.xlsx" For Each w In...

Dam, buen domingo te deseo En la misma macro del libro que tienes, un par de líneas para este titulo

Al ejecutar la macro por vía del botón, si me funciona a perfección pero si (repito) le doy nuevamente al botón, este no hace nada, está como que no tenga macro asignada (desactivado) pero si piso afuera, en cualquier celda, y voy pisando el botón,...

Con "esta" macro quiero guardar la hoja activa como xlsx Sub guardar() 'PARA GUARDAR COMO XLSX 'Por.DAM Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = "C:\0\excel\" 'EN VEZ DE ESTO, DARME LA OPCION A DONDE GUARDAR h1 =...

Todo sobre la misma macro que me enviaste y que funciona bien pero esta línea For i = 11 To Range("C" & Rows.Count).End(xlUp).Row Pareciera entender yo que ¿Se refiere a C11? For i = 11 "tiene que ser" y la razon la tendras porque me dijiste que los...

Recurro a ti para que me metas dedo en esta macro que quiero que tenga algo similar Range("A65536").End(xlUp).Offset(2, 0).Select en esta macro Sub inserta_Lineas() 'PEGONES1 'Insertar lineas y tambien formas y fomatos de linea B selecionada, en...