Hola, Tengo la necesidad de combinar los registros de una matriz (las filas) creando una nueva matriz en otra hoja con el doble de campos (las columnas originales y las resultante de la combinación) de forma que cada registro original se combine con todos los subsiguientes de la matriz. Como ejemplo, si tengo una matriz de 3 campos y 5 registros como la que pongo acontinuación: C-1 C-2 C-3 A B C D E F G H I J K L M N O Necesito una fórmula de excel …

Buenas noches. Quería preguntar si es posible incluir un buscador dentro de un dashboard teniendo en cuenta que solo quiero incluir algunos parámetros (nombre, DNI, Categoría y otro más, hasta un total de 4) de todos los que tiene la tabla dinámica situada en otra hoja. ¿Tengo que exportar todos los datos al propio dashboard? Mi idea es que todo los datos se mantengan en la una hoja y que en el dashboard (otra hoja) tan solo aparezcan los que cumplan con los requisitos que se incluyen en el propio buscador.......Es la primera pregunta que lanzo y quiero pedir disculpas porque he visto que hay que adjuntar archivo, pero tiene datos personales y por la protección de datos e…

buenos días quisiera su ayuda para poder realizar un formato condicional utilizando VBA tengo una lista de códigos en la columna P y una tabla de registros donde quisiera que los registros tuvieran una fuente azul si el código aparece en la lista gracias por su ayuda FORMATO PARA CODIGOS.xlsx

Buen diaSolicitando su ayudaComo puedo listar carpetas en comboboxEn el primer combobox1 aparezcan listadas dos carpetas (ENTRADAS Y SALIDAS)Luego al seleccionar cualquiera de las dos anteriores aparezcan listadas las subcarpetas en el combobox2Al seleccionar cualquier subcarpeta del combobox2 aparezcan en el listbox1 los archivos pdf que contiene la carpeta seleccionada.Más o menos así espero su ayudagracias ---------

F22.xlsm Buenas noches un fraternal saludo. Tengo el siguiente código del que necesito encontrar la forma de que no me dé un resultado indeseado que obtengo. Sub MFD() ' ' ' P3FD1 Macro Dim fin As Long, final As Long Dim i As Long, j As Long, n As Long With Sheets("FD") ' With ThisWorkbook.Worksheets("Datos") fin = Application.CountA(.Range("A:A")) final = Application.CountA(.Range("1:1")) For i = 1 To final - 1 scadena = vbNullString n = .Cells(1, i + 1) For j = 1 To fin If .Cells(j, i) = n Then .Cells(j, i).Interior.Color = vbBlack If .Cells(j, i) = n Then .Cells(j, i).Font.Color = vbRed scadena = Trim(scadena & " " …

buenas adjunto excel con informacion modelo obviamente el archivo original es mucho mas largo pero es la misma logica..Lo que necesito el ejemplo lo coloque en la segunda solapa... basicamente seria que con alguna macro me detecte todo lo que se encuentra dentro de "Summary" y me lo lleve a otra hoja o que quede todo filtrado sino en la hoja original .La opcion ideal esta en la segunda sheet pero si es imposible... con que quede filtrado en la inicial estaria bien cosa de copiar y pegar... testt.xlsx

Hola comunidad, una consulta : alguno sabrá porque ahora no veo mis macros en Excel 2010. Desaparecieron! Gracias Saludos Wfredo El GreensHot no subió, es muy pesado

Buenos días,Por favor necesito vuestro apoyo para saber si es factible realizar lo que indico a continuación. Yo cNecesito crear una página principal, donde aparecerán 24 opciones y cada opción tendrá un selector y un contador con un número para saber si esa opción debe repetirse o no (es decir, ese número indicará el número de veces que esa opción debe aparecer, por defecto será un 0). Por defecto, todos los selectores aparecerán desmarcados y el número con 0. Cuando un usuario clique en un selector el número aumentará a 1 y después cuando aumentemos o disminuyamos el contador irá aumentando o disminuyendo el número. Si disminuimos a 0, el selector se desmarcará au…

Buenos días, Amigos del foro quisiera solicitarles una pequeña ayuda, estoy intentado crear 3 condiciones en un botón de un formulario con el cual pretendo ó busco: 1. No se permita registrar en vacío un textbox. 2. Se evalue el formato si el valor ingresado en el textbox1 se encuentra en formato fecha. 3. Si el valor ingresado en textbox1 es mayor a la fecha determinada no permita el registro. 4. Se¿i el valor del texbox1 es menor a la fecha determinada cargar el valor en la celda indicada. El formulario cuenta con 3 textboxs y 3 botones para ejecutar las 4 acciones (mencionadas arriba), agradezco la ayuda y/o correcciones que me puedan brin…

Sub importarEnDesarrollo() Dim wb As Workbook Set wb = ThisWorkbook Dim ws_main As Worksheet Set ws_main = wb.Worksheets("Main") Dim directorio As String 'directorio = ws_main.range("path").Value directorio = "C:\Users" Dim sCadena As Variant Dim nFichero As String Dim i As Integer i = 0 Open directorio For Input As nFichero Do While Not EOF(nFichero) Line Input #nFichero, datos i = i + 1 sCadena = datos With Sheets(1) .Cells(i, 1) = Trim(Mid(sCadena, 1, 10)) .Cells(i, 1) = Trim(Mid(sCadena, 12, 4)) .Cells(i, 1) = …

Buenas tardes. Necesito un mano ayuda. Estoy creando un pequeño gestor de inventario, y al momento de ingresar entradas o la cantidad del producto lo hago por medio de un formulario (como se muestra en la imagen). ¿Cuál es su funcionalidad? En el combobox se filtran solo las hojas donde se guardan los productos, precios, cantidad de entrada y salida etc. el cual al seleccionar la Hoja debe de posicionarse en la celda que contiene el nombre y la cantidad de entrada y hacerlo visible en los textbox del formulario y poder recorrer las filas de las columnas de dichos campos por medio del botón next. el botón guardar debe solo reconocer el…

Buenas tardes, Estoy elaborando una base de datos para llevar un seguimiento de los juegos que tengo comprados en las diversas plataformas. Para ello, he elaborado un excel donde tengo una tabla de registro y una de búsqueda en la primera hoja. Y la base de datos propiamente dicha en la otra hoja. En la primera hoja contamos con un apartado de registro con dos celdas la del nombre del juego y la de la plataforma. Por otro lado, tenemos el apartado de búsqueda donde tenemos las celdas: nombre del juego, ¿Lo tengo? y plataforma/as. En la segunda hoja tenemos un total de 11 tablas (cada una haciendo referencia a una plataforma de juego/tienda). Mi problema …

Estoy trabajando un archivo de biblioteca para el cual ya me han ayudado anteriormente con un ListBox y con un formulario para Mantenimiento de Listas, lo que me ha servido muchísimo y de lo cual estoy muy agradecido de los miembros Antoni y JSDJSD, en esta oportunidad he agregado al objeto "ThisWorbook" las instrucciones "Application.Visible = False" y "FRMPanel.Show" para que al usuario le muestre solo el formulario "Panel" desde donde podrá realizar la gestión de la biblioteca, ocultando la aplicación Excel a su vista. La contraseña del proyecto es "biblio" Además he agregado al formulario un botón de comando para hacer visible Excel, el que al ejecutarlo y,…

Buenas tardes espero se encuentren muy bien al igual que toda su familia, quisiera saber si alguien tiene idea de como escribir en una celda una función que tenga como referencia una tabla (pero de nombre variable). Adjunto un ejemplo corto de como sería con la función IF en una celda. (Realmente es para una formula más compleja y una macros mas extensa pero presento un problema como este al querer referenciar tablas que se crean al clonar una hoja de trabajo). Cabe aclarar que la tabla existe y tiene el nombre de las dos ultimas letras de la hoja trabajo. He intentado ya .Formula .FormulaLocal .FormulaR1C1 y nada me funciona. ¿Que podría hacer? Ag…

Hola a todos amigos, tengo este código que me trae la información de un libro, sin embargo, ando intentando importar varios archivos a la vez pero ya me bloquié, este es el código que ocupo para leer el libro, espero alguien me puede dar una idea, saludos Application.ScreenUpdating = False Dim wbLibroOrigen As Workbook Dim wsHojaOrigen As Worksheet Dim wbLibroDestino As Workbook Dim wsHojaDestino As Worksheet Dim ruta As String ruta = ActiveWorkbook.Path & "\" & "Lista_Negra_SAT.csv" 'Datos destino Set wbLibroDestino = Workbooks(ThisWorkbook.Name) Set wsHojaDestino = wbLibroDestino.Worksheets("Hoja1") 'Datos origen Set wbLibroOrigen = Workbooks.Open(ruta) S…

A ver, he leído un montón y lo he intentado de unas pocas formas... pero hay algo que no logro hacer. Quiero hacer una macro que extraiga datos de una web. Hasta ahí todo correcto. Consigo extraer los datos que necesito, excepto 1 de ellos. Me explico... https://www.futwiz.com/en//fifa23/player/emmanuel-dennis/16645 Si os vais a esta página, veréis un jugador de futbol. He sido capaz de extraer los datos del jugador, tal como nombre, equipo, liga, nacionalidad, precio PC, precio PS, Rango de precios, etc y que los escriba en diferentes columnas. Todo esto funciona perfecto, un poco lento, pero funciona. Lo que me falta es que extraiga el tipo de carta q…

Tengo un archivo Excel habilitado para macros en el cual tengo una hoja en la cual he definido 6 listas, a las que necesito ir agregando Items, he creado un formulario que contiene 6 TextBox y cada uno de ellos con un Botón de Comando para Ingresar el dato en la correspondiente tabla dinámica ubicada en la hoja "Listas" y un Botón de Comando para hacer una limpieza del TextBox. Estoy recién iniciándome en la programación de macros y les agradecería muchísimo me pudiesen ayudar con un código para realizar esta tarea. En otra oportunidad los miembros JSDJSD y Antoni me brindaron una valiosísima ayuda en un ListBox con la que pude avanzar, de la cual estoy muy agrade…

Hola a todos: Días atrás alguien publico una consulta con este título, más o menos, lo cierto es que esta consulta ha sido eliminada. No obstante y dado que he desarrollado una solución, la subo por si es de interés para alguien. La macro permite seleccionar cualquier número de columnas en cualquier orden y copiarlas en la misma hoja o en una nueva. Como curiosidad, decir que genera el código VBA necesario para realizar la operación en un textbox, se puede copiar dicho código, o incluso, generar la macro en el Módulo1, por si se quiere utilizar la macro de forma regular sin tener que volver a escoger las columnas. Abrir el adjunto, y como siempre…

Buenas tardes, de abte manos muchas gracias a la comunidad por la ayuda quisiera seleccionar la ultima celda con datos y copiarla para posteriormente pegarla en una hoja nueva, este es mi codigo Sub Copiar_Valores_Contabilidad() Sheets("Extraer_Rutas").Select For i = 2 To Range("A" & Rows.Count).End(xlUp).Row ActiveSheet.Range("A" & i).Select Selection.Copy Next Sheets("Rutas_Fs").Select ActiveSheet.Range("A2").Select ActiveSheet.Paste End Sub …

Buenos días a los miembros de este prestigioso foro, recurro a uds, para que brinde su apoyo con una macro, el cual me permita borrar los valores que contengan 0.00 en las celdas c y d. A la espera de su ayuda, quedo agradecido por su colaboracón. MACRO PARA ELIMINAR.xlsx

Buenas tardes, me pueden ayudar no me pone el Si y la Hora en el codigo ELECCIONES1.xlsm

Hola comparto con ustedes una archivo de excel con una hoja, que tiene botones flotantes. Al iniciar la hoja los botones se pondran de color rojo (significa que no han sido usados) una vez se de click sobre uno, en la secuencia el siguiente se pondra en color amarillo (significa que es el que sigue de usarse), el anterior se pondra de color verde (significa que se ha utilizado ya y si se da click en el mostrara un mensaje diciendo que no es posible repetir la accion de este boton, ya que ha sido utilizado), despues de usar el boton amarillo, este se pondra de color verde y el que sigue cambiara a amarillo y asi sucesivamente. Donde de un click con el raton los botones le …

Buenas noches tengo esta cade de texto \\000.000.000\recepcion\A. MENARINI LATIN AMERICA, S.L.U. - SUCURSAL COLOMBIA\900932340.ME10110.pdf pero quiero extrer solo esta parte 900932340.ME10110.pdf quisiera por favor saber que codigo me sirve para extraer esa parte o bien extraer una parte deseada una idea de esto como yo lo hago normalmente en ecxel es que utilizo la funcion buscar ("/") y pues digamos que me arroja 3 luego vuelvo a utilizar la funcion, pero esta ves en ves de numero inical 1 pongo 4 para que omita el primer "/"

Hola buenas tardes a todos, espero puedan ayudarme, tal vez sea algo muy sencillo, pero llevo ya varios días atascado con esto... Tengo varios archivos(25) con datos de ventas de distintas sucursales, con ayuda de power query y una macro he logrado reducir todos los datos en una estructura que espero convertir en mi base de datos, para lograr esto, me falta rellenar los espacios en blanco de la fecha y el numero de tienda. Esto, sin macro lo hago marcando con ceros el final de los valores en las columnas de fecha(que es muy facil ya que es la misma para todos) y numero de tienda, regresando al inicio, poniendo la celda activa en el valor a rellenar luego shift+tecla …

Buenas tardes comunidad, Actualmente tengo este problema que he estado desarrollado en un formulario desde varios aporte que he visto, pero que no he podido solucionar este caso, necesito filtrar la informacion de dos datos especificos que se encuentran en otro Libro excel y traer uno, Ejemplo. Código de despacho - Descripción - Lote 001 Zanahorias 9121 001 Manzana 9121 002 Peras 9121 003 Cebollas 8090 003 …