Hola Amigos, un saludo de antemano, espero que estén todos bien y sus familias. tengo cierto inconveniente con una libro y es que quiero que de un listado de productos, si dicha fila del listado no tiene ninguna cantidad solicitada en la parte derecha que la oculte al momento de imprimir, pero si tiene una cantidad pues que si la imprima, por favor gracias, muchas gracias si me pueden ayudar con una macro para esto. "Bueno en caso de que no se pudiera entonces quisiera que se eliminara la fila que cumpla esa condición, y pues así solo quedarían las filas con información." a continuación me permito anexar el archivo y dejo los comentarios en el archivo para…

Hola, tengo una tabla en la quiero que se impriman solo aquellas filas en las que el valor de la columna A no esté vacia y también aquellas en que la columna D esté llena. Gracias a una macro que encontré en el foro consigo que se impriman las filas que cumplen la primera condición, que la columna A no esté vacia, pero no consigo hacer que también se impriman aquellas filas con la columna D llena. Os adjunto la macro que encontré para imprimir con una condición de celda llena y un modelo de la tabla que manejo. Mucha gracias un saludo a este gran foro pruebas_macro_imprimir.xls LUISFECAB - luisfichelson_Imprimir Factura de servicios.zip

Hola estimados quiero pedirles si me puede ayudar con esta macro quiero que al momento de imprimir todos los locales solo dar en imprimir y no estar ingresando factura por factura. Les envió la planilla. Estaré atento a su respuesta. Saludos. ROTULO JUMBO.xls

Hola, me gustaría saber si existe la manera mediante una macro de excel, de imprimir otro archivo en PDF previamente creado, es decir no archivo excel en sí, si no otro diferente. Gracias.

Hola, quisiera que me ayudaran diciendome como o cual es el codigo para imprimir un formulario de visual basic con los datos ya escritos, la idea es que de la instruccion de imprimir y la persona que llene el formulario escoja la impresora. Espero que me puedan ayudar ya que no soy muy experta en esto Muchas gracias

Hola, como están totos ? Mi consulta es la siguiente. En un userform en el hay un listview; cuando imprimo el userform el listview sale blanco (sin datos en la impresión.) como hago para ver estos datos en la hoja impresa? Saludos Sabatb.

Como imprimo un rango de celdas hasta que encuentre un valor especifico? Ejemplo: ----[1]--[2] (A) 1 ( 8 © 25 (D) A Cuando encuentre que una celda tiene el valor "A" que mande a imprimir únicamente todas las anteriores. Muchas gracias

Estoy intentando imprimir un rango de hojas de un pdf en una ruta en concreto pero no me funciona. Imprime el ramgo pero del Excel en ve del Acrobat. Sub imprime() Dim rutaPDF As String rutaPDF = Sheets("Hoja1").Range("D2") F = Cells(2, 7) T = Cells(2, ? pid = Shell("C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe " & Chr(34) & rutaPDF & Chr(34)) Worksheets.PrintOut From:=F, To:=T DoEvents 'Paso 5 - Esperar que se Imprima el PDF hnd = OpenProcess(PROCESS_TERMINATE, True, pid) 'Paso 6 - Obtener el handle(manejador) del proceso(Adobe Reader) …

Hola a todos! Tengo 10 hojas en las que creo distintos informes. Me gustaria imprimir en .pdf las hojas de este libro que contengan datos en Range("b1"). Y que las hojas sin datos no se Imprimieran. Pero me gusstaria que se imprimieran todas a la vez para crear un unico archivo .pdf. Y ¿como se podria imprimir en pdf automaticamente. sintener que aceptar posteriormente la impresion? Gracias por todo.

Buenas Estimados, Tengo un archivo Excel para generar cotizaciones en diferentes hojas, con ayuda de unos expertos pude lograr que me imprima varias hojas del Excel desde un formulario que se encuentra en la primera hoja, mi problema es que quisiera que las diferentes hojas de la cotización se impriman una debajo de otra de acuerdo a como da el tamaño de la hoja (A4) y no por separado como actualmente lo hace, además quisiera que imprima un encabezado que quiero agregarle en otra hoja, no puedo ponerlo ahora porque lleva una imagen y sería muy pesado, de todos modos si logró hacer lo primero estaría muy feliz. Adjunto el archivo para mejor visualización. Muchas Gracias …

Mi pregunta no se si tiene respuesta. He creado un libro excel con varias hojas y dentro de cada hoja hay varias paginas (ajustadas a la impresora) Yo querria una macro para que me imprimiera solamente las paginas de cada hoja que cumplan esa condicion es decir, en cada pagina de cada hoja hay una fecha y quiero imprimir solo las que cumplan esa condicion dada. Muchas gracias

Buenas tardes, mi duda es que tengo una Base de Datos y un formulario hecho en otra hoja de calculo, ahi puedo seleccionar un número de referencia y segun eso aparecen los datos en el formulario, quiero que se guarde una imagen por cada Número de referencia que tenga la Base de Datos, que son unas 1000 aproximadamente, tengo ya hcha una macro pero solo guarda una a la vez, lo que quisiera es que tenga un botón que al seleccionarlo guarde las aprox 1000 imagenes de todos los "num. de referencia" con sus respectivos datos y la imagen ActiveX que apareciera, en el que he echo lo hace 1 a la vez, pero lo hace en mala calidad, eso tambien es un problema. BD-Inmuebles.zip

Buenas tardes, mi duda es que tengo una Base de Datos y un formulario hecho en otra hoja de calculo, ahi puedo seleccionar un número de referencia y segun eso aparecen los datos en el formulario, quiero que se guarde una imagen por cada Número de referencia que tenga la Base de Datos, que son unas 1000 aproximadamente, tengo ya hcha una macro pero solo guarda una a la vez, lo que quisiera es que tenga un botón que al seleccionarlo guarde las aprox 1000 imagenes de todos los "num. de referencia" con sus respectivos datos y la imagen ActiveX que apareciera, en el que he echo lo hace 1 a la vez, pero lo hace en mala calidad, eso tambien es un problema. BD-Inmuebles.zip

SOLICITO AYUDA, NECESITO IMPRIMIR Y GUARDAR LA INFORMACION EN UNA NUEVA HOJA. TENGO ESTE CODIGO: Sub ImprimirReporte() Sheet63.PrintOut 1, 2 End Sub QUE MAS DEBO AGREGAR. ADICIONALMENTE DEBO INSERTAR UNA HOJA QUE ME DE POR MEDIO DE UNA CONTRASEÑA LA ENTRADA A LAS OTRAS HOJAS, COMO LO HAGO????????. GRACIAS.

BUENOS DÍAS AMIGOS, NUEVAMENTE NECESITO DE SU AYUDA. QUISIERA QUE AL EJECUTAR EL MACRO IMPRIMIR ME SALTE LOS REGISTROS DUPLICADOS Y SE IMPRIMA EL SIGUIENTE NUMERO DE REGISTRO POR QUE EL MACRO QUE TENGO IMPRIME LOS REGISTRO SIGUIENTE DE LA TABLA ADJUNTA, Y NO PUEDO BORRAR LOS DUPLICADOS POR QUE TIENE FORMULA DE CONCATENAR PARA QUE ME LLAME EN LA PLANILLA CENTRAL, Y QUE LOS QUE TENGAN EL MISMO NUMERO DE REGISTRO LOS COMBINE Y CAMBIE UN COLOR DIFERENTE PARA IDENTIFICARLOS LA COLUMNA " B " QUE SALTE LOS REGISTROS DUPLICADOS E IMPRIMA EL SIGUIENTE REGISTRO LA COLUMNA " A " QUE COMBINE LOS DUPLICADOS, Y CAMBIE DE COLOR POR CADA REGISTRO 2.- MACROS.rar

Hola, gracias por siquiera leerlo. A ver si consigo seguir, que me estoy volviendo loco. Aunque parece una simple fórmula, es algo más complicado, creo. version 2013 España A grandes rasgos (especifico en el archivo), necesito separar el coste de un trabajador por centro de trabajo dependiendo de las ventas del centro, sabiendo que hay trabajadores que trabajan en varios centros y que quede de tal forma (separado por columnas) que me permita trabajar mas tarde en tabla dinamica con toda la info. y sabiendo también que el ejemplo es de 6 trabajadores pero esta muy muy simplificado y necesito automatizar el máximo posible del calculo Tengo los datos: tr…

Buenas tardes quiero saber como insertar filas en una hoja de excel tomando la informacion de otra hoja del mismo archivo, ejemplo en la hoja2 tengo una pequeña tabla con la columnas, Numero, Nombre y cantidad el numero es consecutivo, en nombre solo tengo 4 diferentes, juan, pedro, pablo, jorge, pero repetidos varias veces dentro de la tabla y en cantidad pues cantidades diferentes.. ahora, en la hoja1 tengo una lista unicamente con los nombres (juan, pedro pablo y jorge, desde la celda a1 hasta la a4, quiero que busque en la tabla el nombre juan y me incerte tantas filas sean necesarias para ingresar el Numero y la cantidad de cada nombre, espero haberme explicado, dejo…

He creado una macro que envía mails desde mi cuenta de gmail. Los mails se envían bien. El problema es que no incluye la firma configurada en gmail cuando lo envío desde la macro. ¿Cómo puedo hacer para que incluya la firma en el mensaje? Sub EnviarMail() Dim MailExitoso As Boolean 'llamo a la funcion: MailExitoso = EnviarMails_CDO() 'si me devuelve un resultado Verdadero, todo salió bien: If MailExitoso = True Then MsgBox "El mail fué enviado satisfactoriamente", vbInformation, "Informe" End If End Sub Function EnviarMails_CDO() As Boolean ' Creo la variable de objeto CDO Dim Email As CDO.Message Dim Autentificion As Bo…

Inculuir otra pestaña de parametros : donde se digite: -Porcentaje de recargo nocturno -Porcentaje de horas extras ordinarias diurnas -Porcentja de horas extras ordinarias nocturas -Porcentaja de horas extras festivas diurnas -Porcentja de horas extras fetivas nocturnas Que al momento de generar el informe o de ahcer clik en genrador de informe: Calcule en numero de horas y en valor: -Recargo nocturno - Horas extras ordinarias diurnas -Horas extras ordinarias nocturas -Horas extras festivas diurnas -Horas extras fetivas nocturnas No me permite adjuntar el archivo dice que esupera el tamaño permitido-Que otr…

Buenos dias: Estoy tratando de generar una macro con un tabla dinamica, pero al ejecutarla me sale el siguiente error: "Se ha producido el error 5 en tiempo de ejecucion - Argumento o llamada a procedimiento no valida" Me señala en amarillo el error: ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Sheet1!F1C1:F4916C10", Version:=xlPivotTableVersion12).CreatePivotTable _ TableDestination:="Sheet1!F1C12", TableName:="Tabla dinámica1", _ DefaultVersion:=xlPivotTableVersion12 Agradezco me indiquen como debo proceder para la generación correcta de la macro. Muchas gracias. Saludos

Buenas gente, Me he cambiado a la version 2007 del Excel, y he estado leyendo que no soporta esta función. He leído por ahí y no consigo aclararme, asi que he optado al final por pediros un cable. Esta es la sencilla función que utilizaba yo: With Application.FileSearch .LookIn = ThisWorkbook.Path .Filename = Hoja1.Cells(24, 11) & ".xls" If .Execute > 0 Then 'existe archivo = ThisWorkbook.Path & "\" & Hoja1.Cells(24, 11) Application.ScreenUpdating = False Workbooks.Open (archivo) Set xlsheet = ActiveWorkbook.Sheets.Item(1) ThisWorkbo…

Hola sala, ya se dio solucion a este caso, lo podem,s cerrar, garcias,,, David copia base de datos.rar

Buen dia, necesito si es posible q me colaboren tengo el referente codigo necesito que me organice la fecha con el año solamanete tengo hasta el mes hay esta adicionado el textbox para organizar pero necesito que lo organize referente a lo que tengo con la adicion de anotaciones en la hoja, pero que vaya organizando acendentemende con la fecha pero no involuchre el año solamante es para orgaizar gracia Organizar fecha por año folio.rar

Buenos días, Requiero de su ayuda amigos del foro, ya que tengo unos pequeños inconvenientes con las modificaciones que se han hecho en la plantilla de mi trabajo, las cuales son: Se tiene que presionar 2 veces para borrar los campos que han sido filtrado (no sé por que pasa eso) y cual seria el código para limpiar el Combobox de la "Semana", estuve probando con lo mismo de los anteriores pero genera error. Al seleccionar un "Proceso", no respeta el "Turno" ya seleccionado, sino muestra todos los turno. No sé si exista alguna manera de que los ComboBox tengan la forma de seleccionar más de una opción, así como cuando se aplica filtro, estuve buscando pero no …

Estimadas/os, Junto con saludar, estoy recien empezando en este mundo del VB, y estuve trabajando en una macro que en función de una lista, empleo BUSCARV según vendedor y enviar al correo de forma separada con copia a jefaturas correspondiente. La macro sería la siguiente: Sub Enviar_Rango_a_Destinatario_de_correo() ActiveSheet.Range("AG2:AX14").Select For i = 1 To 13 ThisWorkbook.Sheets("RESUMEN").Range("X1").Value = i ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Item.To = ThisWorkbook.Sheets("Resumen").Range("X4").Value .Item.cc = ThisWorkbook.…