Hola Maestros del Excel, un abrazo desde Colombia. Tengo la siguiente necesidad. He hecho una pequeña herramienta Excel - Access donde desde Access abro un libro de excel. Este libro, a propósito, se demora en abrir unos 7 segundos. Pues después de que el libro está abierto debo desde excel ir a ACCESS y abrir un formulario específico según un dato en Excel al darle, por ejemplo, doble click en una celda. Las dudas que tengo son: 1. Como puedo integrar una barra de progreso que mida el progreso de la apertura del libro de excel? Importante: en la apertura de este libro no hay bucles como para pensar en medir avances dependiendo de la posición del código en…

Hola a todos. Perdonar con este asunto, creo que debe ser una tontería, pero no logro ver el error. Con esta sentencia me da error: Worksheets("KM_iniciales").Range(Cells(1, 1), Cells(maxrow, maxcolumn)).ClearContents Y sin embargo así funciona. Worksheets("KM_iniciales").Range("A1:K" & maxrow).ClearContents Quisiera que la columna a eliminar no fuera siempre la K porque podría ser otra, por eso quiero hacerlo con cells, pero no logro que funcione. ¿Qué estoy poniendo mal? Teniendo en cuenta que busca la última fila y columna así. maxcolumn = Worksheets("KM_iniciales").Cells.SpecialCells(xlLastCell).Column maxrow = Worksheets("KM_inic…

estoy haciendo un registro en el cual ya hice el combobox con lista desplegable pero no se como hacer que con vba excel de autofiltro a el valor seleccionado en el combobox

Hola tengo un libro de facturación casi terminado pero siempre quiere uno una función más, y desde unas de mis hojas denominada "Facturar Albaranes" quiero tener acceso a una carpeta de mis Documentos "Albaranes no pagados" y quiero abrir esa carpeta desde esa hoja en concreto desde el rango (B12:B39) al hacer doble clic en cualquier celda de ese rango para tener acceso a todos los albaranes de un cliente por ejemplo. Tengo algunas macros y me funcionan muy bien, pero no puedo sacar esta. Esto siguiente va en la página pero tampoco me funciona. Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Worksheets ("Albaranes_Facturados") If N…

Buen día!! Recurro a Uds. para solucionar estos inconvenientes!! 1.- Coloqué un código en el evento "Workbook_Open para que al abrir el archivo me presente visualmente en las hojas las líneas punteadas que indican los límites de impresión (no la vista preliminar de impresión) pero me lo aplica sólo a la hoja activa. Cómo corregirlo?? 2.- Al activar la macro mediante el botón de comando "HojaNueva2016" me copia la hoja pero me bota un error y al correrla paso a paso me bota otro error. 3.- En ocasiones me presenta la vista preliminar en el código de la Hoja 1 y tengo que pulsar la tecla "ESC" para que el código continúe. Al incluir la instrucción "SendKeys {ESC}" me indic…

buenas tardes...a todos..los master bueno les comento que en mi Formulario cuando ingreso fecha ejem.11 de marzo y despues al grabar lo lleva a la planilla de excel como 03 del 11 por favor me pueden ayudar a solucionar detalle ..(Gracia Totales) fecha de pago.xlsm

Hola amigos de Ayuda Excel Muy buenos días. Estoy haciendo un indicador visual el cual consiste en que una forma (compuesta de 3 objetos) debe cambiar de color en función del resultado de una formula en una celda. En este sentido, si el resultado de E17 es mayor o igual a 0, el circulo y flecha arriba de la forma deben ser de color verde y la flecha abajo sin color. Y si el resultado de E17 es menor de 0, el circulo y flecha abajo de la forma debe ser de color rojo y la flecha arriba sin color. Agradecido de antemano por la ayuda y valiosa colaboración COLOR DE OBJETO.xlsm

Estimados adjunto un archivo el cual tiene un listbox y un textbox de busqueda donde localizo el numero de un equipo pero quisiera para no ponerle otro textbox que solo me cargue en el listbox las ordenes de trabajos que se encuentran con la palabra abierto cualquier ayuda que me puedan ofrecerme les estare agradecido. Para cargar el listbox presionar el boton 1 que aparece en la hoja 1 Libro1.xlsm

Hola a todos encontre este ejemplo en internet, pero no actualiza el cuadro. quiero que mediante el combo yo seleccione y automaticamente actualice la tabla dinamica. adjnuto el excel para que me puedan ayudar. gracias comboTablaDinamica.zip

Hola buenas, soy nuevo en el foro y, aunque he visto peticiones similares, no he conseguido aplicar las soluciones a mi hoja. En mi caso, tengo un libro de excel con doce hojas (una por cada mes). Necesito una macro que busque en cada hoja anterior (es decir, si estamos en la hoja "Abril" que busque en las hojas de Enero, Febrero y Marzo el valor "Abril") en la columna G el valor del mes correspondiente. Una vez hecho esto, que copie las filas correspondientes y la inserte en la celda A5 del mes de Abril. Tengo hechas ya las fórmulas para que solo sume los valores correspondientes al mes en cuestión, así que eso no sería problema. Soy consciente de que hará falta ha…

Saludos. Estoy enfrentando un inconveniente en mi código VBA. Al cargar los datos en la hoja "Recibo", la información se traslada correctamente a la hoja "Historico", ubicándose en las celdas correspondientes sin problemas. Sin embargo, al momento de imprimir el Recibo, la celda correspondiente a "Saldo Anterior" (que debería conservar su valor original) muestra el monto actual del "Saldo", lo cual es incorrecto. Agradecería orientación para evitar que esa celda sea modificada antes o durante la impresión. Recibo Inmobiliaria 1.xlsm

Buenos días ,Llevo días atascado en un problema relacionado con la función extraer datos. Tengo un nivel de excel muy básico así que cualquier ayuda será de mucho agredecer.La cuestión es que he creado una base de datos excel para gestionar las entradas y salidas de un párquing. El funcionamiento es simple pero eficaz. Se introduce el número de tarjeta o id del conductor y mediante la fórmula extraer se recuperan el resto de datos suyos que le identifican a él y su vehículo (fotografía, nombre, cargo, matrícula del vehículo, marca, modelo, etc), de modo que te indica que está autorizado. En caso contrario, aparece la indicación no autorizado.Estos datos a su vez se copian…

Hola Buen Dia Gente, Es mi primer post en el Foro Quero Dar las gracias por este gran aporte que brindan! Despues Paso a lo Siguiente., Tengo un simpre formulario el cual contiene un boton me crea una Base Datos en SQL otro que crea la Tabla y Poateriormente Introducir los Datos , Los Datos me los Agrega perfectamente al Excel, Pero lo que quiero es que tambien los Pegue en la Tabla de la Base de Datos SQL. Si alguien me puede suguerir Algo Estoy Disponible Graciass! Base de Datos.rar

Nuevamente es un gusto saludarles. Otra vez consultando, tengo un UserForm dentro del cual se encuentran cuatro secciones: Depósitos Banarios, Tarjetas de Crédito, etc., en cada sección se puede grabar la cantidad de registros que sean necesarios. El formulario funciona así, ejemplo: Al abrir el formulario ingreso la fecha y el código de la tienda, luego en la sección depósitos bancarios ingreso mis datos los cuales al presionar el botón “Añadir Registro” los carga a la hoja de Excel en las columnas de la “I” a la “O” tomando como referencia la columna “H”, la misma operación realizo con las demás secciones, una vez ingresada toda la información necesaria le doy enter e…

hola amigos estoy pretendiendo:frog: hacer un especie de semaforo de actividades, es decir; que por ejemplo en determinada fecha se registró una actividad pero al transcurrir el tiempo:uncomfortableness: necesito que el sistema me de el indicador de "*******" (rojo), "prevenirse" (amarillo), "sin problema" (verde):cold:...esto lo quiero hacer obteniendo la informacion de las celdas de excel y que cuando abra el formulario de esa celda activa me muestre dicho semaforo...¿creen poderme ayudar almenos con las ideas?:concern: gracias y saludos conteodediasmesesyaños.xls

Buenas noches. Necesito su amable ayuda. tengo una base de datos con 4 columnas, comienza en a7(clave de producto), b7(familia), c7 (descripcion de producto) y d7 (unidad)...Ejemplo M0001, afine, afine de terreno, m2. Necesito la forma de filtrarlos escribiendo la familia en la celda C6. Y de paso, (al seleccionar el producto necesario, ya que puede haber cinco, tres, quince, tipos de afine, por ejemplo)asignarle algun mecanismo para enviarlo a otra hoja donde se va formando mi presupuesto o factura y que me permita ir escribiendo en la celda de abajo, para agregar otros productos. Aclaro, no se nada de macros y programacion. Es solo un programita para facilitarme mis…

Hola, tengo una macro que desprotege ciertas celdas, cuando apreto la misma, primero te pregunta la contrasena. Pero necesito que cada vez que la contrasena es incorrecta no me tire error 1004 sino un cartel que diga contrasena incorrecta. Cree la siguiente macro pero no me funciona: Sub Desproteger() ' ' Desproteger Macro ' ' On Error GoTo Errhandler ActiveSheet.Unprotect Sheets("OP").Select ActiveSheet.Unprotect Sheets("NP").Select Range("F11").Select Exit Sub Errhandler: MsgBox "No dijiste la palabra magica", vbOKOnly, "Error" Exit Sub End Sub Que debo hacer para que funcione? Desde ya muchas gracias =)

Buenas noches, necesito sacar de un archivo con 200 hojas aprox (que son facturas , todas con el mismo formato) un resumen de facturación con nombre cliente, fecha, número fra, importe, ... Como lo puedo hacer , no tengo ni idea de macros. Por favor ayuda!!! Y que sea fácil ...

Hola. La consulta es como pegar un rango de celdas B10:B46 de la hoja 1 a un rango que no tenga datos en la hoja 2 F10:F46 y si tiene datos este rango que encuentre hacia la derecha el rango libre. Muchas gracias

Estimados, Soy nuevo en este foro. quisiera saber si son capaces de ayudarme con el siguiente porblema: Estoy utilizado el codigo de mas abajo, que junta varios libros en uno solo (nuevo libro creado por el macro), y me gustaria que si se puede hacer que junte esos libros en el mismo donde tengo la macro y sin borrar las hojas que existe. saludos y gracias Sub UnirLibros() Dim Directorio, NombreLibro As String Dim ContadorFicheros As String Dim Unidos As Workbook Dim K, NumHojas As Integer Dim Libro As Workbook Directorio = ThisWorkbook.Path ContadorFicheros = Dir$(Directorio + "\*.*") 'Crea el libro que contendrá a todos los demás Application.SheetsInNewWor…

Hola Estimados, tengo el siguiente archivo dándole vueltas, Lo que hace es seleccionar varios registros del listview por medio de check, y los imprimo en PDF. El de forma individual ya lo tengo, me imprime un pdf por cada registro que tenga seleccionado. El tema es que quiero imprimir en forma masiva, decir un solo PDF pero por todos los que tenga seleccionado, me refiero a que el PDF que va a llevar por nombre "reporte pdf" sea uno solo y que me de una hoja por cada pagina seleccionada, en este caso una hoja por region, nose si me explico. Se que el código esta casi pero el bucle mes esta comiendo, hay algo que me falta para que funcione. Busqué …

Hola a todos, Estoy intentando crear una macro que me automatice un formulario web. Consigo rellenar los textbox normales utilizando el siguiente código pero no sé como conseguirlo en los richtextbox que contiene. Set ie = CreateObject("InternetExplorer.Application") With ie .Visible = True .Navigate direccion Do While ie.ReadyState <> 4 And ie.Busy = True DoEvents Loop End With Set campo1=ie.Document.getelementbyid(etiqueta) campo1.value=valor Espero me podáis dar alguna idea Un saludo

Hola compañeros, soy algo nuevo en el tema de macros... he podido realizar una macro (con ayuda del foro) pero tengo el problema que mientras mayor cantidad de datos el calculo demora demasiado hasta el punto de colgarse la aplicación... La función de la macro es que en la columna M me indique con una X los registros mas recientes, esto luego de comparar las columnas K, E y F. por ejemplo el Folio (columna K) N° 36078-S0801002537 tiene 4 registros, se marca con X la fila con fecha mas reciente (columna E), en el ejemplo existen 2 días iguales (columna E) , en ese caso se verifica por la hora (columna F) por lo tanto luego del analisis marca con una X (columna M) la fi…

Tengó la siguiente macro que me permite exportar a PDF en una ruta definida por mi: Option Explicit Sub CreaPDF() Dim NombreArchivo, RutaArchivo, historico, separador As String NombreArchivo = Cells(7, 3).Value RutaArchivo = Cells(42, 2).Value historico = Cells(3, 6).Value separador = “-” ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo & NombreArchivo & separador & historico, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub Esa macro me exporta a un pdf la planilla que tengo en una ruta definida. Lo que necesito hacer ahora es qu…

Hola compañeros, quisiera que me ayuden con una macro que permita "guardar como" utilizando como nombre del archivo el contenido de una celda y que me permita escoger en que carpeta la quiero guardar. Agradezco su colaboración.