Dante Amor

No entiendo qué quieres hacer. Tienes 2 búsquedas diferentes, primero buscas el folio y después buscas el textbox2, no puedes cambiar la búsqueda dentro del ciclo. Mejor explícame con ejemplos y con imágenes qué quieres hacer y te creo la macro.

Le hice unos cambios según la imagen Sub EnviarPorGmail() 'Por.Dante Amor Dim Email As CDO.Message correo = Range("B1").Value '[email protected]" passwd = Range("B2").Value 'xxxx" For i = 10 To Range("A" & Rows.Count).End(xlUp).Row Set Email =...

Quedaría con esto: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("D56:D58")) Is Nothing Then If Range("D15") = "Diagnostico" Then MsgBox "Ingreso de datos no válida para la selección"...

Quedaría así: Private Sub CommandButton1_Click() ActiveSheet.Range("A:J").AutoFilter Field:=1, _ Criteria1:=">=" & Format(CDate(TextBox8), "mm/dd/yyyy"), Operator:=xlAnd, _ Criteria2:="<=" & Format(CDate(TextBox9), "mm/dd/yyyy") End Sub Recuerda que...

H o l a: No tengo Access, por lo tanto no podría ayudarte con algo de Access, pero, aprovechando la buena voluntad de Jacinto Trillo Jareño podrías comentarle. Sal u dos

Realiza lo siguiente Cambia en la macro "fotos" por el nombre de tu hoja que contiene los registros.Antes de ejecutar la macro crea una hoja nueva y le pones por nombre "temp"Para que las imágenes se copien y se peguen, manteniendo su aspecto, en las...

Dices que la macro limpia esa celda después de presionar un botón. Entonces agrega esto a la macro: Range("C4").Value = "" Range("C4").NumberFormat = "#" Cambia "C4" por la celda. Avísame si tienes dudas, si queda resuelto, r ecuerda valorar la respuesta.

Te anexo la macro Sub Establecer_Area_Impresion() 'Por.Dante Amor ' With ActiveSheet u = .Range("A" & Rows.Count).End(xlUp).Row .PageSetup.PrintArea = "A1:S" & u .PrintOut End With End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Puedes enviarme tu archivo con 3 ejemplos de esta forma: En la hoja1, en la columna A pones todos tus números Caso1. En la hoja2, pones el número 2 y los resultados esperados. Caso2. En la hoja3, pones el número 3, pero en este caso me explicas cómo...

Entonces puede ser un error de la versión. ¿Ya realizaste la última actualización de excel? En lugar de utilizar SendMail, puedes probar con esta versión para outlook: Sub Enviar_ActiveWorkbook() 'Por.Dante Amor Set l1 = ThisWorkbook ruta = "C:\"...