xinortiz

Gracias Janlui realmente quedo tal como queria, solo quisiera que me expliques algunas cosas por favor: 1* Asumo que en esta parte es donde puedo modificar para que tome todos los valores, hasta el ulitmo registro ( asumiendo que en la HOJA PEDIDO seguirá acumulándose) Sheets("pedido").Select Dim matriz As Variant matriz = [a2:q1000] Sheets("c1").Select Range("a2:q100").ClearContents 2* Para poder ejecutar la macro desde un formulario, es posible ello? quedo muy agradecido por tu ayuda

Gracias Gerson Pineda si habia pensado en ello, pero tenia que hacerlo igual con macro para que me generara esas tablas dinamicas, gracias por tu apoyo, un abrazo

Buenos tardes estimados acudo a ustedes en esta ocasión para que me ayuden en lo siguiente: tengo un listado de productos(cada producto tiene su precio de lista y su Nombre cuenta de gastos) Lo que en un inicio realiza es generar pedidos (eligiendo tienda, cuenta de gastos), luego selecciona producto de la lista y lo agrega a la HOJA PEDIDO Aquí viene mi solicitud: Deseo que toda la lista de la HOJA PEDIDO, se consolide por fila y fecha(fecha, mes, año) , totalizando Cantidad y Total, tal como se ve en el ejemplo de la hoja C1 y que también se consolide por fecha (año, mes),Nombre cuenta de gastos y TOTAL, tal como se ve en el ejemplo de la hoja C2 De antemano muchas gracias por la ayuda PRUEBA_CONSOLOCIDACION.xlsm

Hola pinoji, Tambien estoy aprendiendo y la ayuda que te dí, creeme lo aprendi aqui si tus primeras dudas ya se solucionaron, seria bueno que lo des por concluido y solucionado, y abras otro tema con tus otras consultas. eso ayuda a que otro foristas encuentren soluciones a sus casos y tambien ayuda a que otro foristas expertos nos puedan ayudar a resolver lo que necesitemos.. estamos en contacto

Hola, trate de solucionarlo, espero que sea lo que necesitas pero no puedo subir archivos, ojala lo puedas descargar https://drive.google.com/file/d/1IJ0GDb5bRNRoFbMmWhYN9oYVaSVD3lqF/view?usp=sharing

Hola, trate de solucionarlo, espero que sea lo que necesitas pero no puedo subir archivos, puedes enviar un correo para enviarte

Muchas Gracias Antoni

Esa sentencia es la que la valida si la contraseña que ingresaste corresponde al usuario que ingresaste Fíjate si en la Hoja "Auxiliar" la columna después del nombre de usuario (DatoEncontrado) esta la contraseña que has ingresado

Una consulta, como diferencias el codigo de cada SKU (veo que hay el mismo SKU con diferente Codigo) por ejemplo "Tradicional" tiene los codigos "PA001,PA002,PA003"

Buenos días estimados amigos necesito de su apoyo incondicional para este caso. resulta que tengo una hoja con 900 columnas aprox. De esa hoja quiero eliminar todas las columnas (a partir de la columna 3) que en la fila 2 no contenga el texto "Chiclayo" lo intento hacer de esta manera: pero no resulta Dim COL As Integer COL = 2 Do While Cells(3, COL) <> "" If Cells(2, COL).Value <> "*" & Chiclayo & "*" Then Cells(3, COL).EntireRow.Delete COL = COL - 1 End If COL = COL + 1 Loop Espero me puedan ayudar Muchas gracias de Antemano * No puedo subir archivo de prueba

Hola Mauricio_ODN quedó mas que excelente... lo voy a probar con otras tablas... muchísimas gracias

Buenas tardes Acudo nuevamente a ustedes esperando puedan ayudarme a realizar lo siguiente He generado una tabla dinámica desde una base de datos, la cual tiene el producto, suma de costo y la otra suma de costo2 (columna que es el porcentaje total en) lo que deseo es que filtre porcentajes de la columna costo2 (los porcentajes) según los valores A : <= 80% B : >80% y <=90% C : >90% lo intentado hacer pero me sale error al momento de ejecutar prueba-filtro.xlsm

Y si lo que estas necesitando es hacer un buscador, te dejo una alternativa. no puedo s ubir archivo, ojala puedas visualizar la macro 1.- Private Sub CuadroBusqueda_Change() Application.ScreenUpdating = False ListBoxLista.Clear ListBoxLista.ColumnWidths = "100;25;25;25;25;25;25;20;20;20" For X = 4 To Hoja2.Range("B" & Rows.Count).End(xlUp).Row If CuadroBusqueda = "" Then LLENADO_DE_LISTA: Exit Sub If Hoja2.Range("B" & X) Like "*" & UCase(CuadroBusqueda) & "*" Then ListBoxLista.AddItem Hoja2.Range("B" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 1) = Hoja2.Range("C" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 2) = Hoja2.Range("D" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 3) = Hoja2.Range("E" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 4) = Hoja2.Range("F" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 5) = Hoja2.Range("G" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 6) = Hoja2.Range("H" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 7) = Hoja2.Range("I" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 8) = Hoja2.Range("J" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 9) = Hoja2.Range("K" & X) End If Next X Application.ScreenUpdating = True End Sub 2.- Sub LLENADO_DE_LISTA() Application.ScreenUpdating = False ThisWorkbook.Activate For X = 4 To Hoja2.Range("B" & Rows.Count).End(xlUp).Row ListBoxLista.AddItem Hoja2.Range("B" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 1) = Hoja2.Range("C" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 2) = Hoja2.Range("D" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 3) = Hoja2.Range("E" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 4) = Hoja2.Range("F" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 5) = Hoja2.Range("G" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 6) = Hoja2.Range("H" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 7) = Hoja2.Range("I" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 8) = Hoja2.Range("J" & X) ListBoxLista.List(ListBoxLista.ListCount - 1, 9) = Hoja2.Range("K" & X) Next X Application.ScreenUpdating = True End Sub 3.- Private Sub UserForm_Initialize() ThisWorkbook.Activate With ListBoxLista .ColumnCount = 10 '.ColumnCount = -1 '.ColumnHeads = True .ColumnWidths = "100;25;25;25;25;25;25;20;20;20" End With Call LLENADO_DE_LISTA End Sub

buenas noches a lo que se refiere Antoni es que el control "CuadroBusqueda" es un textbox y ese control no tiene la propiedad .List en cambio el control "ListaResultados" si es un listbox y ese control si tiene la propiedad .List como puedes ver en la imagen