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

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. …

Buenos días, solicito ayuda para poder imprimir o generar en pdf unos pases de acuerdo al listado de personas, hace unos años me ayudo @Marco Antonio con unos macros para una hoja que generaba una ventana donde se escogen las hojas a imprimir, he creado una hoja en la que se genera un pase o pasabordo individual para cada persona de la lista que figura en la hoja (selección combobox) INICIO, de allí van los datos a la hoja PASABORDOS, inicialmente cree 6 pasabordos que es el total de la lista pero a veces no es sino 3 o 4 personas, la solicitud va en que cuando genero el pdf me genera lógico todas las 6 pases y necesito es que solo genere la cantidad según el númer…

Hola estimados compañeros y maestros. Me he bloqueado con un problema que tengo. A ver...lo había conseguido pero a medias y me va mal. Os digo lo que necesito. Veréis, el formulario guarda, busca, modifica y limpia perfectamente tal y como quiero. La historia que no consigo es todo lo siguiente: que en el formulario hoja principal no salga en el recuadro que tengo la imagen que dejo abajo (podéis modificar el recuadro o lo que sea, que es provisional). Esto está hecho claro, porque me guarda los datos tal cual quiero. cuando de a buscar que me cargue los datos del "buscador". Eso también está hecho. Aquí necesito que me cargue la imagen del …

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 @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 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

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…

Buenas noches. Necesito ayuda de un asunto que en su día el usuario FGV me ayudó, pero me cambiaron el pc y no soy capaz. Necesito que en una casilla de Excel, reduzca de 10 dígitos a 8 cada vez que cambie de celda y vuelva a meter números en la siguiente. Esto me lo indico FGV:(muy agradecido con el sin duda,,) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Rows.Count > 1 Then Exit Sub If Target.Column = 1 Then Target = Left(Target, 8) End Sub Y lo que necesito adicionalmente, es que si por ejemplo estoy en la celda a1, con los 8 dígitos correctos en su casilla, al dar al enter pase a la celda a9 por ejemplo. Que orden se da para sa…

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…

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 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…

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

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

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, 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…

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…

Buen día, trate de automatizar para crear ordenes de servicio, pero me sale el error "Error de compilación: el uso de la propiedad no es válido" y me subraya esta linea "Set Application = SapGuiAuto.GetScriptingEngine" Comparto como realice la programación: Sub Ordenesautomaticasunapos() If Not IsObject(Application) Then Set SapGuiAuto = GetObject("SAPGUI") Set Application = SapGuiAuto.GetScriptingEngine End If If Not IsObject(Connection) Then Set Connection = Application.Children(0) End If If Not IsObject(session) Then Set session = Connection.Children(0) End If If IsObject(WScript) Then WScript.Connect…