Hola intento buscar un tema que ya estaba en el antiguo foro pero que no veo el ejemplo a ver si alguien me puede ayudar. Es de Never y es leer un archivo pdf leer determinados campos y coger esos campos y pasarlos a excel. Gracias por la ayuda

Me encuentro en una ventana de Formulario y no logro dar con la instrucción que me permita eliminar un control del Formulario, por medio de un procedimiento dentro de un botón (por ejemplo). Pretendo eliminar controles específicos, creados en tiempo de ejecución. El problema por los momentos comienza en que no se con que instrucción eliminarlos aunque estos hayan sido creados en el modo diseño del UserForm. Agradezco ayudas probadas.

Hola Necesito de su ayuda, he intentado crear un UserForm que me permita buscar entre varias bases de datos (Hojas de un mismo Libro) y luego actualizar el resultado si es necesario como sigue: Cada base de datos (hojas)esta compuesta por valores de Fecha Estado Cantidad Tipo Destino Movimiento 2/1/2013 Pendiente 100 SIM Buenos Aires 12345 El UserForm q trato de crear viene dado por: TextBox1 que contiene el criterio de busqueda, en este caso un numero de "Movimiento" TextBox2 que me entregue el valor de la columna "Estado" (llamese: Preparado, Pendiente, Entregado, etc.) asociado a la misma fila del "Movimiento…

Hola amigos. Estoy utilizando para pasar de Textbox a celda la forma format(textbox.value,"MM/DD/YYYY") para que meponga en las celdas día/mes/año y no me ponga al revés la fecha como con "DD/MM/YYYY". De momento no me da errores. ¿Está bien, se me puede presentar algún error? Gracias por la atención.

Buenos dias me pregunto si me pudiesen ayudar tengo una macro que se conecta a una base de datos de acces 2010 y me conecta bien pero en el momento que le coloco contraseña a la base de datos de acces 2010 no me reconoce la contraseña y se pierde la conexion me gustaria seber como resolverlo esta es l aconexion que utilizo: .ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & ThisWorkbook.path & "\BDFERRYSERVICES.accdb;" & "Jet OLEDB:Database Password=SYSWORK2012;" Muchas gracias

Buenas tardes En un determinado rango tengo unas celdas con un montón de fórmulas y condicionales y de ellas algún resultado me da error ( #¡DIV/0! ). Para evitar añadir a la ya complicada fórmula la función SI.ERROR , necesitaría un código desde VBA que me diese resultado cero al encontrar error. En el fichero adjunto sería el rango C8:G8 . Gracias de antemano por la gestión y el tiempo y un saludo Rafael ELIMINAR ERROR EN RANGO DETERMINADO.rar

Hola a todos quisieran que me ayuden si es posible crear un macro para salto de celdas determinadas, les explico yo estoy trabajando con 4 columnas A , B , C ,D.. y bueno comienzo a digitar con la celda A1, despues B1, C1 y D1.. y lo que quiero es qe cuando termine de digitar en la celda D1 se pase a la celda A2 y asi sucecivamente llego a la D2 y se pase automaticamente a la A3 y asi.. Espero que me ayuden y me expliquen como aplicar el macro como y donde lo pondria... ya que soy nuevo en estas cosas

Hola a todos: Tengo lo siguiente en el libro de VBA: [DBOX]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("B4:H14,B6:H6")) Is Nothing Then ActiveCell.Value = ActiveCell.Offset(0, -1).Value + ActiveCell.Value End If End Sub [/DBOX] Lo que quiero es que al introducir un dato en cualquiera de esas celdas me sume ese valor con el dato y me deje ese dato en la misma celda. Lo he intentado de otras maneras pero me genera una especie de bucle y no he podido solucionarlo, y las que les describo me datos diferentes. Si de favor pueden ayudarme. Gracias.

parte del codigo y donde se produce el error es el siguiente, mas abajo se produe el error: FechaInicial_2013 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(1, 2).Value FechaFinal_2013 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(2, 2).Value FechaInicial_2014 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(3, 2).Value FechaFinal_2014 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(4, 2).Value Application.ScreenUpdating = False Set pt = ActiveSheet.PivotTables("Tabla din?mica1") Set pf = pt.PivotFields("Fecha") For Each pi In pt.PivotFields("Fecha").PivotItems FechaComparacion = VBA.Format(pi.Value, "dd/mm/yyyy") 'CDate(pi.Value) If FechaComparacion &…

Hola a todos muy buenos dias como estan! A los grandes maestros de este grupo, queria consultar por una macro que estoy usando para buscar archivos en una carpeta, actualmente la macro me funciona, recorre todos los archivos dentro de una carpeta pero no que no logre es que si hay subcarpetas entre tambien a las sub carpetas, asi que tengo que hacerlo uno por uno aun asi seleccionando carpeta por carpeta, es muy muy muy lento?.... demora 11 minutos en ejecutarse para evaluar por ejemplo una carpeta con 600 archivos... me gustaria saber si existe o no una forma de optimizar para que demore menos... porque lo que necesito es evaluar MUUUUCHAS CARPETAS con …

Hola a todos; Estoy intentando vaciar el contenido del portapapeles y no logro hacerlo. He usado esta instrucción y no me va. Desconozco otro método alternativo. Probé con la grabadora pero lo único que puedo conseguir es ocultar la ventana del portapapeles. Un saludo a todos. Libro1.xlsm

Amigos, quisiera saber como hago para que se ejecute una macro cuando el resultado de una celda sea vsalor falso. Es decir, si la celda es falso se ejecue macro y si es verdadero, no haga nada. He intentado pero la macro se ejecuta sin parar una y otra vez. Alguien me puede ayudar

Saludos!, Estoy importando datos desde una pagina web hacia mi libro de excel, otras macros realizan otras operaciones con dichos datos, El problema que tengo actualmente es que en algunas ocaciones el excel muestra un mensaje emergente y detiene todas las macros que se están ejecutando, hasta que el usuario presione "Aceptar" (Adjunto mensaje) Quisiera que el excel no muestre ningún mensaje y que las macros sigan ejecutándose, o que de alguna manera los acepte, (espero poder explicarme), En internet encontre esta linea de comando "" Application.DisplayAlerts = False "" Pero no me funciona, o al menos el mensaje sigue saliendo, Mil Gracias, …

Buen día solicito de su apoyo nuevamente, estoy en busca de un macro que me pueda buscar un numero dentro de una tabla con numero inicial y final, y que me arroje la fecha de este rango, les dejo el ejemplo De la Hoja Principal, que busque el primero valor en la tabla Fecha, si el valor coincide con el Inicio y Final de una fila, ponga la fecha de este, subraye el ejemplo Hoja Princial: numero FECHA 405.64 19/02/2018 Inicial final FECHA 60.00 215.00 15/02/2018 215.00 385.00 16/02/2018 …

Saludos amigos del foro, he tratado de realizar una importación acorde a los seleccionado en combobox dependientes. Es decir si selecciono solo en el combobox1 se mostrará todo lo relacionado a la selección pero si tambien selecciono en el combobox2 me gustaria que se con esa indicación y las columnas según lo mostrado en el archivo destino ejemplo. La macro esta funcionando solo cuando se selecciona el archivo y se pulsa el botón abrir, pero falla cuando se cancela he tratado de resolverlo pero no responde. Acudo al foro para alguna colaboración al respecto Agradezco anticipadamente el apoyo Subo los dos archivos para que lo vean Prueba8 ImportarDa…

Buenas tardes! Estoy trabajando en una macro que trabaja en base a una userform, el problema es que al cerrar el formulario el excel se bloquea (no se desplaza correctamente por las celdas y no deja cerrar el excel) todo esto hasta que cambio de hoja seleccionando abajo manualmente. todas las pruebas que he hecho me han llevado al problema, que esta en el siguiente codigo y al sacar la seleccion de la hoja2 (marcado en rojo) funciona correctamente, pero no puedo llenar los combobox. Private Sub UserForm_Initialize() Application.Visible = False Hoja2.Visible = xlSheetVisible Columns("ag:ag").Select Selection.EntireColumn.Hidden = False Sheets("Operaciones").Sele…

Buenas, necesito ayuda. Trabajo en un laboratorio y necesito generar informes y listados de datos. Los datos los copiamos directamente en un archivo de Excel con varias hojas. Lo que quisiera es con una macro en un botón copiar los datos en una hoja final de resumen para poder imprimirlos y enviarlos (ya lo hago con otros informes, pero sólo son de dos hojas una de entrada de datos y otra de informe). Os adjunto dos archivos, el “PLANTILLAS AGUAS ENVIO POR EMAIL” es el que quiero hacer y el “AGUAS RESIDUALES DIARIAS PTO 12-2-4” es el con el que estoy trabajando (este es una copia que tengo guardada por seguridad) cuidado al utilizarlo dado que la macro esta hecha para que…

Buenas noches amigos Excelianos como están? espero muy bien. Necesito de su experiencia estoy trabajando para un proyecto de mi univesidad y la verdad he encontrado un proyecto casi a lo que necesito en este foro pero está incompleto el código del botón modificar tiene o comete algunos errores al ejecutarlo. Resulta que ingreso datos por un formulario y se grabará en un hoja de excel que me sirbe como Base de datos, alguien suguiere que se lo haga en Acces claro eso es mas para jugar con datos pero no todos pueden utilizarlo como yo. Es mas no quiero ingresar millones de datos por eso quiero acoplarme a excel y con un poco de ayuda de VBA se que puede funcionar. Bueno en …

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…

Hola Buenas Noches. Ante todo un cordial saludo a los foristas de ayudaexcel. En un libro con macros que estoy desarrollando, me he visto en la necesidad de importar archivos con texto plano y desplegarlo en una hoja de excel bajo el siguiente criterio: - debe estar formateado en codificación UTF-8 - el contenido se irá guardando en filas sucesivas. - se deberá conocer el número de filas que se generarán una vez vaciado el contenido del txt en la hoja. de lo señalado llevo bastante adelantado, pero mi problema es que al usar uno que otro método, entonces se dejan de cumplir uno de los criterios señalados. utilizando por ejemplo, la impor…

¡Buenas tardes! Quiero que una matriz contenga los datos de una lista de 147 filas y 3 columnas.. El caso es que si utilizo for each matriz in selection, se me guarda cada celda tres veces cuando intento usar este bucle para tal fin: Worksheets("listacamioneskm").Select Sheets("listacamioneskm").Cells(1, 1).Select Selection.CurrentRegion.Select For Each matriz In Selection For indicematrizfila = 0 To 146 Step 1 For indicematrizcolum = 0 To 2 Step 1 listacamioneskm(indicematrizfila, indicematrizcolum) = matriz.Value indicematrizcolum = indicematrizcolu…

Buenas noches amigos, tengo una pregunta, ¿cuál de los dos métodos es más eficiente y porqué?, este, utilizando Target.Offset: If Not Intersect(Target, Range("K4")) Is Nothing Then Target.Offset(3, -2) = "" Target.Offset(3, -7) = "" Target.Offset(3, -7).Select End If [/CODE] o este, utilizando Range: [CODE]If Not Intersect(Target, Range("K4")) Is Nothing Then Range("I7") = "" Range("D7") = "" Range("D7").Select End If [/CODE] Saludos.

Buenas noches, genios de excel, aquí solicitando su ayuda, ustedes saben que cada dia se le va presentando a uno inconveniente a lo que se refiere en excel. Bueno lo que me gustaria que me apoyen, si ustedes quisieran, tengo varias hojas en un libro de excel con información, que me gustaria que toda esas hojas esten en una sola hoja, y que las columnas A y B que estan combinadas que se descombinen y que los numero que me lo ponga solo en la columna B, asi como esta en el ejemplo que los separe por color y pagina solo para que ustedes vieran como tiene que quedar. Use esta macro pero no funciona, Sub ConsolidarHojas() For Each ws In ActiveWorkbook.Worksheets ws.Se…

hola a todos. bueno mi consulta es la siguiente tengo 24 libros de Excel cada uno pertenece a cada quincena de mes es decir 1ra quincena de enero, 2da quincena de enero y así sucesivamente por mes, quisiera sumar celdas en especifico de cada libro en otro libro que se llama totales. cada libro tiene el mismo formato. en el libro totales, quiero sumar la celda D18, F18, H18, J18, L18, N18 de todos los libros correspondientes a cada quincena de mes, sin que se habrán estos libros, todos los libros están en una carpeta que se llama total, la ruta es la siguiente: C:\Users\sherrera\DOCS\REPORTES DE BITACORA\2016\TOTAL otra cosa, que cada vez que agregue un libro en…

hola a toodos : mi duda es la siguiente, tengo este codigo en el cual me guarda un archivo y me lo reemplaza pero al momento de reemplazarlo me genera otro archivo excel .... '4. Guardamos el libro sFileXLS = ThisWorkbook.Path & "\" & NOMBRE_DOCUMENTO & ".xlsx" On Error GoTo sincopia wbNuevoLibro.SaveAs sFileXLS Exit Sub sincopia: MsgBox "NO se ha generado la copia" '5. Cerramos el libro wbNuevoLibro.Close End Sub [/CODE] no se donde estara el error :/, ojala alguien me pueda ayudar