Buenas al foro. Con esta macro relleno unos formularios en pdf desde excel, pero lo guarda como pdf que se pueden editar los formularios, y busco la forma o bien, de imprimir en pdf o que no sse pueda editar. Ojo, para que funcione hay que tener el adobe pro . PD: No me deja subir el pdf por tamaño. Si alguien quieres se lo paso por privado. Libro1.xlsm

Saludos, He intentado sin éxito lograr forzar la ubicación de los PageBreaks o saltos de paginas. Este es el código que he intentado. Mi intención es poder forzar la ubicacion de los PageBreaks pero excel los sigue ubicando donde le da la gana. Mi intención es que imprima la última pagina con todas las filas sin importar si solo utilizó las primeras filas de la última pagina. Ideas? Sub PageSetup() Dim LastRow As Long Dim Page1 As Long Dim Page2 As Long Dim Page3 As Long 'valor de la ultima celda escrita en la columna F LastRow = Cells(Rows.Count, "G").End(xlUp).Row '************PRIMERA PAGINA*************…

Saludos amigos espero estén bien Intento guardar la información proveniente del Label32 a través de la siguiente sección de código: Guardar Hoja58, "H3", Label32 Sin embargo, al ejecutar la macro se inserta una fila como corresponde, pero no se copia ninguna información en la MATRIZ4 apareciendo de inmediato una alerta que me indica: “Se ha producido un error ”438” entiempo de ejecución: El objeto no admite esta propiedad o método” ubicando el error en la siguiente macro: If ctrl.Visible Then sh.Range(r).Value = ctrl.Value End If End Sub Por lo que entiendo se debe a la propiedad Vaule que no sé cómo ni por cual propiedad cambiar para que se gua…

Hola amigos de Ayuda Excel. Buenos dias, tengo una tabla y deseo proteger la hoja, He investigado pero las tabla no funcionan en hojas protegidas, sin embargo, he encontrado varios articulos que las tablas pueden funcionar con hojas protegidas a través de macros. Incluso conseguí un código pero particularmente no me funciona. Me podrán ayudar a ver por qué no funciona Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Row = 1 Then Exit Sub If Target.Column > 8 Then Exit Sub On Error Resume Next With ActiveSheet ActiveSheet.Unprotect Password:="123" .ListObjects("Tabla11").Resize Target.Curren…

Ciao a tutti da Maurizio, vi scrivo perchè ho un problema che mi sta facendo impazzire ovvero questo: Sul Foglio 2 di Excel vorrei poter inserire i nomi delle festività Attuali prendendo i dati dalla cella (H2:I21) ed inserire i nomi delle festività nelle Celle sopra del mio Calendario che si trova a partire dalla celle (Q3:W8) Tenendo sempre presente che ad ogni mese dell'anno corrispondono nuove festività con le loro variazioni Ho provato a scrivere questa funzione ma non riesco a farla funzionare e non capisco perché. Questo è tutto. Grazie mille A.Maurizio Buone vacanze a tutti Mio_Progetto_Calendar.xlsx.xlsm

Hola buenas tardes tengo una rchivo que me ayuda con la seleccion de archivos por medio del browser y de ahi extraigo algunos datos. Con la macro puedo buscar un archivo dentro del explorador, busco y selecciono archivo y extraigo datos como ruta, nombre del archivo etc, pero debido a que ya tengo mas archivos (200 archivos .doc), me hes dificil navegar entre todos y revisar cada renglon, existe alguna manera en la que pueda filtrar los archivos con parte del nombre (Escrito en celda, ejemplo C6), y al abrir el browser me muestre solo los con extension .doc y .docx con los archivos de nombres coincidentes (C6). O si hay alguna otra opcion, me ayudara mucho. …

Saludos @JSDJSD espero estes bien como ya me dio un excelente soporte adaptando a Macros Vba las fórmulas de mi anterior post: Espero también pueda ayudarme con los resultados de estas dos últimas fórmulas que me faltan en los TextBox26: y TextBox32: TextBox26: si alguno de los TetxBox16, 17, 18, 19, 20, 21, 22 es mayor que el ComboBox2 entonces se debe de restar el TetxBox que cumpla con la condición menos el ComboBox2 siendo así el resultado que se debe mostrar en el TextBox26 de manera simultánea y automática será la sumatoria de los resultados individuales de cada TetxBox mediante la combinación de las siguientes operaciones equivalentes en Vba: SI(Text…

Hola buenas tardes: Por favor me pueden ayudar con una macro con la que pueda ocultar filas dentro de un rango (filas 8 al 20), pero sin ocultar las filas que tenga seleccionadas en es momento. Ya que hay filas que si necesito mostrar aunque estas no sean consecutivas. Muchas gracias Saludos Ocultar celdas menos las seleccionadas.xlsm

Saludos @AlexanderS y @febrero59 espero estén bien Tengo un caso similar este post: https:/ayudaexcel.com/foro/index.php?/topic/21744-bloquear-combobox-y-textbox-dependiendo-de-la-selecci%C3%B3n/&_rid=175568 Al cual dieron un dieron un par de buenas respuestas que van en línea con lo que necesito solventar en concreto tengo un ComboBox con cinco opciones la primera opción es igual a blanco y como tal se muestra por defecto adicionalmente posee cuatro opciones numéricas 8, 9, 12 y 24 necesito que cuando el ComboBox2=”” los TextBox 16, 17, 18, 19, 20, 21, 22, SpinButton1, CommandButton2, CommandButton3, CMDInformeSemanal y el CMDInformeMensual deben est…

Hola buenas noches. Tengo la necesidad de en un libro 1 hacer una lista indice de las hojas que contiene otro libro (X), En mi libro1 tengo una hoja llamada lista. ahí me gustaría poder en listar los nombres de todas las hojas que contiene otro libro. Pero el nombre del libro en la que debo extraer los nombres esta escrito en la celda D2 de mi hoja basic. Espero me puedan ayudar con alguna opción. Muchas gracias Libro1Donde va lista.xlsm

Buenas noches estimados espero estén bien Dentro del Formulario VTL (frmvtl) estan los TextBox 16, 17, 18, 19, 20, 21, 22 los cuales necesito que cuando contengan un valor cualquiera la macro los tome como 1 (TextBox<>””=1) y cuando los TextBox estén vacíos la macro los tome como 0 (TextBox=””=0) seria como usar la Función Contar de Excel, siendo así y conforme al funcionamiento de la Macro Calculo en el TextBox23 en la medida que se van introduciendo los datos el conteo o suma debe reflejarse de manera automática y simultánea en los Textbox 25, 27, 28, 29, de la siguiente manera: TextBox25 = TextBox16 +TextBox17+TextBox18+TextBox19+TextBox20+TextBox21+Tex…

Buenas necesitaría fusionar varias hojas cuyo nombre empiece por Seguimiento_ (sin fusionar las que estén ocultas aunque empiecen por ese nombre) y mostrar el resultado en una hoja que se llame Seguimiento_Anual, necesitaría que se ordenaran por la columna Cliente (de forma ascendente), por la columna Persona (de forma ascendente), por la columna Estado empezando por Enero, Febrero, Marzo y asi sucesivamente y por la columna Planificado (empezando por PLANIFICADO_Q1 y asi sucesivamente hasta el PLANIFICADOQ4. En caso de que ya exista la hoja Seguimiento_Anual que se actualicen los datos de esa hoja o bien se borre y se vuelva a crear. Gracias un saludo. Hay ya macros c…

resulta que me es muy repetitivo copiar y pegar muchas de las actividades a diario y cambiar algunos que otros valores o informacion, el inconveniente es que son actividades variadas no para un solo vba sino para varios en mi poca experiencia que tengo con vba, entonces la pregunta es como puedo registrar este tipo de informacion usando vba o varios formularios quisiera que me puedan dar una idea porfavor para poder llevar toda esta informacion registrada. 6:00 Relevo de turno de seguridad en garita con prendas y consignas sin novedad. 6:05 Apaga Motores eco 1 con un nivel de reservorio 205/28 de combustib…

Estimados Expertos buenas tardes: Estuve trabajando en una tabla dinámica que se actualiza mes a mes, según le indico en la segmentación de datos. Pero quisiera que se ejecute una macro al actualizar esta tabla dinámica, ¿con que evento puedo actualizarla? He usado el Evento Worksheet_SelectionChange(ByVal Target As Range) Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim NomBRE As Workbook, AUx As Integer If Not Intersect(Target, Range("R9")) Is Nothing Then AUx = ContarNPC(Month(Range("O3"))) Range("S9").FormulaR1C1 = "= " & [AUx] & " / R[3]C[1]" End If End Sub Pero a pesar que la celda R…

Buenas tardes amigos espero estén bien Modifique el frmcalendario para que solamente muestre los días Lunes de cada semana, bajo su configuración original resalta diariamente el fondo de los Label sin embargo necesito que resalte exclusivamente los Label (lb1, lb8, lb15, lb22, lb29, lb36) que correspondan al día Lunes de la semana que este en curso y por lo tanto el resaltado del Label en vez de cambiar a diario se haga semanalmente es decir, si hoy es Lunes 7 de Octubre se debería resaltar durante toda la Semana N° 41 el lb8 y el próximo lunes 14 se debería resaltar durante toda la Semana N° 42 el lb15 y asi sucesivamente. CALENDARIO PRUEBA.xlsm

Hola Tengo un archivo con datos que me pasan, este tiene una numeración (columna D), pero luego tengo que agregar a estos mas datos y a su vez aumentar esta numeración, Lo que quisiera hacer en mi hoja, Buscar ultima celda con datos de la columna H, una vez ubicada bajar una fila y moverse 4 celdas a la izquierda. Y colocar mi numero aumentado según la ultima celda de antes de la columna D. En el ejemplo la ultima es 21. así que debería colocar el numero 22 o según sea el caso (Siempre aumentar más 1). esta numeración varia siempre. Muchas gracias Macro aumentar numeracion de columna.xlsm

Buenos días estimados compañeros. La presente tiene como finalidad me ayuden con el siguiente tema, tengo un formulario el cual registro los pendientes de una persona. El detalle que quiero y no he podido es que al ingresar un nuevo dependiente al guardar me valide por el textbox de identificación si esta duplicado. Agradezco sus comentarios. Saludos Adjunto el archivo. Base_ de_Datos.xlsm

Buenos noches amigos espero estén bien necesito descomponer una fecha en varios ítems y que estas porciones de fecha se reflejen en otros TextBox en concreto dependiendo de la fecha que se coloque en el TextBox4 necesito que: • Del Textbox9 al Textbox15 (Lunes a Domingo) deben reflejar de forma consecutiva el número (dd) del día correspondiente tomando como fecha inicial al Textbox5 • El Label17 debe estar concatenado con el Textbox6 FECHA EN VARIOS ÍTEMS PRUEBA.xlsm

Hola todos agradezco de antemano cualquier gestión / ayuda tengo dos pestañas BBDD listado exportado de la ERP donde pueden cambiar los importes USUARIO listado histórico de BDD El código tiene que detectar por la columna del nº factura ( columna J ) y cuando detecte el mismo nº de factura que actualice los importes de acuerdo a la exportación ( BBDD ).....que mal me explico. Lo siento. Sub CORREGIRIMPORTES2() Dim i, j As Integer j = 3 ' DONDE EMPIEZA A ESCRIBIR For i = 3 To 10000 ' DONDE EMPIEZA A BUSCAR …

Buenas tardes, tengo una duda que me trae de cabeza y seguro tiene fácil solución, pero no consigo dar con ella. Pongo un ejemplo de código sencillo: Private Sub ejemplo_Click() Load userformexterno userformexterno.Show Msgbox("Hola") End Sub Tengo un userform en el que tengo un commandbutton, que en este caso es "ejemplo". A su vez tengo otro userform al que he llamado "userformexterno". Pues bien, lo que yo quiero es que al clicar en el commandbutton "ejemplo", se ejecute primero el userformexterno, y una vez que se haya ejecutado se muestre el mensaje "hola". Sin embargo, lo que me está ocurriendo es que cuando clico en el botó…

Buenos días compañeros. necesito de la ayuda de ustedes para configurar un combobox que esta ingresado en la hoja de excel (NO ES FORMULARIO) la funcion que deseo es que cuando ingrese texto en un combobox me busque las proximidades del texto ingresado (que lo busque en una columna predeterminada) ejemplo en la columna A tengo los siguientes datos. casa morada la casa remolacha morada sandia cuando ingrese la palabra morada en el combobox, el me desplegue los datos que contienen la frase MORADA es lo que necesito.. me podrian ayudar con algun codigo...

Estimados Expertos: Quería consultar su ayuda sobre combobox aplicado en una hoja excel (sin colocarla en un formulario). Al adicionar los valores para este combobox realizo un filtrado para eliminar valores repetidos. Logro eliminar los valores repetidos, pero como adiciono un comando Clear al inicio para borrar los datos de filtrado y no se me acumule, entonces al final se borra el item seleccionado. Les paso mi fichero por si alguien ha tratado de realiza anteriormente este proceso: Private Sub Combobox1_DropButtonClick() Dim sd As New Collection Dim celda As Range Dim dato Dim r As Range Dim UF As Integer On Error Res…

Buenas noches colegas. Espero se encuentren bien todos. Tengo un pequeño problema; A partir del numero de identidad (para otros países creo que es RUP) yo extraigo la fecha de nacimiento, y calculo la edad de cada trabajador, pero me da un "desfase" con fechas que comienzan a partir del 2000. =FECHA(VALOR(EXTRAE([@[C. Identidad]];1;2));VALOR(EXTRAE([@[C. Identidad]];3;2));VALOR(EXTRAE([C. Identidad];5;2))) Fecha para hallar la edad =AÑO($A$2)-AÑO([@[FECHA NAC.]]) Pueden ayudarme a definir o corregir este problema? Y si no fuera mucho pedir, me gustaría hacer esto desde VBA y evitar fórmulas o funciones en la hoja de cálculo. Gracias de ante…

Hola buenas, Me ha surgido un problema con la importación de hojas a excel. Tengo un procedimiento mediante el que importo hojas, el tipico: Workbooks.Open "C:\Users\Usuario\Desktop\Prueba\Prueba2.xlsm" Workbooks("Prueba2.xlsm").Sheets("Hoja1").Copy Before:=Workbooks("Prueba1.xlsm").Sheets(1) Workbooks("Prueba2.xlsm").Close savechanges:=False Mi problema es que después del Close, en VBA sigue manteniendo el proyecto con su código del libro "Prueba 2", como si siguiera abierto, pero no es el caso porque únicamente tengo abierto el Libro1. Me ha saltado alguna vez también un mensaje de aviso al intentar abrir VBA que me dice: "Memo…

Hola, Estoy tratando de hacer una macro incremental para cada columna de semana. La columna A son los codigos unicos y por cada codigo hay dos datos de sales y fcst conn la siguiente condicional: 1. Si no tenemos Sales pero sí Fcst se pone ambos en rojo > Si en la celda de Sales = 0 y Fcst si tiene dato > Rojo 2. Si tenemos Sales pero está por debajo de Fcst se pone ambos en naranja > Si en la celda de Sales> celda Fcst > Naranja 3. Si tenemos Sales y es la misma cantidad que el Fcst se pone ambos en verde 4. Si tenemos Sales y el Fcst es inferior a este o es 0 se pone ambos en morado. Gra…