Buenas tardes comunidad, necesito ayuda con un trabajo en Excel con visual Basic, tengo un formulario con un listbox que muestra los datos que están dentro de una tabla en una hoja de excel y también un texbox que se llena mediante un pequeño calendario, la ayuda que necesito es que cuando se llene el texbox con una fecha el listbox muestre todos los registros de esa fecha

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

Buenas noches, estuve aprendiendo mucho por los aportes que hizo [uSER=42617]@tierra_pampa[/uSER] y la verdad, lo recomiendo muchisimo. Tengo un archivo que tiene los filtros avanzados con macros que cuando quiero elegir una de las listas desplegables, me filtra lo que quiero ver. Hasta voy perfecto. He aqui un problema. Cuando llego en la parte de Indicadores que tienen los numeros con punto (1.1, 1.2, 1.3), eligo cualquier numero, por ejemplo 1.2, de la lista desplegable, no me toma el punto porque en el filtro avanzado, sale una coma. De ahí resolví cambiando la configuración del Excel pero si tengo que mandar este archivo a una persona, le va a saltar con coma y …

Hola, Ante todo felices fiestas y año nuevo, Siguiendo con mi proyecto vuelvo a encallarme, necesito que una de las celdas (G3) de mi hoja1 cambie la numeración cada vez que guardo con un botón que he creado, ahora tengo esto: Hoja1.Range("G3").Value = Hoja1.Range("G3").Value + 1 Hace lo que quiero pero mi intención es poner letras antes de la numeración por lo que necesito que en lugar de ser consecutivo 1,2,3,4 etc. Sea FS1, FS2, FS3, FS4, etc.. una ayudita por favor

Buenas tardes, ya me estoy rompiendo la cabeza con esta macro, al principio me funcionaba, lo que debe hacer es copiar las celdas sombreadas y pasarlas a la hoja Report pero comenzo aparecer el Error '1004' en tiempo de ejecución, por fvor si alguien supiera a que se debe se lo agradezco anticipadamente saludos Monthly report.xls

Hola!! En este archivo con macros he intentado añadir en la celda que esta en color amarillo llamada autonomia que debajo tiene un filtro, 4 busquedas mas, las que son Ruta 1, Ruta 2, Ruta Centro y Ruta Santa Cruz, y eliminar el No, en total serian 6, en las que yo pueda desplegar y seleccionar la que quiera, lo he hecho de todas maneras y me da error, no se me actualiza. Adjunto el archivo. Búsqueda de usuarios .xlsm

Hola Aprovecho para saludar y presentarme en este mi primer post. Llevo siguiéndoos mucho tiempo y quiero agradeceros toda la ayuda que me váis prestando y todo lo que he aprendido de vuestros conocimientos. Por primera vez, después de leer y leer no encuentro la solución a mi problema. ¿Me podríais ayudar con lo siguiente? Tengo en una hoja en la que quiero que se ejecute el siguiente código Private Sub Worksheet_Change(ByVal Target As Range) 'Elijo el rango de una columna para que siempre que se introduzca un valor a una celda vaya a la celda de la misma fila y de la columna A If Intersect([F2:F1000], Target) Then 'Pongo la instrucción que quiero se ejecute…

Hola compañeros, Me preguntaba si existía la manera de modificar el tema de la cinta de opciones para que aparezca en color negro (u otro color) utilizando código VBA. Adjunto imagen para mayor aclaración... Ya sé que se puede realizar simplemente haciendo click desde "Archivo > Cuenta > Tema de Office..." Pero me preguntaba si se podía realizar desde el código VBA con algún método del objeto "Application" o algo así. La grabadora de macros además, no graba esta opción. Gracias por cualquier tipo de aporte. Un saludo.

en las celdas desde la V2 a la V50 tengo en formato general los siguientes números: V2=510.941,44 V3=300,150.19 V4=156169,84 V5= 110023,59 quisiera una macro vba que en el caso de encontrar un separador de miles como en v5 lo elimine sea este un punto o una coma y si no tiene separador de miles como en v3 que no haga nada debería quedar V2=510941.44 V3=300150.19 V4=156169.84 V5= 110023.59 Es decir que los números finales deben quedar sin millares y con un punto para separar los centavos además el resultado debe pegarse en el rango que va de BA2 A BA50 Desde ya muchas gracias por la respuesta

Hola Gerson. Saludos hacia Honduras y para ti en especial Referente a tu turbo-filtro En el numérico (Consecutivo, cantidad y movimiento) hay que insertar TODO (número completo) pero, en movimiento no me filtra (no acepta) más de 4 caracteres (números) y la columna contiene 8. Pudría ir hasta 14 números el movimiento A prtir del 4º, al introducir el 5º me dice que; Se ha producido error 6 en tiempo de ejecución Desbordamiento Por ejemplo me acepta 9154 pero no 91547048 La opción Private Sub destinogp_Exit(ByVal Cancel As MSForms.ReturnBoolean) no me funciona (nada filtra,) no sé si al amigo si También si coloco 37500 filas (lineas) con datos, al tratar de abrir…

Estimados amigos, Ante todo un cordial saludo, el motivo de mi tema es que tengo dudas referentes al archivo que posteo a continuación, lo que pasa es necesito que en el "ANEXO A", busque el código secuencial de la fila B del "ANEXO B" según el código patrimonial y lo coloque en la fila B del "ANEXO A", pero siempre y cuando la descripción que figura en la fila c del "ANEXO A" sea igual a la descripción del "ANEXO C". Parece sencillo pero he estado tratando de hacerlo por fórmulas pero no tengo los resultados esperados, es por ello que apelo a su apoyo. Gracias EJEMPLO.zip

Hola, como se pueden comparar dos macros y actuar según si son iguales o no ?

Amigos y compañeros del Foro, tengo una hoja con muchos cuadros de texto. Estos cuadros recogen, a modo de etiqueta, una función que da valores desde el -100% al +100%. Me gustaría condicionar el color de relleno de estos cuadros a su valor. Por ejemplo, si menor de -75%, rojo, mayor de 0% verde, mayor de 25% magenta. Gracias anticipadas.:eagerness:

Sub Macro1() ' ' Macro1 Macro ' ' With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.708661417322835) .RightMargin = Application.InchesToPoints(0.708661417322835) .TopMargin = Application.InchesToPoints(0.748031496062992) .BottomMargin = Application.InchesToPoints(0.748031496062992) .HeaderMa…

Consulta... Se puede crear un combobox o lista en una celda, donde al seleccionar uno de los datos, automaticamente muestre una segunda lista ? Ejemplo: Una lista de competencias, dentro tiene Clasificacion, Organizacion, etc... Al seleccionar Clasificacion, muestra los subcontenidos: Control, Punteo, Orden, etc. Seleccionar Orden y sea la opcion definitiva.

BUENAS NOCHES SOY NOVATO Y ESTOY APRENDIENDO MACROS LO CUAL TENGO UN TRABAJO EL CUAL CONSTA DE MUCHOS CUADROS Y DESEO AUTOMATIZARLO CON MACROS EN DONDE PUEDA GENERAR UN ASIENTO CONTABLE DEPENDIENDO DE UN CRITERIO ESTUVE USANDO LA GRABADORA DE MACROS PARA HACER UNA MACRO QUE ME COPIE Y PEGUE LOS CRITERIOS QUE SE LE PIDE PERO HASTA DONDE LO HICE ESTA BIEN PERO DONDE ESTOY ENTRAMPADO ES QUE NO PUEDO HACER QUE MI MACRO COPIE Y PEGUE HASTA ENCONTRAR LA ULTIMA CELDA CON INFORMACIÓN, DESEARÍA QUE ME PUEDAN AYUDAR POR FAVOR LES AGREDESERIA MUCHO SUS AYUDAS ADJUNTO UN CUADRO CON MI EJEMPLO COMPRAS PRUEBA111111.xls

¡Hola! A ver si me podeis ayudar: muchas veces tengo hojas con un monton de filas y solo dos columnas (a veces puede ser una, a veces tres) y me gustaria tener una macro que me agrupara el maximo de columnas por hoja, porque asi me ahorro el imprimir muchas hojas. Por ejemplo: tengo una hoja con dos columnas y 950 filas, que si las agrupo como digo, se quedarian en unas 6 hojas y no unas 20 que serian sin agrupar. Seria asi: de la fila 51 a la 99 (teniendo en cuenta que en la fila 99 esta el salto de pagina e incluyendo que todas las paginas tienen como cabecera la fila 1), pasarian a partir de la D2:E2 (dejo una columna vacia entre datos reubicados), de la fila 100 a…

Tengo un gráfico de barras Me gustaría crear una macro que me ditinguiese las 3 ultimas barras que tienen información. Ejemplo, Tengo una columna por mes Si el último valor con información fuese septiembre, me gustaría recalcar Julio, Agosto y Septiembre Este gráfico, se crea a partir de valores importados, por lo que me gustaría poderlo hacer mediante una Macro. No se cómo hacerlo y una de las soluciones "cutres" pero "efectivas, sería crear un cuadro semitransparente por encima para difuminarlas un poco. No sé como crear la forma y situarla donde quiero encima del gráfico. Muchísimas gracias de antemano.

Hola a todxs Comunidad Ayuda Excel Quisiera hacer un calendario para llevar la cuenta diaria de gastos en movilidad,por ejemplo por dia no puedo exceder un monto que seria 30,los gastos se pueden hacer de lunes a viernes ,un ejemplo seria si un lunes se gasta 42 soles, no podria registrarse 42 en el excel, se registraria 30 el lunes y la diferencia el martes,pero si el martes también se hace un gasto supongamos de 40,pondría 18 el martes y correría los días necesarios para q calze y cumpla la condición. No se si me dejo entender ademas bloquear fechas de vacaciones y domingos o alguna otra que necesite donde no se pueda hacer esos gastos ya que lo supervisaría algun…

Que tal a todos los usuarios del foro me encontré con una problemática que me ha dado problemas y amablemente pido su ayuda para resolverla. Tengo un filtro en una hoja y me va perfecto, solo tengo una duda y es que en el rango en el que introduzco los datos quisiera que si se da click en el botón de control de formulario,(donde tengo el filtro), para ejecutar el filtro y alguno de los campos esta vació que me mande un msgbox diciéndome que tengo que llenar alguno de los campos en donde debo introducir la info para que me haga el filtro. Es decir si el rango que tengo para llenar es de B2:K2 y no tengo ninguno lleno, entonces me mande el msgbox, pero si lleno alguno de …

Estimados amigos con la ayuda de ustedes pude hacer una macro con BUSCARV como se detalla: 'En un Módulo: Sub Buscarv() ActiveCell = Application.VLookup(ActiveCell.Offset(, -1), Sheets("Hoja1").Range("A1:B15"), 2, False) End Sub 'En la hoja activa Private Sub Worksheet_Change(ByVal Target As Range) Celda = "A:A" If Not Application.Intersect(Target, Range(Celda)) Is Nothing Then ActiveCell.Offset(-1, 1).Select Call Buscarv End If End Sub En la hoja1 tengo la lista donde se extrae los datos y en la hoja2 en la celda coloco un nombre y me devuelve su equivalente de la tabla. Esto me funciona a la perfección cuando se ingresa nombre por nombre, pero ahora estoy …

Hola: Tengo una tabla a la que necesito estarle agregando nuevas filas al final de la misma con el propósito de, a su vez, ingresar nuevos registros desde un formulario. La inserción de cada nueva fila al final de la tabla deberá ser encima de la última fila, con el propósito de que no se pierdan las fórmulas y formatos definidos. No encuentro como hacerlo por medio de VBA. Gracias anticipadas.

Saludos investigando he encontrado macro para crear archivosm nuevos con las hojas de un libro, lo que deseo es crear solamante hojas seleccionadas por ejem si un crchivo tiene 10 hojas, necesito solamente crear las Hoja 1, Hoja 7, Hoja 4 Gracias

Hola, tengo esta plantilla con un macro en perfecto funcionamiento de nombre "replicar" que fue cedido por un usuario del foro al que le estoy muy agradecido. Este macro lo que hace es copiar en una nueva hoja del mismo libro todos los ingresos a excepción de aquellas filas en las cuales es valor en columna H es igual a "si". Ahora lo que me gustaria es que ya que en P2 estoy calculando el valor de la caja basado en los ingresos y salidas del dia, al ejecutar el macro "replicar" el valor de la hoja original se mantenga en la hoja copiada pero a la vez se actualize a medida que se registran nuevos ingresos y salidas. Gracias de antemano! mantener.rar

Hola, Estoy intentando crear una matriz que cumpla unas condiciones. Describo el problema a ver si jhay alguien en el foro que sepa como solucionar estre problema, que no es trivial. Tenemos un vector de dimension (1xn) A=(a1,a2,a3,...,an), para este ejemplo n=6, cuyas componentes pueden tomar los valores (-1,0,1) , por ejemplo A=(0,0,-1,1,-1,-1). Lo que quiero generar es una matriz B de dimensiones (mxn), para este ejemplo, m=4, es decir, de dimension (4x6) b11;b12;13,b14 b21,b22m..,b24 ... b61...........,b66 Lo que necesito es rellenar los valores de la matriz B, atendiendo a las siguientes reglas: 1) Si el valor ai=0, entonces bij=0 ; i= 1,2,3,4,5,6 y j= 1,2,3…