Dante Amor

Te anexo la macro, solamente cambia en la macro estos datos por tus datos: ruta = "C:\trabajo\" 'nombre de la carpeta hoja = "Hoja3" 'nombre de la hoja que vas a guardar celda = "G4" 'Celda que contiene el nombre del archivo La macro completa Sub...

¿Quieres enviar una imagen en el cuerpo del correo? Si no es posible enviar la imagen en el cuerpo, ¿puede ser que se guarde esa imagen como archivo y entonces adjuntar el archivo?

No mencionaste cuál ruta, cuál celda y si quieres un pdf por cada ciclo o en un pdf todas las impresiones. Te anexo la macro actualizada, cambia "C:\trabajo\" por tu ruta. Cambia nombre = Range("D12") por la celda que quieres el nombre. La macro te...

H o l a : La lógica de búsqueda debe ser así. Los datos que van a ser afectados son los de la hoja2, por lo tanto, se lee el código de la hoja2 y se busca en la hoja1, si lo encuentra entonces se pinta de amarillo el código de la hoja2. Te anexo la...

:) H o l a: Envíame tu archivo y me explicas con un ejemplo el resultado esperado. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “MARIA GUERLY GARCIA SOACHA” y el título de esta pregunta.

H o l a: Te anexo la macro, pon la macro en el libro2. Debes tener abiertos los 2 libros. Actualiza en la macro los nombres de los libros y las hojas. Selecciona el libro2, hoja2 y ejecuta la macro. Sub ActualizarDatos() 'Por.Dante Amor Set l2 =...

H o l a : Tengo las siguientes dudas: ¿Cómo saber si la hoja está utilizada?¿Quieres un pdf con todas las hojas?¿De cuál hoja obtengo los datos para el nombre del archivo pdf?

H o l a : Te anexo la macro Sub FiltrarFechas() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Plantilla") Set h2 = Sheets("Bajas") u = h2.Range("R" & Rows.Count).End(xlUp).Row + 1 For i = h1.Range("R" & Rows.Count).End(xlUp).Row...

Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor If TextBox1 = "" Then MsgBox "Captura un dato" Exit Sub End If If IsNumeric(TextBox1) Then dato = Val(TextBox1) Else dato = TextBox1 Set b = Sheets("Hoja3").Columns("M").Find(dato,...

H o l a : Pon el siguiente código en el botón gregar del formulario: Private Sub CommandButton1_Click() 'Por.Dante Amor 'Agregar a al hoja If ComboBox1 = "" Then MsgBox "Selecciona un código", vbCritical ComboBox1.SetFocus Exit Sub End If If TextBox1...