tengo las siguientes intrucciones: Range("A:E").Select ActiveWorkbook.Worksheets("RevicionSubCta").Sort.SortFields.Clear ActiveWorkbook.Worksheets("RevicionSubCta").Sort.SortFields.Add Key:=Range( _ "B2:B" & u & ""), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("RevicionSubCta").Sort .SetRange Range("A1:E" & u & "") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range(Range("A1"), Selection.End(xlDown)).Offset(1, 0).En…

Hola a todos los colaboradores de este fabuloso foro, vuelvo nuevamente con un problema que se esta presentando para buscar un registro determinado en una base de datos; resulta que cuando deseo buscar un numero que he registrado previamente en la base de datos y este contiene mas de cuatro digitos el macro que se encuentra asociado al boton "eliminar registro" no lo busca y se salta al mensaje no se encuentra. El macro esta adaptado para que dependiendo de la opcion que este marcada busca en una determinada hoja sobre la columna G, ejemplo si marco la opcion remisiones busca el dato a eliminar en la hoja rrem (hoja oculta) los codigos de la remision o pedido que e ingre…

hola! Hace unos días realice una macro que genera diferentes libros (En cada uno hay 2 hojas con datos) y los guarda en la misma carpeta, sin embargo, esta acción es muy repetitiva durante el día y se generan muchos libros. Quisiera saber si me pueden ayudar a crear una macro que una todos esos libros en uno solo, pero que respete las 2 hojas que se generan por libro, es decir, si se han unido 2 libros las hojas del libro tenga 4 hojas en total. Y si es posible que automáticamente se guarde en el libro. Agradecería muchísimo su ayuda. Gracias.

Hola a todos Primero que nada deseo agradecer el tiempo en leer este post, Muchas Gracias. Me acerco a ustedes para pedir su ayuda para lo siguiente: Tengo una UDF, la cual tiene dos escenarios: 1.- Si Tiempo Promedio y Duración del Video son diferentes de 0, hacer el calculo 2.- Si lo anterior es igual a 0, se realiza el otro calculo por cuartiles. El detalle es que son muchas celdas a seleccionar, lo cual creo puede ser engorroso, entonces, pensando en simplificar la función, me pregunte si fuera posible: a.- Colocar 1 al principio de la función y después solo seleccionar 2 celdas correspondientes (Rango continuo o discontinuo) b.…

buen dia a todos,adjunto ejemplo de lo que deseo con detalles escritos;gracias buscar datos clientes y remitir.zip

Hola: Me han pasado un libro de excel, Consolidado Mensual, que me carga una macro, esta me copia el rango de los libros existentes en una carpeta determinada. Ahora este rango ha variado y me piden que se amplíe hasta la columna L, pero no sé como hacerlo. Os adjunto los ficheros, espero que me podáis echar una mano. Muchas Gracias Nefe.rar

Estimada(o) Antes que todo, espero se encuentren bien en este tiempo de pandemia y a cuidarse mucho Mi situacion es la siguiente. Tengo una tabla desde $A$4:$Z$5000 en vba....escribo Sheets("Sheet1").Range("D4").Sort key1:=Range("Z4"), order1:=xlAscending hace el orden por la columna Z pero la fila 4 la deja con datos y pierdo el nombre de las columnas debe comenzar obligadamente en la fila 1 ??? Gracias de antemano Juan Manuel

Hola, necesito ayuda con una macro que hagalo siguiente: 1º Que la hoja en cuestión este oculta. 2º que un botón tenga una macro que pida user y pass para acceder a la hoja oculta. 3º que si no se ingresan datos de ingreso o bien estan incorrectos, no cierre el libro, sino que permanezca en la hoja de inicio. 4º que al guardar el libro (habiendo modificado la hoja oculta) esta vuelva a ocultarse. El tema es que tengo un archivo que tiene una hoja que solo puede ser visible y modificable por 2 personas, pero es un informe que ven muchas personas. Necesito un control de acceso pero que no cierre el libro si los datos ingresados son incorrectos, sino que permita desplaz…

Hola, Ya casi tengo el proyecto acabado, únicamente me falta un tema que soy incapaz de solventar, tengo un botón "guardar", lo que hace es crear un clon en una nueva hoja con el nombre de la celda G4 y a la vez rellena los datos en la hoja16, estando el valor de G4 en la fila 2, pongo el código: Sub Guardar() Dim celda As Range Dim Fila As Long Set celda = Hoja16.Range("B:B").Find(What:=Hoja1.Range("G4").Value, After:=Hoja16.Range("B1")) If celda Is Nothing Then Fila = Hoja16.Cells(1048576, 2).End(xlUp).Row + 1 Hoja16.Cells(Fila, 2).Value = Hoja1.Range("G4").Value Hoja16.Cells(Fila, 3).Value = Hoja1.Rang…

Hola amigos quisiera me ayudaran con este formulario para ingreso de un kardex de almacen de antemano les Agradesco su ayuda. Gracias Almacen General Inco Peru Base.rar

Buen día, espero me puedan ayudar. Tengo un archivo el cual ten n macros los cuales todas tienen la misma contraseña para que se ejecuten, lo que requiero si es posible si hay una forma de poner una macro o función para que se ejecute al abrir el archivo y dependiendo de la condición o contraseña se habiliten las macros y si es incorrecta no funciones las macros pero si me permita trabajar el archivo

Estimados, favor su ayuda. resulta que mediante ado accedo a un servidor y una base de datos especifica, pero por un codigo accedo a un procedimiento de la base de datos, entonces desconosco las tablas a las que hace referencia dicho procedimiento, y no logro realizar bien la consulta para obtener el codigo del procedimiento, uso la siguiente forma: "exec sp_helptext " & "'" & "[nombre de base de datos].DBO.[nombre de procedimiento]" & "'" [/CODE] pero no me resutla o nose si lo escribo bien, y ademas nose como rescatar la respuesta y como tratarla en el excel. saludos y gracias

Muy buenas a tod@s; he intentado de muchas formas hacer lo siguiente pero sin exito, cree un tema en general para hacerlo por formulas pero nadie a contestado ( es muy complicado ), a ver si alguien me puede ayudar a hacerlo con una macro. A ver como explico lo que necesito; De la columna H a la N lo que tenemos son ubicaciones de piezas con la cantidad que ahí en cada una, en la columna O, R, U etc...se encuentran las piezas que me faltan por entregar en ese mes, lo que quiero o mejor dicho lo que necesito es que en la columna siguiente a la de faltantes por mes, me aparezca la primera ubicación ( la primera ubicación con piezas ), y la cantidad que puedo coger de esa…

Hola compañeros del foro, he estado realizando una macro la cual no sigue correctamente la ejecución de la macro a través de un botón para crear un reporte, sin embargo a la hora de que depuro la macro para encontrar el error paso por paso o por procedimiento esta si me genera el reporte de manera correcta. Entonces no se que parte estoy omitiendo. Ojala me puedan ayudar. De ante mano les agradezco mucho su apoyo Adjunto un archivo para que lo visualicen Saludos Reg - copia.rar

Hola Necesito ayuda respecto a una macro que no consigo realizar. el problema en la hoja de cálculo és el siguiente: - Tengo dos "series" de tablas (cada tabla separada por la superior por varias filas en blanco) . Estas tablas están ordenadas como dében(en las respectivas series). El problema es que no están alineadas: ej: la primera tabla de cada "lista" de tablas tienen que estar alineadas ( la primera tabla de la dos listas tienen que empezar en la misma fila; la segunda tabla de cada lista tienen que empezar en la misma fila,etc ). Otro problema añadido es que las tablas no tienen el mismo tamaño en cuanto filas (si en cuanto a columnas) y que la separación entr…

Buenos días; Que tal estáis tod@s?? Hoy me ha surgido un problema que no se cómo solucionar por más que leo en internet, haber si me podéis ayudar. Tengo una macro que hace una consulta SQL de un Excel a otro ( hace un filtro y pega los resultados en otra hoja ) el problema que tengo es que una de las columnas con datos ( no la del filtro ) tiene texto y números y solo me trae los valores con números, los valores de texto no los trae. Esta es la secuencia: Query=select columna 1, columna 2, columna 3 from [" & "hoja$" & "] where In" & filtro & " orden by columna2 asc" Muchas gracias de antemano.

Hola a todos; -Estoy trabajando con dos InputBox y no se sí realmente está bien lo que adjunto. Funcionar si funciona pero desconozco si es del todo ortodoxo o hay otro método mejor. Buen día a todos. 2Input.xlsm

Buenos días: El problema que tengo es que me guataría solucionar lo siguiente: 1 - Imprimir un archivo .pdf cuando pulse el botón imprimir, con las siguientes condiciones. 2 - Las hojas que han de imprimirse son: la actual y la que tiene el mismo nombre que la celda (C19). 3 - El valor de la celda (C19) viene de la hoja Datos celda (C8) que es una lista desplegable. 4 - El nombre del archivo ha de ser el valor de la celda (B36) de la hoja activa 5 - La ruta donde se guarde cualquier carpeta, por ejemplo una que se llame "presupuestos" La versión de Excel que utilizo es 2010 Espero no abusar de vuestra paciencia y os doy las gracias por anticipado. Un saludo desd…

Buenas, tengo un libro excel con un listado de datos con las fechas en horizontal, datos de producto, etc. Estoy intentando dejarlo como indico en la hoja "RESULTADODESEADO" del ejemplo que adjunto. Pensaba que al copiar y trasponer se podría, pero se queda todo el listado de filas como cabeceras. Alguna idea de cómo hacerlo? Gracias. trasponerdatos.zip

Hola, muy buenas para todos. Quería pedirles una ayuda si no es mucha molestia, dado que hace unos días atrás estoy tratando de aprender a usar macros por mi propia cuenta pero que todavía no logro tomarle bien la mano a esta herramienta. Quiero hacer una especie de libro diario en el cual registrar todos los gastos e ingresos diarios de un mes, ingresando los datos a una planilla a través de un botón que inserte una nueva fila a la planilla y ordene los datos por fecha. Dejo aquí el archivo en cuestión. MEGA

buen dia gente, estoy armando un formulario que toma informacion de una base de datos con la funcion "find", en el textbox1 coloco un dato y en base a esto me completa el resto de los textbox, peroooooo si en el textbox1 coloco un dato que no esta en la base me sale el msg que puse diciendo que el dato no existe el focus vuelve al textbox1 pero se completan otros textbox y esto no tendria que pasar, que me falta poner para que si no existe el dato no me complete nada, gracias.

Tengo un archivo version excel 2003 con macros, pero al abrirlo con excel 2010 me envia una serie de errores y no se ejecutan las macros. Saludos. GB

Buenos días a todos y gracias de antemano por su atención. Tengo una hoja Excel con varias pestañas: en la primera de ellas aparece una estructura y, en la segunda, una base de datos. En la mencionada estructura existen una serie de registros que son la "columna vertebral" de la base de datos. En la base de datos existen unos "ids" los cuales tienen que tener todos los registros de esa estructura. Sin embargo, por diversas necesidades, a veces es necesario cambiar esa estructura y, por ende, todos los "productos" de la base de datos. Al tener muchos registros (ids) en la base de datos se me hace casi imposible hacerlo de forma manual por lo que necesitaría …

Buenas noches. Agradezco me puedan ayudar con una macro que realice un intercambio secuencial de números para un rango excel. Para tamaños variables y secuencias variables... Por ejemplo así: 59-54-41-27-13 54-59-41-27-13 59-41-54-27-13 59-54-27-41-13 59-54-41-13-27 Gracias por su tiempo.

HOLA QUERIDOS AMIGOS - no se porque en mi listbox2 me carga los códigos y no los productos que es lo que deseo, quizás se deba porque incluí una formula Excel en esa tabla de lista de productos. y el otro es aquello que al escoger el producto en mi textbox "A_PRODUCTO" me extraiga su código en mi textbox2 y para ello generé el siguiente código(andaba bien pero anteayer me resulta error en esta línea (letra roja) y hasta no puedo solucionarlo. Por favor ruego que me echen una mano con ello, ya no se que hacer, busco una solución para algo en especifico y me genera otra 😔 Private Sub A_PRODUCTO_Change() 'ACTIVAR HOJA2 Sheets("LISTA DE PRODUCTOS").Ac…