Hola a todos. Estoy creando un buscador de datos que se encargue de extraer todas las filas que coincidan con determinada clave de identificación. Las claves tienen tres estructuras diferentes con dos dígitos (00), 5 dígitos (00000) y 9 dígitos (000000000) que corresponden a identificadores geográficos. El archivo tiene dos pestañas, una con los datos y la otra con el buscador. El tipo de búsqueda depende de la elección del usuario, que es a nivel estado (00), municipio (00000) o localidad (000000000). Con el código que llevo hasta ahora, al buscar a nivel estado (columna G) o municipio (columna J), me devuelve los resultados en la hoja del buscador, pero también m…

En este archivo pretendo que en una hoja nueva de excel que tome el valor del numero de orden, se creen tantas copias de la tabla que veis en la hoja materiales como "Si" aparecen en el listado de Materiales de la hoja de inicio. La idea es que se pudieran copiar los nombres de esos materiales a cada una de las tablas y que las macros que tengo en la hoja materiales se copiaran a su vez. Gracias Materiales2024v2.xlsm

Hola, mi pregunta es como puedo combinar los datos de un fomulario de excel con un correo electronico, o con un documento de texto. Gracias.

Muy buenas he copiado de aqui un codigo para invalidar el boton X de cerrar Excel y que el usuario oprima el boton de CERRAR que yo he creado, hasta aqui todo perfecto, el problema es que yo quiero que aparte de GUARDAR el LIBRO, la aplicacion se me cierre, el problema es cuando sustituyo el ACTIVEWORKBOOK.CLOSE por APPLICATION.QUIT la aplicacion ni el libro se me cierran. Subo un adjunto para que veais el problema. muchas Gracias PruebaLibro1.xls

Espero que me ayude con un problemita que me surgio mientras estaba realizando mi macro. Yo tengo mi macro en un archivo sin datos, cuando ejecuto mi macro tengo abierto otro archivo donde se le hacen varias cosas con la macro en determinado momento se pide abrir un archivo es donde se abre el cuadro de dialogo para seleccionar el archivo, hasta ahi todo bien, me abre el archivo, pero al momento que quiero interacturar entre los achivos con las formulas me muestra el cuadro abrir archivo (2 veces por cda formula). Si selecciono el archivo del que quiero los datos todas las veces que aparece me jala los datos bien, pero el punto es que si ya tengo el archivo (y su nombre e…

Hola Amigos Por favor quisera que me ayuden a crear una macro que permita insetar automaticamente la formula que aparece en la celdas de a Columna "E1" y "F1" a lo largo de cada una de las columnas respectivamente,algo así muy parecido a lo establecido en la Columna"D". Gracias por su ayuda, de antemano. InsertarFormulas.zip

hace poco me ayudaron con una busqueda nada mas que ahora necesito que si por ejemplo tengo en dos celdas juan perez garcia y pedro martinez perez al yo teclear en el textbox perez me arroje los dos nombres ya que hambos contienen lo que en el textbox se escribio y de paso creo que es igual pero que me busque en textos mas extensos palabras claves aunque no las escriba por completo ejemple si yo tengo en A1 este texto "el mejor amigo del hombre es el perro y el mejor amigo de la mujer es el gato", en otra A2 tengo "mi mejor amigo es juan" y en A3 "el tigre es el primo del leon que a su vez es primo del perro" si yo en un textbox escribo perro me debe de mostrar todo el c…

Buenas Tardes amigos, Un gran servicio, creen que me puedan ayudar, necesito formatear la columna leída desde la macro a texto, y evitar que los valores 01, 04, 0009 los muestre como 1, 4, 9 he probado con la grabadora de macros y no lo he logrado, sale un error de depuración: adjunto ejemplos, he intentado hasta personalizar los tipos de datos a nivel de celda (@, ####, RRRR, etc. )en la plantilla pero nada, creo que la solución está en hacer referencia a los valores pero no sé cómo. Adjunto ejemplo, crear la carpeta "carpeta" en c:\ y ejecutar la macro. En la prueba ver la columna AJ (cuenta bancaria) Graaaaaciaaaaas !!!!!!! WALTER. CPE_MAESTRO_PER_PERSONAL.txt …

Estimados amigos: Vuelvo a abusar de los conocimientos de este foro para ver si alguien puede echarme una mano con una macro que me permita importar los datos de un archivo TXT tabulado a una hoja de Excel, pero con desplazamiento de referencias. Es decir, los datos importados no se copiarán en celdas contiguas, sino que lo harán en filas y columnas distintas (aunque con un patrón determinado). Adjunto un archivo que espero aclare lo que necesito. Agradezco de antemano cualquier ayuda que puedan prestarme. Cordialmente. Macro TXT2XLS.zip

saludos como el titulo lo dice, deseo saber como establecer el encabezado de un listbox pero personalizando los nombre de cada columna diferente a los él extrae automaticamente al importar los datos o agregar un titulo a las columnas de un listbox usando codigo vba o si no quedo clara la pregunta: ¿Es posible configurar los encabezados en un listbox de varias columnas sin usar un rango de hoja de cálculo como la fuente.? gracias

hola estimados, necesito un código para que haga los siguiente, yo tengo un libro principal, y necesito que cuando yo abra este libro principal de forma manual (doble click en el icono), este libro se abra en una ventana excel independiente. y si se puede que cuando yo abra otro archivo excel no se mescle con mi archivo principal. lo que quisiera es que mi libro principal tenga siempre su ventana excel independiente

Hola buenas. tengo poca experiencia con la programación en VBA y necesito ayuda mi problema es el siguiente: necesito una macro que busque por código, es decir, que busque por código la información de un producto en una hoja de excel y luego esta información me aparezca en un formulario, esta es la hoja MAESTRO DE PRODUCTO CODIGO DESCRIPCIÓN STOCK UBICACIÓN S DESPUNTE UBICACIÓN D 2003 PERFIL6 36 B1 13 A1 2004 PERFIL7 45 B2 14 A2 2005 PERFIL8 50 B3 17 A3 necesito que al escribir el código en el formulario y apreté el botón buscar me aparezca el resto de la información. agradecería mucho que me ayudaran con esto.

con que codigo puedo deshabilitar autoguardado ?

Hola a todos los colaboradores de este fabuloso foro, vuelvo nuevamente con un problema que se esta presentando para buscar un registro determinado en una base de datos; resulta que cuando deseo buscar un numero que he registrado previamente en la base de datos y este contiene mas de cuatro digitos el macro que se encuentra asociado al boton "eliminar registro" no lo busca y se salta al mensaje no se encuentra. El macro esta adaptado para que dependiendo de la opcion que este marcada busca en una determinada hoja sobre la columna G, ejemplo si marco la opcion remisiones busca el dato a eliminar en la hoja rrem (hoja oculta) los codigos de la remision o pedido que e ingre…

Buenos días... Tengo un Excel con una base de datos, en el mismo tengo una macro que carga los datos en esta base y otra macro que busca por código. Necesito ayuda!!! 1) Cree una hoja "venta" que es para facturar los libros x código de barra. Lo que necesito es una función o macro que me guarde en otra hoja que llamé "ventas", todo lo que cargo en "venta" y que al mismo tiempo descuente de la base de datos el stock. Adjunto una versión simplificada del Excel para que se vea bien. No tengo en claro si esto lo puedo hacer con una función o con una macro. El archivo lo fui armando de a partes con la ayuda de los foros, algunas cosas las comprendo pero todavía estoy e…

Estimados, necesito lo siguinte. Tengo en a1 un valor y en b1 necesito copiarlo un numero determinado ejemplo b1 b2 b3 lo vamos a copiar tres veces hacia adajo, luego en a5 tengo un segundo valos y necesito copiarlo 5 veces, b5 b6 b7 b8 y b9, la idea es que si encuentra un valor entre a1 y a100 me copie el numero de veces que yo le indique. Gracias

Hola que tal He realizado una macro que hace un vlookup normal y me funcionaba a la perfección. lr = Range("L" & Rows.Count).End(xlUp).row Range("O2").Formula = "=IFERROR(VLOOKUP(j2,Sheet2!$A:$B,2,FALSE),"""")" Range("P2").Formula = "=IFERROR(VLOOKUP(D2,Sheet2!$D:$F,2,FALSE),"""")" Range("Q2").Formula = "=IFERROR(VLOOKUP(D2,Sheet2!$D:$F,3,FALSE),"""")" Range("O2:Q2").Select Selection.AutoFill Destination:=Range("O2" & ":Q" & lr), Type:=xlFillDefault[/CODE] El problema se me ha complicado porque solo necesito que ese vlookup funcione solo en los modelos que contengan WG038 o WG165. De manera directa, es decir en la formula lo he…

Estimados, necesito una macro que cuando recorra una columna y encuentre dos datos determinados inserte una fila en blanco entre estos, por ejemplo: Ejemplo Venta Costo Total Margen Total Resultado Venta Costo Total Margen Total Entre "Total Margen" y "Total" inserte la fila en blanco. Muchas gracias a los expertos en Excel es lo único que me falta para completar mi tarea.

Hola Chicos; tengo echo un Acumulador, pero mi problema es que quiero que la celda que actúa, sea con una condición. Es decir, que la celda A1, haya una fórmula. y que actúe después el Acumulador. Si en la Celda A1, le meto un Valor, el Acumulador si funciona, pero quería hacerlo a través de una formula Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("B1").Value = Range("B1").Value + Range("A1").Value End If Un Saludo Teo Acumulador.rar

Hola, Ante nada muchas gracias por su tiempo. Escribo ya que decidi crear una macro la cual copia un texto de una pestaña y la pega en otra. Mi problema es que necesitaria que la misma se ejecute automaticamente al abrir el archivo de excel. Al ponerle el nombre auto_open, la macro intenta ejecutarse pero me da un error (Error 1004 en tiempo de ejecucion: Error en el metodo "Sheets" de objeto "_Global" Sub Auto_Open()[size=12][/size] '[size=12][/size] ' Auto_Open Macro[size=12][/size] '[size=12][/size] ' Acceso directo: CTRL+t[size=12][/size] '[size=12][/size] Sheets("futbol242").Select[size=12][/size] Range("A1:F1").Select[size=12][/size] Application…

Buenos días, Antes de nada decir que de Visual Basic no sé absolutamente nada. Gracias a tutoriales he conseguido crear un archivo con varias formas que unidas representan el mapa de España por Comunidades Autónomas. La idea es que en función de una escala de valores, las Comunidades salgan rellenas de un color u otro. He conseguido hacer esto utilizando los colores más básicos, pero lo quiero hacer con degradados de azules, verdes o cualquier otro color y ahí viene el problema. Cuando sobrepaso el número 80 de color en la formulación me da error. Os subo el archivo para que lo podáis ver (debido al peso del archivo no me deja subirlo). Pego aquí la macro y…

Buenas tardes a todos. Tengo una pequeña inquietud que le he dado infinidad de vueltas y no doy. Es algo como esto: With r(1, 7).Resize(r.Rows.Count, 1) .FormulaR1C1 = "=IF(RC[-2]> sm * 4, RC[-2] * 0.01,0)" .Value = .Value End With Trato de comparar la celda escogida con la variable sm, pero no sé cómo llevar esta variable a la fórmula. He intentado con comillas, dobles comillas pero no doy. Alguna idea?? Muchas gracias por su tiempo Boris

Saludos a todos solicitando nuevamente su ayuda, lo que deseo hacer es leer desde Excel a Access es decir poder ver la información que contiene Access(tablas,consultas, formularios etc.). Buscando en la red me encontré con este ejemplo que conecta Excel con Access pero no me funciono, no se a que se deba. De antemano muchas gracias. Saludos!!! Leer una base de datos access.zip

Hola de nuevo pidiendo un poco mas de ayuda Quiero copiar los datos que tengo en la hoja clientes a otro libro que tiene también una hoja con el mismo nombre sin que se dupliquen los datos, que si tiene un dato nuevo se pueda copiar sin repetir todo Tengo una macro la cual me copia todo repitiendo los datos y el encabezado haber si alguien me puede echar un cable Solo puedo subir un archivo, pero los son iguales Gracias Factura1.xlsm

Buenas tardes a los integrantes de este prestigioso foro, en ocasión recurro a Uds, para que brinden su apoyo con la siguiente macro, a la cual quiero que en la barra de estado cuente la cantidad registros que se encuentran en la pestaña PLANILLA que empieza en la celda AZ8 hasta la AZ2507 y por cada archivo que van generando en PDF indique 1 de 19, 2 de 19, .... hasta llegar a 19 de 19, desde ya agradezco su apoyo y colaboración. Sub ElegirAccion() Dim i As Integer Dim intInicial As Integer Dim intFinal As Integer Dim intConsecutivo As Integer Dim srtTitulo As String Dim Ruta As String Dim nombre As String Dim pass As String, hoja As St…