He estado trabajando en una base de datos de un pequeño sistema de mantenimiento el cual tome un archivo de esta pagina y la he estado adaptando a mis necesidades, hice un pestaña en la parte de maestro de fallas etc, llamado cerrar trabajos pero requiero que en el combobox solo me muestre los numero de ot el cual no tengan fecha de finalizacion con el fin de que no me muestre todos, y por consiguiente no engorde la base de datos, el usuario de mi archivo es jesus y la contraseña es martha, anexo vinculo del archivo... Nueva carpeta

Estimados amigos, estoy usando un control WebBrowser para poder visualizar cualquier archivo de Office (Word,Excel y Power Point) y ademas archivos Pdfs. hasta ahora solo he podido visualizar los Pdf. sera posible visualar los demas archivos atraves del control WebBrowser. a la espera de sus comentarios. Saludos, Muscaria WebBrowser_office.rar

Buenos días, espero que como siempre me puedan ayudar. Tengo una información que quisiera pasar a un archivo de world. Para esto, estoy utilizando un código que no es mio y utiliza una plantilla de word para buscar objetos y cambiarlos por la información que yo le especifico. Pero quisiera que también me exporte un cuadro que tiene un nombre definido de "cuadro" y no he podido. Alguien que me pueda decir como hago para exportar TODO el cuadro al archivo word. Adjunto un archivo para que sea mas claro la explicación. Gracias de antemano. Pasar a Word.zip

Saludos. tengo el siguiente problema espero me puedan ayudar tengo una pivot el cual con un combo quiero cambiarle los datos de la pivot, pero no se como hacer una macro que haga esos cambios me podran ayudar gracias

Buen día ¿Cómo puedo hacer para establecer la ruta y/o path en un sitio de Red para conectar una base de datos de Excel con una de Access, me ha funcionado con este código para otra conexión que hice que no es ADO Dim ruta, Año, Mes, Dia, nombre As String ruta = "[URL="file://\\192.168.1.1\c"]\\192.168.1.1\[/URL]Captura" Año = ActiveSheet.Range("AB6").Value Mes = ActiveSheet.Range("AB3").Value Dia = ActiveSheet.Range("AB5").Value nombre = ActiveSheet.Range("A1").Value guardatl = ruta & "\" & Año & "\" & Mes & "\" & Dia libro = ruta & "\" & Año & "\" & Mes & "\" & Dia & "\" & nombre [/CODE] pero al querer …

Hola amigos, tengo la siguiente macro: Sub Tabla_de_Excel_a_Word() 'Copia el rango de Excel seleccionado en un nuevo documento Word Sheets("Reporte").Select Range("C8:T20,C89:T92").Select 'copiar rango selecionado Selection.Copy 'Crea nueva aplicación Word Dim swMSWord As Word.Application Set swMSWord = New Word.Application With swMSWord .Visible = True .Activate End With 'Abre nuevo documento Word swMSWord.Documents.Add 'Pegado con vínculo de las celdas Excel swMSWord.Selection.PasteSpecial link:=True 'Libera el objeto Word Set swMSWord = Nothing End Sub La cual copia mis tablas de Excel a un Word, pero tengo dos problemillas y necesito de …

Buenas, Tengo una duda, estoy realizando una macro, la cual obtiene valores de un libro, los guarda en una matriz y después los pega en otro libro. Ya realicé la macro obteniendo valores numéricos y no hubo problemas El problema es que ahora estoy obteniendo datos que combinan números y letras como por ejemplo: "* presenta fuga de agua en cilindro compresor No 2 y 4." Y se guarda bien en la matriz, de hecho, con un Msgbox puedo ver en cada posición de la matriz los datos correctamente, sin embargo cuando asigno los valores a un rango de celdas me aparece el siguiente error: "se ha producido el error 1004 en tiempo de ejecución error definido por la aplicación o el …

Hola, les pido ayuda para la siguiente cuestión. Serian dos fases o pasos con MACROS. EL PRIMERO En un libro Excel tengo en la Hoja2 un rango variable de datos desde A2:A50 DENOMINADA MATERIAL con valores repetidos , y en la columna B la cantidad de estos materiales A B CASA 1 PERRO 10 LIBRO 2 CASA 2 LIBRO 1 CASA 8 Lo que necesito es que situándome en la Hoja 1, celda A1, si pongo CASA, automáticamente en la columna C y D aparezcan los datos de la hoja 2, es decir : A C D CASA CASA 1 CASA 2 CASA 8 EL SEGUNDO. Lo que quiero es poner en la columna E la cantidad que retiro de cada material A C D E CASA CASA 1 1 CASA 2 1 CASA 8 0 …

Buenas Tardes mis Estimados y Admirados la consulta es sencilla!! Alguien entre sus curiosidades tendra un Tutorial acerca de pasar datos de Excel a Power Point!!? En especifico un sentencia que seleccione un cuadro de texto y/o que busque texto dentro de la Presentacion!!? Muchas gracias a todos por el tiempo y la ayuda!! Buena sTardes!!

Hola a todos, mi nombre es Maurizio Y mi problema es este: Hace unos años logré crear una especie de pronóstico del tiempo con vba y hasta ahora todo va bien. Como todo este trabajo funciona muy bien. Pero como, sin embargo, normalmente no soy una persona que se satisfaga fácilmente, me gustaría entender cómo cambiar De manera drástica, su Enlace no solo puede obtener las mismas cosas; Pero también para poder atraparlos. Primeras tres imágenes de la ubicación elegida por mí de la hoja de Excel. Hay algunos de ustedes que podrían ayudarme en esto, aunque solo sea llegando a los escritos. ¡Del lugar en cuestión y el mínimo y el máximo de los tres pr…

Qué tal, estoy intentando agregar la hoja de "SoloMexico" de varios libros a otro libro de excel, el problema que tengo es que sólo me está agregando el primer libro de la carpeta, he estado un rato intentando arreglarlo sin éxito, adjunto el código que estoy utilizando: Public Sub TLD_IniciarMacro() With Application .ScreenUpdating = False .EnableEvents = False .CutCopyMode = False .DisplayAlerts = False End With ActiveSheet.DisplayPageBreaks = False End Sub Public Sub TLD_FinalizarMacro() With Application .DisplayAlerts = True .EnableEvents = True .CutCopyMode = False .ScreenUpdati…

Buenas a todos, tengo un problema al cargar datos de una base de datos Access a Excel, el problema surgio cuando en mi empresa se actualizo el Office 2007 a la version 2010, el problema es el siguiente, hay una serie de datos en formato fecha/hora en el archivo Access, cuando los importo por macro a excel, me trae estos datos con el valor "0", al pasarlo a formato hora se pone 12:00:00 am. en Office 2007 no existia este problema. Dejo la parte del codigo que se encarga de traer los datos de Acces a Excel, agradeceria su ayuda. Dim PATH_ As String, varianame As String Dim dr As String Dim ay As String, by As Integer Dim ayS As String, byS As Integer, bySb As Integer …

Buen dia, mi consulta es la siguiente: Necesito una macro que oculte filas si encuentra valor 0 en determinado rango y otra que las muestre. Mis filas con la informacion siempre comienzan en la celda D19, el rango digamos tomando en cuenta que siempre inicio en esa celda seria D:G, ya que en algunas hojas tengo registros multiples. Ahora, seria lo siguiente, que si en ese rango D:G la suma de los valores es igual a 0 me oculte esa/s filas, y por consecuente tener otra macro para mostrarlas en caso de que se hagan cambios. Dejo archivo ejemplo Les agradezco mucho su ayuda. Libro3.xls

Estimados buenas tardes Necesito que a través de este archivo "buscar faltantes", su macro sea modificada y busque de las misma forma los duplicados de cualquier rango de la planilla y los arroje en otra hoja en la celda que uno desee. Necesito que sea de la misma forma del archivo adjunto Favor quedo atenta a sus comentarios. Les agradeceré cualquier tipo de ayuda Numeracion consecutiva2 -NVR (faltantes).rar

Hola a todos Necesito crear un filtrado de datos mediante combobox dependientes(ya lo he obtenido y funciona). Mi duda surge a la hora de poder visualizar esos datos. en un listbox. tengo 5 columnas, y la idea es que mediante el filtrado de los combobox, aparezcan los resultados de la quinta columna en el listbox (por ejemplo, si elijo en el ejemplo un pais, una tecnología y un cliente, deberán aparecer los cursos) Os adjunto el archivo donde aparece todo y el listbox sin funcionar (en vacio). Agradecería mucho si alguien me puede echar una mano, ya que ando bastante verde en estos temas. un saludo y gracias por anticipado COMBOBOX DEPENDIENTES.xls

Holas, me proporcionaron el sigiente codigo en VB para lograr enviar correos de acuerdo a una condicion. en un rango de correos lista El codigo funciona perfecto, sin embargo, el codigo se monto sobre un ejemplo sencillo, ahora necesito adaptarlo a una hoja mas elabaroda en donde las posiciones de las celdas son distintas NO logro distingir en la lista de instrucciones cuales son las celdas que puedo variar para ajustarlo a la otra hoja. Sub Macro68() '------------------ 'by Cacho Rodríguez '------------------ Dim LD(), C As Range, Q% For Each C In ActiveSheet.ListObjects(1).DataBodyRange.Columns(2).Cells If InStr(LCase(C), "enviar…

hola buenos dias a todos estoy tratando de ejecutar la siguiente idea es que tengo cierta cantidad de cifras en varias tablas y me gustaria pasar esa informacion en una tablaque me muestre lo siguienteazul=numero que se quedo en el camino y no volvio a apareceramarillo= pista principal o numero unicorojo= numero que en su misma posicion cambio de lugar verde= numero que aparecio y desaparecio y volvio a aparecerel trabajo es para identificar ciertos patrones de una loteria de acuerdo a como van cayendo los sorteos como siempre agradecido por su ayuda ordendepatrones.xlsm

Buen día a todos antes que nada, gracias a este foro que me ha ayudado ya en varias ocasiones, esta vex tengo un problema con un combobox, al cambiar el valor no cambia los textbox a los que esta vinculado. Private Sub CbPaciente_Change() 'Encabezado CbSesión = "" TbDisciplina.Value = "" TbEdad.Value = "" TbSexo.Value = "" TbFecha.Value = "" TbSesión.Value = "" End sub Private Sub CbSesión_Change() If CbSesión = "" Then Exit Sub Application.ScreenUpdating = False Hoja = CbPaciente.Value Valor = CbSesión.Value Set busca = Sheets(Hoja).Range("A5:FH34").Find(Valor, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Noth…

Estimad@s: Les comento, mediante VBA estoy aplicando la formula contar.si.conjunto que cuenta una cantidad de documentos en un rango de tiempo el tema es que la formula no calcula y se queda con el valor de la primera celda aqui el codigo para que puedan nentender mejor: Range(Cells(ActiveCell.Row, ActiveCell.Column + 1), Cells(ActiveCell.Row, ActiveCell.Column + 1)).Select ActiveCell.FormulaR1C1 = "=COUNTIFS(RC2:RC" & columna & ",""<>""&"""",R2C2:R2C" & columna & ",R4C)" Selection.AutoFill Destination:=Range(ActiveCell, Cells(lastCell, ActiveCell.Column)) Range(Selection, Selection.End(xlDown)).Select ActiveS…

Agradeciendo a todos los del foro y al administador por crear esta ayuda de excel. bueno yo tengo una base de datos"base14" es donde en cada "fila de la celda escribo un total de 15 expedientes como maximo dependiendo la labor a trabajar , aveces son menos de 15 y despues tengo varios archivos en word con "15 cedulas, ejemplo: CED 1,CEDE2,...C15 la cuales me encargo de hacerles la fusion de la combinacionde de correspondecia, ahora quisiera que me ayuden para crear una macros en el cual yo con un solo boton pueda hacer ese paso y dependiendo la cantidad que yo tenga en la fila en excel me mande al archivo de wor "CED" que corresponda la cantidad Ejemplo:CED 15 , CED 09…

Buenas, antemano agradezco a quien pueda darme colaboracion al respecto de esta situacion, no soy muy bueno aun en lo relacionado con macros de excel y programacion y mi situacion es la siguiente: en mi trabajo tengo que realizar cotizaciones, para ellos actualmente hay 3 archivos 1) el archivo que contiene toda la lista de productos con rango (A2:K3000) cuando voy a cotizar aplico autofiltros hasta encontrar el producto que necesito. 2) una vez encontrado el producto que necesito, voy al otro archivo (Puente) donde debo agregar unicamente datos de 4 columnas resultado del filtrado ej: No. de Producto / Referencia / Descripcion / Valor (cabe anotar que despues de filt…

buenas buenas, básicamente lo que estoy intentando hacer es introducir lo escrito en un textbox en un cuadro de texto instertado en la hoja de cálculo del excel en vez de en una celda común y corriente. adjunto un ejemplo! desde ya muchas gracias ejemplo.rar

Escoger por medio de CHECKBOX que datos lleva mi tabla dinamica Buenos Días: No se como hacer para crear una macro que al realizar una tabla dinamica me permita escoger por medio de los CHECKBOX que campos y en donde va lo que escoja. Por favor necesito de sus conocimientos lo mas pronto posible

Hola amiagos, escribo para que laguno de ustedes que son unos genios puedan ayudarm. mi problema es que no puedo añadir un campo calculado a una tabla dinamica ,este campo esta en función a un dato que es variable ,que es el número de ha. en la Hoja3 del libro que adjunto esta el modelo de tabla que busco obtener con al ejecución del código ,codigo que dicho sea de paso crea una tabla dinamica incompleta en la Hoja "Infor". Gracias desde ya por su apoyo Saludos desde Perú. TD_campoCalcu.zip

Saludos Quisiera ver si puede ayudar en ajustar unas macros, les explico, tengo una macro que crea en excel certicados en pdf, luego registra en una hoja aparte dentro de libro los datos: 1 Nombre del participantes, 2 nombre y ubicacion del archivo en el HD (Macro1) , asi posteriormente lo envio por correo (con otra macro), desde el mismo excel, hasta aca todo bien. Mi problema es que lo hago 1 por 1, aca esta una macro que probe muy buena de creacion de pdf por lotes (macro2), lo que busco, si es posible, incluir que cada archivo que cree registre su informacion en una hoja y continue el ciclo, y como se ve en la pirmera macro, seleccionar el rango a guardar. …