Hola a todos de nuevo. Tengo un problema con un autofiltro. Necesito filtrar 3 columnas, de "F" a "K" y el criterio se encuentra en la columna "K" que es la columna 3 del criterio. Lo que necesito es copiar los datos filtrados pero solo de las dos primeras columnas, no las 3 columnas, y llevármelas a otra hoja. Por ahora lo que consigo es llevarme las 3 columnas y no se llevarme solo las 2 columnas primeras del autofiltro. Este es el código que tengo. Sub ExportarTecnicos() Application.ScreenUpdating = False: Application.DisplayAlerts = False ' Dim wsPxA As Worksheet, wsGrupos As Worksheet Dim rngData As Range Set wsPxA = Sheets("PxA"): Set wsGrupos = S…

Hola! buenas tardes. Les comento, no he podido realizar una macro que haga la función de seleccionar dentro de un rango de celdas tomar las vacías y luego colocar la fórmula que repita los datos de la fila anterior, y además ponerle un color claro. Cuando lo hago realiza la acción pero me deja los datos de color blanco. Gracias por la ayuda que me puedan brindar. Consulta excel.xlsx

Hola buenos dias, ando buscando de su ayuda. Tengo el siguiente anexo donde en un userform puedo filtrar los articulo y el resultado aparece en un ListBox al dar click sobre cualquier articulo filtrado me carga datos en los Textbox, hasta ahi todo bien. El problema radica que el articulo seleccionado no coincide con lo cargado en los textbox, alguien me podrá echar la mano o decirme en que ando mal. Anexo archivo, gracias por su ayuda Buscar y Modificar.rar

Amigos, buenos dias la verdad me dejaron este programa para realizar en excel y no tengo mucha nocion. tengo mas o menos un prototipo en java. si me pudieran dar algunas link o algunos metodo de programacion para poder realizar este trabajo, se los agradeceria.

Hola a todxs, Necesito una macro para borrar sólo las imágenes. Diariamente descargo una serie de datos desde una página web de Internet, y se me importa también la galería de imágenes en mi hoja de datos activa de Excel. El problema es que ya ejecuto una macro para tal fin a través de un botón de formulario, pero se me borra el control ActiveX porque no consigo cómo hacer para eliminar sólo las imágenes. Adjunto el archivo para su comprobación: https://www.dropbox.com/s/yz9vgngnj0zofcb/IMAGENES.xlsm?dl=0 Muchas gracias de antemano por vuestro tiempo.

Hola!!, Aquí voy con mi duda que por más vueltas que le doy no doy con ello. En esta macro estoy intentando escribir en la fil a 29 que filtros se han "SELECCIONADO" en el /los SEGMENTOS de la Tabla dinámica. Si filtro por [Tamaño de Empresa] = "Pequeña", implica que sólo me muestra un [Concepto], "Concepto AAA". Hasta ahí bien. En este caso los filtros que me muestra como "SELECCIONADOS" son: Para el segmento [Tamaño de empresa]: "Pequeña" Para el segmento [Concepto]: Todos los items de este segmento, cuando en realidad no se ha seleccionado ningún item en este segmento , además me muestra los 2 items cuando tendría que selecc…

Hola a Tod@s, Necesito de su ayuda para saber como logro visualizar el Numero de Linea donde esta el cursor en el Editor de VBA Excel, ya que el proyecto ya se hizo un poco largo y para pasar de un lado a otro y regresar me cuesta trabajo identificar la linea en la cual estaba. Ya Googlie y Webie y nada. De antemano mil gracias. Saludos.

Buenas tardes Me podrian ayudar con esto. Me pidieron que hiciera un consolidado de varias hojas(6) de varios archivos en uno solo para realizar un grafica consolidada. El consolidado se llama Diagnostico zona 1 y los otros es de donde tomo la información. Lo hice manualmente mediante suma, esto se puede hacer mediante un macro? y que quede para una numero indeterminado de archivos . Anexo el ejercicio.( no me deja por el peso) http://www.mediafire.com/file/l6c4c6wiw9kbbc6/Grafica+consolidada.rar Muchas gracias por su ayuda.

Un saludo para todos los foristas. Solicito ayuda con un tema que no he podido resolver. Tengo una rutina que me permite crear una tabla de Excel y en ella, guardar los datos de ciertas personas. La rutina se ejecuta bien a excepción de que, si ya existe la identificación de una de esas personas, se muestra un Msgbox que así lo indica. Luego, al pulsar el botón Aceptar de dicho mensaje, se sale de la rutina pero antes, debe seleccionarse la celda E6. Aquí está mi problema, que no se ejecuta esta instrucción, por ello, acudo a ustedes para lograr la solución de esto. Adjunto un block de notas con el código utilizado. Mil gracias por la ayuda que puedan prestarme. Rutina…

Estimados foreros: Acudo a su maestría para ver si me pueden ayudar con un problema de importación de TXT a Excel que tengo. He reutilizado, adaptándola, una macro que creó el maestro @Haplox y que mostró en este foro para otro compañero con un problema parecido al que ahora planteo. Aprovecho para agradecerle su propuesta, porque me ha sido muy útil. A lo que vamos... Verán, tengo un archivo de texto delimitado por puntos y coma, el cual quiero importar a una hoja de Excel, pero los datos de cada fila del TXT deben situarse en celdas NO contiguas. He retocado la macro de @Haplox, pero no logro que la importación se realice como yo necesito (se importan los…

Hola: Esto intentando leer las propiedades de un libro Excel y escribirlas en una celda concreta. Las propiedades que me interesan son el Autor, Fecha de la Ultima Modificación y el Estado. Escribo hasta donde he llegado, solo he conseguido leer la Fecha pero me aparece la hora también y eso no me interesa. También me gustaría saber como hacer que el código se ejecute automáticamente cada vez que se abra el libro sin necesidad de hacerlo manualmente. Sub ConsultaLibro() Dim Version As Integer Dim Autor As String Dim FechaUltimaModif As Date Version = ActiveWorkbook.BuiltinDocumentProperties("Revision Number") …

Hello everyone My name is Maurizio And my problem is this: My daughter has given me a damanda here I can not answer with all my good will; Here is explained the reason for my request. The problem is this; Always taking advantage of the VBA it would be possible to take for good that in the Column (B) I can write any data in any cell; And only at this point in the previous cell to my Venga inserted automatically (today's date) I bring an example: If in the Cell (B8) of the sheet of excel I write (1936,27 €) Or the word (Dog) Nlla Cella (B7) should automatically appear on today's date. So it should happen in the cell Example (B30) Write the name (Armando…

alguien me puede colaborar y decirme en que esta fallando este filtro? pruebafiltro.xlsm

Hola a tod@s, No logro hacer una validación para varios TextBox, Tengo como 15 filas de controles y quiero aplicar la misma Validación a los controles que están alineados en columna, quiero ahorrarme el poner la misma validación para esos controles que pueden ser hasta 50 . Alguna idea? Envió archivo muestra con solo 3 lineas de controles y 3 columnas de controles y su validación correspondiente, si pones A o pones B o pones C Gracias de antemano por la ayuda recibida. Saludos. ValidarVariosTextBox_LBV.xlsm

como puedo agregarle esta condicion a estas tablas con las flechas se cambia el numero en ambas hojas pero mi idea es que segun el numero que este en a1 de la primer hoja se haga lo siguiente si la distancia de la primer cifra en filas con la seguna cifra es igul a la distancia en filas de la tercer cifra con la cuarta se marque en rojo copiatablas.xlsm

Muy buenas tardes, Tengo un formulario con un listbox que toma datos de una hoja. Según selecciono un elemento u otro en el listbox los valores de un grupo de checkboxes (guardados también en la misma hoja) muestran su valor (true/false). Necesito alguna ayuda para lo siguiente: Quiero que antes de cambiar de un elemento a otro en el listbox se compruebe si alguno de los checkbox ha cambiado su valor. Esa comprobación es sencilla, lo que no logro dominar es que una vez he comprobado que si se ha cambiado el valor de algún checkbox no pueda pasarse a otro item del listbox... No logro hacerlo. Antes de pasar a otro item hay que ejecutar otro paso pero no lo…

LO QUE NECESITO ES CREAR UNA CIERTA CANTIDAD DE COMMANDBUTTON EN UN USERFORM DEPENDIENDO DE LA CANTIDAD DE DATOS QUE HAYA EN LA COLUMNA A DE LA HOJA 1. COLUMNA A FILA 1 ROJO FILA 2 VERDE FILA 3 AZUL FILA 4 AMARILLO FILA5 BLANCO EL CODIGO TIENE QUE CREAR EN ESTE CASO 5 COMMANDBUTTON EN FORMA HORIZONTAL UNO AL LADO DE OTRO SEPARADOS A UNA DISTANCIA DE 1 CM MAS O MENOS. PERO EN EL CASO QUE SEA: COLUMNA A FILA 1 ROJO FILA 2 VERDE FILA 3 AZUL FILA 4 AMARILLO FILA5 BLANCO FILA 6 NEGRO EL CODIGO TIENE QUE CREAR EN ESTE CASO 5 COMMANDBUTTON EN FORMA HORIZONTAL UNO AL LADO DE OTRO SEPARADOS A UNA DISTANCIA DE 1 CM MAS O MENOS. Y EL COMMANDBUTTON 6…

Buenos dias a todos, En una consulta anterior quería hacer lo siguiente: Tengo una Tabla y quisiera a través de una macro que todos los datos que tengo en una columna filtrados se me copien en hojas diferentes con el mismo nombre que los datos. Ejemplo: en la Columna F "Categoria" tengo los siguientes datos SSD, Procesadores, Altavoces, Tablets, etc... y si filtro esta "Categoria" quiero que se copien en hojas separadas con los nombres de cada una SSD, Procesadores, Altavoces, Tablets, etc... Y muy amablemente Antoni me creo la siguiente Macro: El Problema es que en unos ficheros funciona y en otros muy parecidos NO Me crea otra…

Buenas! Tengo una duda. Dentro de mi formulario, tengo 12 textbox (uno por cada mes meses) cuyo contenido, por ejemplo es 50 en cada uno de ellos. La idea es que no se vea el contenido de los textbox hasta que no vaya llegando el día 1 de cada mes. Es decir, que el textbox de enero, el día 1 de enero se vea el "50"; el 1 de febrero se vea el textbox de febrero, en marzo aparezca en la casilla de marzo otros 50 y así hasta diciembre. Qué tendría que hacer? Gracias!

Muy buenas foro. Tengo un libro con 2 hojas de operarios internos y externos que se llama "Prueba General". Lo que quiero es traspasar todos los datos de las filas a otra hoja según el operario (TO, GA, OR, JP, MJ, ..) para que cada uno rellene las columnas AN, AO y AP, de su hoja particular y, posteriormente, se actualice en "Prueba general". Las iniciales de los operarios están en la columna D. La hoja "TO" que adjunto está copiada. Espero haberme explicado bien. Gracias por adelantado. TO.7z prueba general.7z

Hola a todxs, Quiero depurar el siguiente código: ... Columns("F:F").Columns.Group Columns("J:J").Columns.Group Columns("M:M").Columns.Group Columns("Q:S").Columns.Group ... Y se me ha ocurrido aplicando un Array: ... Dim Columna As Range Set Columna = Array("F:F", "J:J", "M:M", "Q:S") For Columna = 0 To UBound(Columna) Columns(Columna).Columns.Group Next Columna ... Pero me da error. No logro identificar qué estoy haciendo mal. Necesito orientación... Gracias de antemano por vuestro tiempo.

Estimados necesito crear en mi userform un commandbutton que me inserte una imagen en una celda, yo poder elegir el directorio (que sea variable no una direccion fija) . Favor ayuda!

Buenos días, espero que como siempre me puedan ayudar. Tengo un Textbox que quisiera que mostrara en Negrilla parte del texto. Para hacerme entender les dejo un ejemplo de cómo quisiera que trabajara en código: Dim X As String Dim Y As Boolean X = "" If Y = True Then X = "Carlos Flores" ElseIf Y = False Then X = "Sebastian Celeita" End If Me.TextBox.Value = "mi nombre es: " & X mi inquietud es: ¿Puedo hacer que X se muestre dentro del TextBox en Negrilla, o darle cualquier tipo de formato (Subrayado, cambio de tamaño, color, etc)? Espero sea clara la explicación, cualquier duda o inquietud que necesiten aclarar, po…

estoy tratando de realizar un filtro pero me he estancado en ejecutar el codigo de macro 3 y macro 4 que se tienen que ejecutar en la celda dn3 alguien me puede colaborar en solucionar ese pequeño problema para proceder con el codigo de filtro que ya esta hecho pruebafiltro.xlsm

Hola a todxs, Simplemente os quería consultar una cosilla, ¿existe la posibilidad de depurar el siguiente código aun más? (He utilizado la grabadora de macros, y casi siempre suele ser bastante enreversada en ese sentido. Por eso lo pregunto...) ... With Range(Cells(5, 20), Cells(5, 20).End(xlDown)) .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=0" .FormatConditions(Range(Cells(5, 20), Cells(5, 20).End(xlDown)).FormatConditions.Count).SetFirstPriority With .FormatConditions(1).Font ' Fuente de las celdas: .Bold = True .Color = -16776961 End With .FormatConditi…