Dante Amor

Te anexo la macro Sub Macro11() ' For Each comentario In ActiveSheet.Comments comentario.Shape.Width = 188 comentario.Shape.Height = 70 Next End Sub [no olvides valorar la respuesta

¿Cómo se llaman las hojas que vas a dividir? ¿En qué columna está la información que se va a dividir? ¿Qué nombre van a tener las nuevas hojas? Suponiendo que son las hojas "Hoja1", "Hoja2", "Hoja3" Y que la columna "A" es la que tiene la información...

Te anexo una macro. Cambia en la macro estos valores por los tuyos: Set h1 = l1.Sheets("Hoja4") 'nombre hoja donde poner los resultados ruta = "C:\trabajo\archivos\" 'carpeta de archivos celdas = Array("H10", "E18", "E19") 'celdas a importar Sub...

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'Resalte las celdas de la columna PENDIENTE DE PAGO 'que dieron como resultado a la consulta ' If Not Intersect(Target, Range("F5"))...

Puedes utilizarlo así: Variable_1 = 5 Variavle_2 = 10 Range("S" & Variable_1 & ":AB" & Variable_2).select Estoy cambiando el 5 por Variable_1 y para hacer eso tienes que concatenar el texto "S" con el nombre de la variable: "S" & variable_1 '.[Sal u...

Pon la siguiente macro en un botón. Cambia en la macro "unificado.pdf" por el nombre que quieras ponerle al archivo. Sub Macro9() ' Por Dante Amor ' ' Guardar las 2 primeras hojas en PDF ' ruta = ThisWorkbook.Path & "\" arch = "unificado.pdf"...

Cambia esta línea ActiveSheet. PasteSpecial xlPasteValues Por esta: Selection.PasteSpecial xlPasteValues [Sal u dos. No olvides valorar la respuesta.

Te anexo la macro Sub Enviar_Correo_Por_Yahoo() 'Act.Por Dante Amor correo = "[email protected]" Password = "password" rango = "A1:G26" arch = Range("K4").Value & ".pdf" para = Range("K1").Value asunto = Range("K2").Value cuerpo = Range("K3").Value...

En la segunda hoja tienes un formulario, es decir, utilizas las celdas para capturar datos, ¿o tienes un userform? ¿Cómo es que se bloquea tu hoja? ¿Tienes en alguna parte del código la instrucción para proteger la hoja? Puedes poner imágenes de tus...

Te anexo la macro con unos ajustes. Sub Enviar_Correo_Por_Yahoo() 'Act.Por Dante Amor correo = "[email protected]" Password = "password" rango = "A1:G26" arch = Range("K4").Value & ".pdf" para = Range("K1").Value asunto = Range("K2").Value cuerpo =...