Buenos días, Necesito poder mostrar una lista de datos en función de unos criterios elegidos. Estos criterios pueden ser elegidos a través de una lista o bien por un campo libre de busqueda. (Adjunto archivo) en la hoja3, estaría la consulta. los campos amarillos son los que el usuario tiene que poder rellenar según su necesidad de busqueda y no necesariamente se tienen que rellenar todos, es decir, puedo buscar unicamente por proveedor o familia de producto, o por 2, 3 ó todos los criterios de busqueda. Para complicarlo un poco más, he añadido un campo libre de busqueda por texto, p.e., por si no conocen ni el proveedor, la familia, etc... Muchas gracias de antemano, …

Buena tardes, soy nuevo espero y este bien redactada la duda: Tengo una base de datos donde tengo columnas con Titulos como por ejemplo RF, Año, Semana, dia, Equipo, Maquina Tiempo. Quisiera poder filtrar la informacion por semana y que me elimine o no ponga los tiempos que son mas cortos o mas chicos (Menores a 00:30 Miutos) no aparescan, pero si en el dia el equipo se reptite aunque sea menor a 00:30 minutos aparesca. lo quise hacer con autofiltro grabado pero elimina todo lo que se menor al tiemopor marcado. Adjunto archivo. Espero y me puedan ayudar. Reporte Semanal.zip

Buen dia espero me puedan ayudar mi problema es el siguente: tengo varios libros en un directorio y quisiera sumar la columna K con condiciones de la columan L y que asu vez por cada libro que sume lo ponga en una hoja que envio que se llama "Prueba" por ejemplo en la hoja viene el nombre de todos los libros quiero que la condicion sea lo que aparece de la celda B1 a M1 y que la suma del libro Abril_1951 aparesca en su fila y asi sucesivamente envio tambien la forma de como son los archivos ("Sep_2013") Prueba.zip

Hola a todos!! La situación: Un archivo es abierto por un usuario de la red, y yo a la vez intento abrirlo mediante código. En este caso excel muestra un mensaje que refiere a que "el archivo está siendo usado por otra persona...", y da opciones de abrirlo como de "solo lectura" y "notificar" cuando esté disponible. La duda !!: No se como evitar que excel muestre ese mensaje, y así poder controlarlo yo mediante código. Desde ya, gracias !!!

Hola a todos: Quisiera su ayuda respecto al tema arriba citado. Soy novato en VBA y de la escuela tengo esta tarea, ya lo he desarrollado con formulario directo del excel que traslada todos los registros a la respectiva tabla. Sin embargo el ejercicio me lo están pidiendo usando UserForm y la verdad no se como entrarle. He subido el archivo para muestra. De antemano muy agradecido por su ayuda!!! Gestión de Inventario de Mercaderías.zip

Buen día; Me podrían ayudar con este bucle, ya que me marca un error: Private Sub TB500_Change() If TB500.Text <> "" Then For a = 1 To 89 Step 8 Controls("UserForm1.TextBox" & a).Visible = True Next a Else For a = 1 To 89 Step 8 Controls("UserForm1.TextBox" & a).Visible = False Next a End If End Sub Saludos!

Hola, quisiera saber si me pueden colaborar con algun codigo VBA que copie el contenido de los datos mostrados en una Tabla dinamica y me cree una tabla nueva a partir de esos datos. gracias

Hola de nuevo, estoy trabajando en una macro para copiar filas y luego ordenarlas (para hacer una análisis estadísticos sobre estas) tengo definido el rango y ya poseo la macro para copiar y filtrara las filas como las deseo. Ahora deseo que , con la misma macro, pueda copiar y ordenar al mismo tiempo. La macro que poseo es ésta: Sub CopyForm() Application.ScreenUpdating = False 'Limpiar datos anteriores Sheets("ANF1").Range("A2:DA46").Cells.ClearContents Sheets("ANF2").Range("A2:DA46").Cells.ClearContents 'Copiamos las claves desde !claves 'Para la Forma 1 Worksheets("claves").Range("B2:CW2").Copy Worksheets("ANF1").Range("E47:CZ47").PasteSpecial xlPasteValu…

Buenos Dias, Ayer no obtuve respuestay probare hoy de nuevo, Gracias a la ayuda del forista y amigo "pajuma" tngo esta macro que me hace que en una lista de codigo de cuentas con su nombre de cta, me elimine unas cuentas que tengo en otra lista. Ahora bien, la macro funciona casi perfecta solo que me elimina el formato de las celdas de abajo y unas formulas ocultas que se encuentran en ellas (las celdas de abajo). En el archivo adjunto, la primera pestaña llamada "Gastos estimados por el áre (2" es el archivo antes de activar la macro, el la pestaña siguiente llamada "Gastos estimados por el área" es como me deja la macro el archivo (visualicen desde las fila 63 para a…

Estimados, En esta ocasión solicito ayuda para ver si se puede realizar una macro que, según el ejemplo adjunto, realice lo siguiente: Las columnas A / L son los meses del año. En las columnas AK, AM, AO, AQ, AS, AU, AW, AY, BA, BC se coloca la fecha en que a cada cliente se le emitirá una factura (una por mes). Cada vez que se coloque una fecha en las columnas correspondientes, la macro debe agregar automáticamente un número correlativo ascendente (comenzando desde el 1) en el mes indicado (columnas A / L) según vayan siendo ingresadas las fechas, o sea por orden de introducción o momento en que se lo va ingresando. Según el ejemplo adjunto: En el mes de m…

Hola, Necesito ayuda con un código y agradecería mucho si alguien me echara una mano. Necesito dos cosas y después de horas no hay manera de conseguirlo, soy un negado para la programacion. 1. Hacer que cada vez que el codigo de proveedor cambie inserte una fila entre los dos. 2. Hacer que cada vez que haya una fecha que sea anterior a la fecha de sistema se ponga en color rojo. A lo que habia llegado es a : Sub () Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Range("A2").Select Do Until IsEmpty(ActiveCell) If ( ? ) Target.EntireRow.Interior.ColorIndex = 42 End If ActiveCell.Offset(1, 0).Select Loop End Sub Cualquier ay…

Buen día, Necesito organizar una base de datos de municipios que está organizada : Municipio Subtotal Categorias de superficie 1 Categorías de superficie 2 Necesito que quede: Municipio Categoría superficie 1 Municipio Categoría superficie 2 Eliminando los subtotales. Adjunto envío una muestra de los datos. Espero puedan ayudarme. Gracias municipios.xls

hola, soy nuevo programando en vba y haciendo macros y me pidieron realizar una macro que pueda vincular una celda a un archivo pdf, y este a su vez a una pagina especifica del mismo archivo. celda--->archivo pdf--->pagina. gracias de antemano

Hola Me gustaría que mi macro inserte o elimine celdas según la cantidad de datos que tenga en los rangos seleccionados de la hoja "Pendientes"al momento de copiar los datos en la celda A43 de la ultima hoja. Por ejemplo si en mi hoja "pendientes" hay 25 datos en la columna del rango C5:C29 entonces al momento de copiar los datos a la ultima hoja de la celda A43 tengo espacio para 15 datos me inserte las 10 que falten y pegue los datos. De la misma manera si en la hoja "Pendientes" Hubiesen 5 datos y en mi ultima hoja hay espacio para 15 datos me elimine las 10 celdas que quedan en blanco. Cuadre de Compras y TransferenciasMocache Macro.xls

Buenas tardes, vuelvo a escribir para comentaros un problema. Tengo una petición pro REST API que me trae unos valores, y necesito que calcular el % de cada uno de estos valores, me estoy descargando el total y el valor de cada celda, asi que simplemente seria calcular el procentaje por cada una de las celdas, pero no consigo hacer funcionar el for, si uso formular de excel, me fallan en ocasiones, asi que estoy implementado el uso de una macro.Os pongo lo que estoy intentando y me falla: Sub calcular() Set rng = Sheets("AAA").Range("G11:G40") ' Rango donde se descargan los valores individuales Set percent_total = Sheets("AAA").Range("G10")' celd…

Hola a tod@s, No logro hacer una validación para varios TextBox, Tengo como 15 filas de controles y quiero aplicar la misma Validación a los controles que están alineados en columna, quiero ahorrarme el poner la misma validación para esos controles que pueden ser hasta 50 . Alguna idea? Envió archivo muestra con solo 3 lineas de controles y 3 columnas de controles y su validación correspondiente, si pones A o pones B o pones C Gracias de antemano por la ayuda recibida. Saludos. ValidarVariosTextBox_LBV.xlsm

Un saludo a todos alguien puede suministrar una macro que me copie todas las hojas de un libro menos una en especifico y las pegue en otro libro de excel??? no suministro ejemplo por no hay nada que yo pueda hacer,es solo cuestión que el codigo que se suministre pase las hojas de un libro menos una en particular a otro libro,encontre este codigo pero me da error Sub Copiahoja() 'Por.DAM ActiveWorkbook.Sheets("PLANTILLA").Copy Before:=Workbooks("libro1").Sheets(Workbooks("hoja1").Sheets.Count) End Sub y no se si hace lo que requiero la quise probar pero me da error gracias de antemano

Hola, buenos dias tengo un problema en un combobox, el cual lo utilizo para listar categorias y dependiendo de eso listo otra categoria, pero tengo un error cuando el valor de la primera categoria es null o vacio "". aqui el codigo: Private Sub cbo_Categoria_DropButtonClick() Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("BD") Dim i As Integer Dim n As Integer n = Application.WorksheetFunction.Match(Me.cbo_Categoria.Value, sh.Range("1:1"), 0) Me.cbo_Tipo.Clear For i = 2 To Application.WorksheetFunction.CountA(sh.Cells(1, n).EntireColumn) Me.cbo_Tipo.AddItem sh.Cells(i, n).Value Next i Tengo error en la linea n; porque el valor …

hola amigos, tengo la siguiente macro( es la primera que hago estoy en fase de pruebas) en la cual quiero que de un archivo se seleccione una columna y la pegue en otro archivo, hasta ese punto todo mas o menos fácil, pero hay veces que la columna tiene menos filas que la anterior y no se que debería de indicar para que cada vez que ejecute la macro, si tiene menos filas, borre las anteriores y siempre se quede la columna con las que se han copiado en ese momento. no se si me he explicado, adjunto la macro creada Sub pruebascorreos() ' ' pruebascorreos Macro ' PRUEBA COLUMNA ALBARAN ' ' Acceso directo: Ctrl+Mayús+P ' Windows("Libro1").Ac…

Buenas Tardes: Adjunto enlace para ver el archivo https://drive.google.com/file/d/14uWHGoaRKftjRRHZpbXoKHWpyMLdSOVC/view?usp=sharing Descargan el archivo para poder ejecutarlo Para iniciar solo deben dar click sobre la hoja llamada "INICIO", el pasa al USERFORM1 donde deco escoger un representante y un médico y dar click en "SIGUIENTE" es donde me aparece el error. Otra vez mas estoy atado por este error

Saludos amigos, necesito ayuda para sumar rangos variables en la celda superior de esa rango, de modo que sume hasta la última celda vacía. Les agradezco mucho la ayuda. Esto me gustaría hacerlo en VBA, como un código que me permita invocar esa fórmula como una función que pueda usar cada vez que la necesito. Mil gracias.

Hello everyone, my name is Maurizio And my Problem is this: 1) On Excel Sheet 2 In Column (C) I will insert dates 2) While in column (D) I will insert the corresponding day of the week belonging to that date. Now my question is this: Would There Be a Way To Make That Using the Function Written in VBA Of The Construct (Concatenate and Text) I go to insert everything in the single column (C8: C) of Sheet 1 using the empty line every time. That's all. Thank you in advance for all the help or suggestions you would like to give me about it. (P.S) I personally tried this and it works very well. The Problem is that I would like to extend it to the entire Co…

Estimada(o) Junto con saludar y deseando que todos esten bien junto a los suyos pasa a exponer mi consulta (sencilla quizas pero no logro dar con la solución) Tengo un libro (caso ejemplo en adjunto) con algunas hojas, quiero copiar desde la Hoja1, cada columna o rango completo de celdas; a la Hoja2, a partir de una celda que yo decida como en el ejemplo (me refiero a que no necesariamente la misma ubicación que tiene en Hoja1). Worksheets("Cubo").Columns(colu).Copy Destination:=Worksheets(Mid(cractual, 1, 18)).Columns(columnacr) este codigo me funciona pero me copia la columna completa, pero lo que esté en cractual en la misma columna (celdas a…

Saludos a todos los profes de esta gran materia , recurro a uds , si alguien puede ayudarme con el error que no me deja avanzar en mi proyecto . se trata de llenar un listBox y de acuerdo al registro seleccionado debe llenar los txt correspondientes , adjunto la programacion utilizada FSE2Nueva_facturacion.xlsm

Buenas tardes. Tengo el siguiente código en una macro: Sub Prueba() hora = Hour(Now) If hora <= 18 & Sheets("Hoja1").Range("G7") = 1 Then MsgBox ("haz esto") ElseIf hora > 18 & Sheets("Hoja1").Range("G7") = 2 Then MsgBox ("haz esto otro") Else MsgBox ("No se cumple") End If End Sub Sin embargo, siempre se me ejecuta el Else aunque a priori se cumplan las condiciones del If. Adjunto el excel de prueba. ¿Alguna idea del por qué no entra en el If ni en el ElseIf? Gracias Prueba.xlsm