Dante Amor

H o la: No encuentra el dato, porque en la celda tienes un número y en el textbox tienes un texto, entonces hay que convertir el dato que tienes en el textbox a valor numérico, pero solamente si el dato del textbox es un número. Se puede realizar con...

H o l a: Te comento cual es el problema. En la variable Fecha, estás poniendo una fecha, normalmente las fechas tienen diagonal, por ejemplo: 23/01/2017, pero los archivos no pueden contener la diagonal como parte del nombre del archivo, por lo tanto...

H o l a: Esta sería una opción. Creé el procedimiento Cargar_Lote, le paso como parámetros los 2 combos, el modificado y el que vas a cargar. En la llamada al procedimiento tienes que poner los 2 combos. El procedimiento será igual para todos los...

H o la: Te anexo la macro Sub GuardarClientePdf() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") 'hoja con datos Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") ruta = "C:\trabajo\clientes\" 'especificar ruta '...

solamente hay que quitar el = Private Sub TextBox1_Change() ActiveSheet.ListObjects("PRECIOS").Range.AutoFilter Field:=1 ActiveSheet.ListObjects("PRECIOS").Range.AutoFilter Field:=1, Criteria1:="=*" & TextBox1.Text & "*" End Sub'S aludos. Dante Amor....

En la columna "Cliente", tienes varios clientes, ¿entonces el monto se debe poner según el cliente y la empresa? Si es así, primero, cambia tus textbox a combobox; utiliza la siguiente macro. Private Sub CommandButton1_Click() 'Por.Dante Amor Set h =...

H o l a: La macro que pusiste copia el rango de celdas y lo copia como imagen en el cuerpo del mail. Lo que no entiendo, quieres las imágenes en el cuerpo del coreo, o quieres que el rango de celdas se guarde como una imagen jpeg en un archivo y ese...

Revisa el siguiente enlace, ahí está un vídeo para poner imágenes Seleccionar imagen mediante lista de validación Si no puedes cargar la imagen en una celda, entonces puedes ponerla en un Control Image. Envíame un correo y te reenvío mi archivo con...

H o l a: Te anexo la macro actualizada. Primero te crea el archivo 12705514.pdf, luego el 12705514-1.pdf, 12705514-2.pdf, etc Sub pdf() 'Act.Por.Dante Amor ' pdf Macro nombre = Cells(6, 2).Value ruta = Cells(1, 8).Value ' If Right(ruta, 1) <> "\"...

Te anexo el código para el botón Guardar. En el código te puse un comentario para que ahí pongas tu código para guardar la información en la hoja. Private Sub CommandButton1_Click() 'Por.Dante Amor If ComboBox1.ListIndex = -1 Then MsgBox "Debes...