Dante Amor

Prueba así: Sub EnviarMail() Dim a As Worksheet Dim srang As Range Dim name As String On Error Resume Next Application.ScreenUpdating = False Application.EnableEvents = False Set a = Worksheets("Por día") nom = a.name rango = Selection.Address Set...

H o l a: Tal vez tienes un control que no existe en la versión de excel. Entra al menú de VBA, Herramientas, Referencias y revisa cuál referencia tiene la palabra "FALTA", desactiva la casilla y presiona Aceptar. Vuelve a probar tu macro sal u dos

H o la : Te anexo la macro para enviar las hojas en el orden que desees Revisa el nombre y el orden de tus hojas en esta línea: hojas = Array("Hoja3", "Hoja1", "Hoja4", "Hoja6") La macro: Sub PdfHojas2() 'Por.Dante Amor Application.ScreenUpdating =...

Ho l a: Envíame tu archivo con tu formulario y me explicas cuáles datos quisieras modificar. Tal vez haya que modificar la forma en que cargas el listbox, pero ya lo reviso y te digo. Mi correo [email protected] En el asunto del correo escribe tu...

Puedes poner varios ejemplos de cómo lo tienes en excel y del resultado que esperas.

Te anexo la macro actualizada para enviar la hoja activa como archivo de pdf. Actualiza los siguientes datos en la macro con tus datos: correo = "[email protected]" passwd = "pwd" nombre = "archivo.pdf" La macro: Sub EnviarArchivo() 'Por.Dante Amor '...

H o l a : Te anexo la macro para revisar todas las hojas. Pon los nombres de las hojas a revisar en esta parte: Hojas = Array("Referencia Lunes", "Referencia Martes", "Referencia Miercoles") No importa cómo se llame el gráfico, la macro lo va a...

H o l a :Puedes enviarme tu archivo y me explicas paso a paso lo que quieres realizar. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “rogelio Valencia” y el título de esta pregunta.

Puedo crear una macro, pero antes dime, ¿quieres qué el proceso lea la información de la hoja 1 y lo que cumpla la condición lo copie a la hoja 2? Entonces, podríamos decirle al proceso, primero, elimine el contenido de la hoja 2 y después copie todo...

H o l a : Te anexo el código para que puedas consultar el rango sin activar el libro "dgr" Set l2 = Workbooks("dgr") 'Establece libro en l2 Set h2 = l2.Worksheets("ListadoDeudas") 'establece hoja de l2 en h2 strTabla = "DeudaDGR" On Error Resume Next...