Benito Bartolomé

Buenos días; -Adjunto macro corregida. Ahora se puede elegir el logo que se coloca en el título de impresión. A ver que os parece. Saludos. MAjustesImpresión.zip

Hola de nuevo Antoni; Ahora en principio va, te adjunto la macro si quieres revisar por las dudas. Lo que sigo sin saber como se hace es lo de la línea continua al pie. Saludos e boa tarde. Private Sub btn_Imprimir_Click() ': On Error Resume Next With ActiveSheet.PageSetup .PrintArea = ActiveSheet.UsedRange.Address If IsNumeric(Me.TextBox1) Then .Zoom = CDbl(TextBox1) .LeftHeader = "&G" '<<<< faltaba esto .CenterHeaderPicture.Filename = "C:\Users\Via Norte\Pictures\1.jpg" .RightFooter = "__________________________" & Chr(10)

Hola Antoni ; -Se le he quitado pero no salta ningún error y abre la previsualización sin la imagen. Te dejo el link de un video a ver si te da más luz. video: Imprimir imagen Cualquier cosa me comentas. Gracias como siempre por tú generosidad.

Hola a todos; -Estoy intentando añadir una imagen a los ajustes de impresión y no la carga. No sé donde puede estar el error. Y una duda, ¿como puedo insertar una línea a lo ancho de la hoja?. Lo que tengo ahora mismo solo la inserta a la derecha, podría hacer lo mismo con left y center pero me deja un espacio en blanco y la línea no queda continua. Private Sub btn_Imprimir_Click(): On Error Resume Next With ActiveSheet.PageSetup .PrintArea = ActiveSheet.UsedRange.Address If IsNumeric(Me.TextBox1) Then .Zoom = CDbl(TextBox1) .CenterHeaderPicture.Filename = "C:\U

Bo día Antoni; Como la seda, sobresaliente, + todo lo que acabe en ente. Excelente idea la de poner un listBox con multiSelect. Hoy sólo te pongo 100 likes. Muchas gracias y super agradecido Antoni. Bo día

Buenas tardes a todos; -Tengo una duda la cual me gustaría despejar y se trata de lo siguiente. En una macro tengo un formulario con unos campos que me sirven como criterio para hacer una consulta a mi Bd Access. Tengo un checkbox para el campo "fPago" y dependiendo de su valor me genera la consulta. Lo que no sé si es factible hacer una consulta estableciendo dos criterios para este mismo campo. Por ejemplo que la consulta me filtre este campo por el valor "13" y "4" al mismo tiempo. Adjunto macro de ejemplo. Saludos a todos y buen día Consulta.zip

Hola Antoni; Sí está perfecto. Veo que has depurado tanto la macro que casi te queda solo el "End sub" 😀 "Moitas" como siempre. Como te has portado bien seguro que los padrinos te han regalado un buen roscón. Apertas.

Buenos días a todos; -Adjunto macro que me busca la última fila y columna con datos y establece area de impresión. También he puesto un textbox donde voy marcando el zoom. El la macro planteo algunas dudas al respecto. Agradecería vuestro comentario y ayuda al respecto. Cualquier duda comenten. Gracias y buen día a todos. MImprimir.xlsm

Bo día Antoni; Perfecta la macro al igual que la explicación. No había caído "da burra" , como dicen que para atrás "ni para coger impulso 😀 " no lo llegue a plantear. Me guardo esté código en la recámara. Lo dicho gracias por el código y la explicación. Apertas.

Buenos días y semana a todos. He intentado eliminar una columna a través de una macro y si su rango es fijo lo se hacer. Ahora bien si su rango es variable pues la cosa se me complica. Creo que para este caso (corregirme si me equivoco) la mejor opción sería localizar el titulo de la columna y después eliminar. He visto que algo con la función "Find" pero no he conseguido configurar nada, por eso recurro a vosotros por si me podéis ayudar. Adjunto macro. Saludos MEliminarColumnas.xlsm

Bo do Antoni, Discúlpame, pero este control no lo tengo usado mucho o nada. Un saúdo ☺

Buenos días a todos; En este foro he encontrado la macro que adjunto creo recordar que el autor es Antoni. Se trata de un Userform que contiene un "SCROLLBAR" y según se desplace o pulse sobre dicho scrollbar va aumentado el tamaño del frm. Mi pregunta es la siguiente, ¿se puede poner un tope para que no aumente mas su tamaño una vez alcanzado dicho tope? Saludos y buen día a todos. Redimensionar formulario.xls

Está mal el enlace, este está bien: video

Hola Antoni; -Te voy adjuntar una nueva macro y un video y me cuentas. -Me queda la duda de porque en el "frm1" no va bien y en cambio en el "frm2" en cambio va bien entre " " claro. Video: https://youtu.be/WFYihbs6wOo Un abrazo e gracias como siempre por tú atención. MacroII.zip

Buenos días a todos; -Llevo un buen rato a vueltas con un error y no consigo saber donde me estoy equivocando. Me explico un poco: Tengo un formulario creado con una serie de textbox y unos botones de desplazamiento para mostrar los registros. Para mostrar los registros hago una consulta a una BD de Access y por medio de la consulta me los devuelve a los textbox. ¿Lo que no sé es porque no me respeta los campos vacíos?. Adjunto macro de ejemplo. Saludos gracias anticipadas . Consulta.zip