Hola quisieran que me ayudaran con este problema.... tengo una macro asignado a realizar un filtro avanzado que funciona correctamente cuando asigno los criterios manualmente.. como la siguiente imagen [ATTACH]41904.vB[/ATTACH] Ahora bien, para automatzar un poco mas las cosas, tengo unas casillas de verificacion que me permiten escoger los criterio para realizar e filtro avanzado... pero la macro no me funciona... [ATTACH]41905.vB[/ATTACH] Alguien sabe xq... si se puede hacer? si o no ?? este es el codigo de la macro: Sub generarhoja3() normal Macro Application.ScreenUpdating = False Range("H12").Select Sheets("Hoja2").Range("A2:L300000").AdvancedFilter…

cordial saludo estimado, tengo un archivo en excel con una consulta sql en el editor de visual basic para extraer informacion de la base de datos de un programa de la empresa donde laboro. Hoja1.Range("A10:U20000").Clear Hoja1.Range("A10:U20000").Interior.Color = &HF5F5F5 Hoja1.Range("A10:U20000").Font.Color = &H8000000D Hoja1.Cells(4, 1) = "Intervalo:" & Me.cmb_Fini & "-" & Me.cmb_FFin Hoja1.Cells(5, 1) = "Linea de Producción:" & Me.cmb_LProd SQL = "Select C.nom_cliente,O.Cod_Cliente,O.Cod_Obra,O.Estado,O.FAprob,O.FDesp,P.NoOrden_Pprog,P.CodLote_pprog, L.nom_linea,min(P.Fecha_Pprog) Fecha_Pprog,Sum(P.Cantidad_Pprog) Cantidad, OT.descrip_to…

Ante todo, buenos dias. Necesito vuestra ayuda para poder tener la siguiente hoja de excel en plan. Se trata de una hoja de seguimiento de trabajos y necesitaria cumplir los plazos para entregar las cosas entonces querria tener: -Columna APERTURA, ahi simplemente se introduce la fecha en la que se inicia la obra -columna FECHA DE ENTREGA, simplemente se introduce la fecha en la que hay como limite maximo para entregar la obra. -Columna DESCRIPCION DEL MATERIAL, simplemente se describe de qué se trata. -Columna INCIDENCIAS, simplemente se especifica si esta pasando algo con esa obra. Y ahora viene lo dificil creo -Columna ALERTA 15 DIAS ANTES, necesito que 15 dias…

Buenas, estoy investigando por la página web y no encuentro ningún ejemplo de macro que desglose lo que necesito. Trabajo desde una carpeta madre, digamos: "Vehículos". Dentro de la carpeta "Vehículos" tengo infinidad de subcarpetas. Me gustaría poder listar en el excel todas esas subcarpetas de la siguiente forma: En la Columna A, que aparezca a partir de la fila A2 el nombre original de la subcarpeta, no la ruta. Y en la Columna B, el acceso directo, es decir, un hipervínculo de la subcarpeta. También me gustaría tener un botón para actualizar las nuevas subcarpetas que vaya creando en esta carpeta madre "Vehículos". En resumen, necesito listar las subcarpetas de…

Bien pues les explico resumidamente el trabajo que estoy realizando. Me entregan una base de datos de registros de polizas contables en varias hojas que estan definidas por Cuenta Bancaria, mi trabajo es concentrarlas para despues separarlas tomando ahora como referencia la cuenta contable a la que se aplican y asignarles una hoja por cada cuenta con sus respectivos registros. Esto ya lo tengo, donde estoy atorado es que al repartir la información en algunas hojas me puede dar simplemente un registro y en otras más de 500, por lo cual no se que codigo utilizar para que se apliquen las sumatorias a los rangos de valor numerico. Mis rangos de valor numérico empiezan a par…

Tengo un archivo que me genera distintos graficos en una misma hoja con los datos de otra hoja, el problema es que me presenta los datos de dos columna, como fija la B y la segunda columna es variable, pero necesito que me presente los datos de dos columna variables, ejemplo: Primer boton para el grafico seleccione los datos de la columna B y C, Segundo boton para el grafico seleccione los datos de las columna D y E, Tercera boton para el grafico seleccione los datos de la columna F y G, y asi sucecivamente. Al generar me deja la columna B como fija y no es lo que necesito, por otra parte, que pasaria si inserto una o dos columnas entre los datos, se dañaria la macro…

amigos muchas gracias por este espacio que nos brindan a las personas que necesitamos tanta ayuda amigos necesito crear un historial cada vez que se actualiza un valor de determinada celda, navegando en la red e conseguido este codigo Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub With Range("A" & Cells.Rows.Count).End(xlUp) .Offset(1) = Target .Offset(1, 1) = Format(Now, "hh:mm:ss") End With End Sub (perdon si no referencio la pagina pero de tantas que busque ya perdi el link) este codigo me funciona de maravilla siempre y cuando yo oprima enter y necesito que no sea asi habe…

Hola a todos, esta vez tengo una duda, tengo una instruccion para agregar 2 columnas al final de las columnas, pero no me hace nada... me gustaria que se copiaran con el formato de la izquierda... Anexo instruccion ucol = Cells(1, Columns.Count).End(xlToLeft).Column + 2[/PHP] Gracias a todos, agradesco su ayuda! Saludos. Gerardo. ya logre resolverlo [b]TEMA FINALIZADOOOOO!!![/b]

Hola a todos, tengo una matriz de nxm y necesito que cada una de las filas se copie 13 veces quedando una matriz de (14*n)xm Dejo un excel donde se muestra como debería quedar, en la hoja 2 estan los datos de la matriz inicial, las matrices con las que trabajo son en general mucho mas grandes, no es el largo fijo, y en la hoja 3 se muestra como debería quedar, solo lo hice para 3 filas a modo de ejemplo. Ojala se entienda y me puedan ayudar, que hace rato estoy tratando de hacerlo y no me sale! Gracias y saludos ejemplo.rar

buenas tardes saludos Expertos, queria comentarles que estaba creando un codigo en el cual despues de una cantidad de datos (revisando que sea un producto y de ahi vaya a otra columna y ponga su nombre ) llega a un numero y busque el nombre de otro vendedor y continue haciendo lo mismo, pero da la casualidad que estaba creando el codigo de acuerdo a la base de datos, pero realmente si la distribucion de nombres seria distinta (x lo que se aprecia es orden alfabetico, pero si cambia) mi codigo genera error podrian ayudarme adjunto archivo no puedo mostrar el código porque es muy grande. gracias Saludos Brian ayudaDatos.zip

Hola, estoy metido en un juego y aprovecho a llevar estadísticas de las actividades que realizo. Este juego es de estrategia y entre las tantas cosas necesitas atacar a distintos jugadores para obtener recursos o crecer. Esto lo llevo en forma manual o formulas, sin embargo se me ocurrió hacer un formulario para ingresar los datos lo que está funcionando con algunas pruebas, sin embargo quisiera que en el mismo formulario aparecieran las estadísticas que manejo así no necesitaría ir a la hoja estadísticas. El libro que adjunto tiene una hoja ataque que es lo que he automatizado con la macro (está grabando en la hoja “OK”, sin embargo si estoy en otra hoja y ejecuto graba…

Muy buenas noches amigos soy nuevo en lo que concierne a Excel y Access, la consulta es la siguiente tengo una base de datos con tres tablas (LISTTABLAS, PROFESIONES, USUARIO). Y bueno hice una consulta en la base de datos para que me muestras el nombre de las tablas de dicha BASE y que lo guardara en la tabla LISTTABLAS y todo bien el detalle es que quiero ejecutar dicha consulta que hice en Access desde Excel y me sale un mensaje de error: “No tiene permiso para READ en MsysObjects” que es lo que tengo que hacer tmp_21172-prueba190521887.rar

Buenos días, Tengo el siguiente desafío: Dentro de mi macro, hay una sección que va extrayendo datos y los va colocando en distintas columnas según el tipo, bien, pues cuando lo que tengo son números enteros (1,2,3...) no hay ningún problema, pero cuando son decimales (6,2...) me sale un iconcito de error de formato, podría ser inofensivo, pero el paso siguiente consiste en generar gráficas con esos mismos datos y al haber perdido el formato número no reconoce los datos y piensa que son todo ceros.. He buscado un poco sobre este problema y he probado las siguiente soluciones sin obtener el resultado que quiero: - He grabado una macro mientras aceptaba el fallo a través …

Buenas tardes Tengo un fichero con una macro para comparar dos ficheros diferentes. Lo que hace la macro es buscar en horizontal BBDD 1 y compararla con BBDD 2 que busca en vertical. Entonces lo que coincide lo elimina y lo que no encuentra te dice donde no lo encuentra si en BBDD 1 o en BBDD 2. Con el fin de que ambos ficheros esten identicos y no tenga fallos. El problema que tengo es que tengo que ampliar las columnas de 4 comparador BBDD SOX_v2.xlsm a 10 comparador BBDD SOX_v3.xlsm la BBDD 1 y no soy capaz de modificar el código de la macro voy modificando las columnas y siempre falla algo. No se si podríai…

Buenas a todos, tengo un problema al cargar datos de una base de datos Access a Excel, el problema surgio cuando en mi empresa se actualizo el Office 2007 a la version 2010, el problema es el siguiente, hay una serie de datos en formato fecha/hora en el archivo Access, cuando los importo por macro a excel, me trae estos datos con el valor "0", al pasarlo a formato hora se pone 12:00:00 am. en Office 2007 no existia este problema. Dejo la parte del codigo que se encarga de traer los datos de Acces a Excel, agradeceria su ayuda. Dim PATH_ As String, varianame As String Dim dr As String Dim ay As String, by As Integer Dim ayS As String, byS As Integer, bySb As Integer …

Buenas tardes!!! A ver si me podéis echar una manita. Estoy intentado comparar 2 columnas (columna C de la Hoja “Datos” y la columna A de la Hoja “Historico”) para una vez comparadas, me copie lo que tenga de más en la columna C de la Hoja “Datos” en la columna A de la Hoja “Historico”. Muchísimas gracias. Un saludo, Libro1.xlsm

Hola amigos, ayuda con este código If Application.WorksheetFunction.Match(Cells(3, 2), Worksheets("Datos").Range("B:B"), 0) Then Sheets("Hoja3").Cells("B1").Copy Range("I:I").PasteSpecial xlPasteAll End If :smug: :smug::topsy_turvy:

Buenos dias Acudo nuevamente a ustedes para solicitar su ayuda, tengo un registro de asistentes (hoja RMATRICULA) del cual filtro 2 columnas con los valores de los ComboBox y luego lo copio y pego en la hoja LISTA, y claro para ello antes elimino filas y datos de un pegado anterior - "hasta allí todo bien". Problema: Lo que intento hacer luego es que después de pegar los datos filtrados, dos filas después del ultimo registro de la Hoja LISTAS me agregue el texto "INVITADOS" y después de ello se agregue 3 filas mas en blanco en la hoja EJEMPLO esta la muestra de como debe quedar la tabla espero su ayuda muchas gracias prueba.xlsm

Hola a todos, primero que nada me declaro completamente ignorante en el tema que les estoy consultando, y existen tantas cosas que les agradecería si pudiesen orientarme. Necesito llenar un excel diario , y pasar estos datos de manera automática a una planilla de access, de manera que se vaya llenando a diario con los datos de excel. Me gustaria tambien que tambien fuese podido ser utilizada en linea por varios usarios, aunque eso no es tan necesario. No se si es posible realizarlo con estos 2 programas o en realidad debería utilizar un programador como phyton o por el estilo. Les agradesco mucho de antemano cualquier ayuda

Buenas tardes, necesito comparar dos hojas excel y que me dé el resultado en una tercera hoja. Os dejo las dos hojas junto con una tercera de como debería quedar. Sin duda he encontrado soluciones similares pero no la misma. Me gustaría no tener que molestar con este tema, pero no tengo tiempo para desarrollarla yo mismo. Me encantaría, pero no dispongo de mucho tiempo. Gracias de antemano y saludos. Argucias1979 EJEMPLO.xls

Buen día a todos! Soy nuevo en esta comunidad tan padre y me gustaría empezar mi participación con la siguiente duda: Estaba trabajando en una macro y de repente me apareció el mensaje "cant find project or library" y desaparecieron mis módulos. Intenté ver referencias pero ni siquiera me permitió abrirlas. Lo guardé con nombre distinto y aún así me sigue apareciendo mismo mensaje de error y nada en los módulos. Me gustaría por favor si me pudieran orientar en qué es lo que está pasando y cómo lo puedo solucionar? Ya que restauré versiones anteriores pero perdí todo el código que había cambiado antes del error. Muchas gracias…

BUENAS TARDES A TODOS. AQUI DENUEVO CON UN GRAN PROBLEMA PARA MIIIIIIIIIIII. NECESITO DE SU AYUDA, TENGO UNA HOJA EN EXCEL QUE SE IMPRIME DOS VECES Y NECESITO QUE EN CADA UNA SE IMPRIMA UN PIES DE PAGINA DISTINTO EN UNA EL PIES DE PAGINA DIGA " COPIA" Y EN LA OTRA "ORIGINAL" ESTE ES EL MACRO QUE USO PARA IMPRIMIR Sub Imprime_horarios() Application.ScreenUpdating = False For Each pestaña In Worksheets If pestaña.Name = "nombres" Then GoTo otra: pestaña.Activate If Range("d6") <> 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=2 pestaña.PrintOut End If otra: Next pestaña Sheets("nombres").Activate Application.ScreenUpdating = True End Sub DENTRO…

Buena tardes, ¿me podrían ayudar a resolver este problema? - Soy nuevo en esto de las macros y esta vez san google no me ayuda :( Estoy tratando de poder copiar la unica hoja del archivo INDICADORES.xls al archivo recién abierto formado por los datos que se toman de la variable IN26, el problema es que cada mes cambia el nombre del archivo y su carpeta, el abrirlo no hay problema ya que la variable "IN26" se forma de los datos obtenidos de las celdas en la hoja y libro indicadores, pero al copiar la hoja,si no especifico el nombre del libro IN26U202106350114.xls la macro no funciona, intente en lugar de poner IN26U202106350114.xls la variable "archivo" y no funciono,…

Hola, Tengo que salvar una hoja de excel con cierto parametro, la primera vez que se salva debe de salvarse con cierto nombre + la fecha del día DDMM. Cuando se deba de volver a salvar el archivo se debe de guardar de la misma manera + CAMBIO más la version del cambio tengo el siguiente codigo: Sub Layout() ' Static count As Integer Dim filestr As String filestr = "\\JDCC\LAYOUT\TCLayOut" Sheets("LAY OUT").Select Sheets("LAY OUT").Copy ChDir "\\JDCC\LAYOUT" If count = 0 Then ActiveWorkbook.SaveAs (filestr & Format(Date, "DDMMM") & ".xls"), _ FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommend…

Chicos, una pregunta express: ¿Cuál era el método para ocultar las ventanas de alerta como por ejemplo, la ventana de cerrar la aplicación (ya se me olvidó... ?‍♂️)?