Buenas tardes , Estoy obteniendo datos sin duplicados de una columna de tabla para después filtrar otra tabla En Function ObtenerDatosTabla Se utiliza un objeto Scripting.Dictionary para almacenar los valores únicos. Antes de agregar un valor al diccionario, se verifica si ya existe en él, evitando así duplicados. Al final de la función, se devuelve un Variant con los valores únicos almacenados en el diccionario utilizando la propiedad .keys del diccionario. Los datos obtenidos los paso como argumento a Sub FiltrarDatosTabla, pero es ahí donde no me funciona, solamente me filtra por el ultimo valor Aguardo sus comentarios Muchas graci…

Hola que tal? Os cuento, Tengo una duda haber si me podeis echar un cable, en el formulario que os envio, tengo 2 columnas, una con clientes y otra con artículos. (Hoja 1) Al activar la macro se cargará un formulario donde se podrá añadir un nuevo Cliente (Se añadirá un artículo en la columna A autonumerico) y 2 combobox donde se podrán cargar los datos de las 2 columnas. Ahora aquí viene la cuestión, mi idea es copiar en la hoja 2 los clientes en función del valor de la combobox 1 Dejo ejemplos en la hoja 2 del archivo. Al pulsar "guardarcliente" se añadirá el nombre seleccionado en la combobox 2 en la misma fila de la combobox 1 La hoja 3 por si alguien lo mira h…

Hola a todos, estoy nuevamente trabada en algo que pareciera facil pero me ha estado complicando la vida absoluta... tengo el siguiente codigo, que lo que DEBERIA HACER, es por cada celda que este vacia "celda.Offset(0, 36)= empty" me ejecute = hD.Cells(ufo, 36) = celda.Offset(0, 4) + celda.Offset(0, 5). Lo unico que LOGRE es que me haga esa funcion en la ultima fila... no se como hacerlo para cada celda vacia ?. Porque la idea es que la hoja se va a ir cargando con nuevos valores, y las celdas que estan vacias significa que aun no hice el proceso fechaJuliana...Perdonen mi igorancia total pero probe varias formulas. y la unica que me ha funcionado parcial…

Buenas tardes.Alguien me pueda ayudar a indicarme el código para desplegar la ventana de adjuntar elemento de outlook. No archivo adjunto, sino correo adjunto.anexo una PDF de la ventana que quiero desplegar para el usuario. la ruta "por decirlo así­" es: cuando estas en una nuevo correo en la ficha archivo, esta el grupo incluir, luego adjuntar elemento y por ultimo elemento de outlook.de antemano muchas gracias.excelente foro

Buenos dias, necesito para poder ver en portatil, el libro de facturacion, cambiar a resolucionde pantalla 1024x600.

lo que quiero que me ayuden a hacer es que deacuerdo al archivo de que mando, del contenido de la celda A2 (hoja 1) me busque el contenido de la celda A2 (hoja 2) y el resultado lo ponga en la celda C2 (hoja 1) y lo mismo con la celda B2(hoja 1), eso digamos es facil con un simple =buscarv, pero al revisar el "titulo" donde dice TOTAL (si lo hago con el buscarv) solo me va a poner el primer argumento que busca esdecir me va a poner "5" pero si yo tengo "15" como puedo hacer yo para que me ponga el total de las dos celdas tanto el total de la celdas como el "numero" espero y me entiendan, pero es que no se como explicalo bien dejo el archivo de antemano muchas gracias eje…

Hola Amigos, como estan. Nuevamente solicitando su ayuda. necesito su ayuda para resolver un problema que no puedo resolver, tengo un formulario es del userform2 donde tengo un listbox que me jala la información de la hoja6(stock standby) y quiero que mediante el textbox de descripción me filtre en el listbox y como pueden ver cuando selecciono un dato del listbox me pasa en el textbox de la descripción, agradecere bastante ayudarme con este problema de como filtrar de una hoja distinta en el listbox adjunto archivo, gracias. Control.rar

Hola buenos días tengo un archivo el necesito que me valide los datos cuando copio desde otro archivo pero no lo esta haciendo me explico en la hoja del archivo original tengo el siguiente código, que me valida que no se inserten letras en la columna A y H y que no se inserten números en las columnas B;C,D,E,F el código me funciona cuando dígito pero si pego desde otro archivo por ejemplo letras al campo cedula no me funciona, me podrías ayudar que me hace falta por favor o si quieres te mando el archivo al correo, muchas gracias por tu ayuda. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A, H:H")) Is Nothing Then For Each cel …

Buen dia, espero se encuentren bien, el motivo de mi petición es para ver si es posible ayudarme con lo siguiente, Hice una macro para automatizar la creacion de un archivo de trabajo, que al final deberia quedar como el archivo muestra que anexo, sin embargo no logro crear el data list en la sheet2 de acuerdo a la cantidad de preguntas ingresada, asi mismo tampoco puedo formular el count de acuerdo a la cantidad de preguntas ingresadas. Les anexo el codigo y el ejemplo de como debe quedar, la cantidad de preguntas, dias y metodo de evaluacion son diferentes Espero haberme explicado :/ Sub Iniciar() Dim j As Integer Dim dia As String Dim Preguntas As Integer…

Buenas tardes, Tengo este fragmento de código en el libro, de manera que cada vez que introduzco un valor en una celda de la columna B, me devuelve la fecha en la celda adyacente de la columna C. Me gustaría repetir la misma operación en el mismo libro, de manera que cuando se introduce un valor en las celdas de las columnas E y H, también devuelva las fechas en las celdas adyacentes de las columnas F e I. ¿Alguien sabría indicarme cómo repetir la misma operación? Private Sub Worksheet_Change(ByVal Target As Range) tiempo = Date Set isect = Application.Intersect(Target, Range("B:B")) If Not isect Is Nothing Then If isect.Va…

Hola de nuevo, He buscado en foro pero no encuentro Gracias a la ayuda de @JasallBcn pude avanzar en lo que es mi primer formulario que he ido realizando de manera autodidacta a través de ejemplos encontrados en el foro y tutoriales diversos. He ido creando lo que será el formulario final en otro archivo que no he subido por tema de datos....pero ahora me encuentro con un nuevo problema que no consigo dar con ello, intento explicar de forma resumida: Se trata de los combobox, si doy a grabar sin más de primeras pues me realiza la acción dejando las celdas sin datos. Bien, al dar siguiente pues veo que si elijo un item de alguno de los combos y dejo el rest…

Buenas, Tengo un problema con una tabla y no le encuentro la vuelta...tengo una tabla con formulas que se accionan depende los datos cargados... puede ser 1 o varios depende el momento del dia...hice un boton macro, lo que necesito que haga es copiar de esa tabla unicamemte las filas que tengan datos (ojo recordemos que algunas de esas celdas tienen formulas que se activan con un dato inicial, como una factura, osea pones el articulo y te da el precio unitario y total) hacia otra planilla. Cuando lo haga or segunda vez necesito que copie los datos abajo del ultimo datos ya copiado para que no se superponga... Muchas Gracias

hola a todos, tengo una tabla de excel con datos y utilice la funcion si() para obtener una validacion, la resultantes son "renovar" o pdte" y aqui es a donde requiero de su aporte para que al cumplirse la condicion de "renovar" me envie un correo de aviso indicandome que requiero renovar al cliente en cuestion. a la mejor es un problema muy simple para ustedes, pero un servidor tiene solo el conocimiento basico de esta herramienta. muchas gracias por su apoyo, saludos. eliel. CLIENTES TOÑO-GLORIS.xls

he intentado de varias formas darle solución (con mi limitado conocimiento) y encuentro varias trabas que me evitan llegar a lograrlo. podrían apoyarme. gracias.

Hola, necesito ayuda, ya que mi nivel de excel todavia es un poco bajo. Tengo un documento con varias hojas, sobre el control anual de gastos/ingresos. Tengo varias hojas, la primera, es la anual con todos los meses, y luego una hoja por mes donde escribo los datos y la ultima una B.D donde están todas los datos de cada mes con su respectivo año. En 1a hoja (AÑO ACTUAL) en la casilla A2 tengo una lista desplegable con los años, me gustaría que al escribir los datos en las hojas de cada mes y con la celda A2 del año correspondiente me salieran en la 1a hoja los datos de todo el año guardados en la hoja (B.D.), ya que ahora mismo se me borra al escribir algo por encima y…

tengo unas macros creadas depende de la info que tengo corro una u otra. pero quiero que si por error preciono la que no necesitaba, la macro no corra gracias por la ayuda Tavo09

Hola, Tengo el siguiente problema que no podido resolver. El inconveniente es cuando se crea una nueva hoja como copia de otra existente y al tratar de acceder a la nueva y copiar datos, esto no es posible. Los datos que intento escribir los escribe a la anterior hoja nunca en la nueva. La siguiente es una muestra del programa. Alguien me puede ayudar, muchas gracias de antemano. Sub prueba() Dim nhoja, pos As String Dim hojanueva As Worksheet Dim nfila As Integer nhoja = "prueba" Worksheets("FORMATO").Activate Worksheets("FORMATO").Copy After:=Worksheets(Sheets.Count) ' Worksheets("FORMATO").Copy After:=Worksheets(nhoja) NO funciona Set hoja…

Buenas Tardes, Espero esten de lo mejor, estoy tratando de utilizar macros en un UserForm, pero este al tratar de ejecutarlo, no me funciona en el Boton de Userform, pero si me funciona en el botón que tengo en la hoja Excel. El Botón " Generar Asignación" es el que no me funciona en el Userform Adjunto Archivo. DISTRI.xlsm

Estoy construyendo una reporte("hoja Filtrado"), donde necesito ciertos datos que se encuentras en la hoja "BD", para ello hice un form "fmrgenreporte" donde elije las fechas, la idea es que automáticamente sume algunos registros que se encuentran entre las 2 fechas, quizás hacer algunos acumuladores o algo así. Tengo otra duda también aprovechando la consulta, cuando hago los registros, se hacen a través de un form "frmsolicitud" que pega los datos en la hoja "BD" pero ademas NECESITO que se guarde en un libro aparte, señalando la ruta donde se guarda con el nombre del "conductor", y si ya existe un libro con ese nombre que cree una pestaña nueva con nombre "Folio y fec…

Hola Necesito modificar mi macro de la hoja "Evaluación de Doble Cierre" en la cuales tengo listas despegables dependientes en las 4 celdas a continuacion en la cual: E6: Proveedor E8: Envase E9: Espesor Cuerpo E10: Espesor Tapa Mi macro pone en blaco las celdas E8,E9,E10 cuando escojo un proveedor y puedo poner su envase y espesores de cada uno, todo ok hasta ahí, pero, si ya tengo elegido un proveedor y elijo otro envase los valores de espesor de cuerpo y espesor de tapa no cambian, lo cual me puede causar un error en cualquier momento, por lo cual es necesariamente urgente resolver este problema, se podria modificar mi macro para solucionar este problema. Macr…

Buenas tardes, estuve alejado por bastante tiempo del foro por motivos personales y laborales. El archivo que adjunto funcionaba muy bien en mi sistema de 32 b, ahora que necesito usarlo no funciona en 64 bits. Agradeceré se sirvan darle una revisada. Gracias anticipadas Explorador con listview.xlsm

Buenas tardes desde México Ayuda Excel. primero que nada un FELIZ AÑO y los mejores deseos de Paz y Prosperidad a todos. En esta ocacion tengo el siguiente problema, el cual no se como resolverlo, se trata de realizar un buscador en la pestaña entradas, este buscador tiene que buscar todos los registros que aparescan con el mismo numero de pedido, como se puede apreciar en el userform4 y en el area de resultados mostrar toda la informacion correspondiente, he tratado de realizar el codigo pero no encuentro la manera de que esto funcione ,el formulario debe ser similar al que aparece en la pestaña base modelos al presionar el boton consultar pero desconozco como se pued…

Hola, En un libro, en una hoja, tengo información muy extensa, de todo tipo, de muchas ciudades pero tengo que solicitar un nuevo dato a cada una de ellas y para ello necesito crear una hoja personalizada con su nombre donde incluiré la información relevante que necesitan para poderme dar ese dato que les reclamo. Estoy utilizando una tabla dinámica. El campo ciudad lo he puesto en el campo filtro y utilizo esta macro: Sub InsHoja() Dim MyName As String Sheets("BaseDatos").Select MyName = Range("I10").Value Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Select Sheets(Sheets.Count).Name = MyName End Sub[[/CODE] Funciona muy bien pero claro pri…

Hola a todos. Mi nombre es Maurizio y mi problema es este. En una hoja de Excel, creo utilizando una serie de hallazgos producidos según el día y el mes insertados en la celda (B1: B2) y hasta ahora todo parece estar bien. Pero ahora me gustaría que las dos coordenadas que se entrelazan entre ellas en la fila y la columna que van desde la celda (B7: M37) una vez identifiquen la celda de color de color (rojo) El número que se inserta en esa celda en particular podría adherirse a la celda (B4) En tu opinión, es posible hacer todo esto! Gracias como siempre a partir de ahora por toda la ayuda que me puedan brindar; Saludos desde A.Maurizio ######################…

Hola que tal, Tengo un archivo donde quiero generar un reporte en el cual me haga busquedas y me mande partes de las hojas donde tengo esa informacion, en mi segunda hoja tengo todas las OC´s, en la siguiente que se llama exp. tengo el detalle de las OC´s y en la ultima tengo tambien informacion de las OC´s, por lo tanto quiero en la primer hoja con un filtro buscar la OC especifica y que me genere un reporte con la informacion de las hojas restantes.