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…

Buenas tardes; Estoy desesperado, hace una semana que me cambiaron en el curro el Excel 2007 por el Excel 2013 y……..supuestamente las macros que yo tenía creadas con el Excel 2007 iban a funcionar con el Excel 2013……….mentiraaaa….( los 2 office son de 32 bit´s ). Alguien que haya pasado del Excel 2007 al Excel 2013 sabe que comandos no funcionan??. Uno de los comando que no me funciona en el Excel 2013 es “Application.ScreenUpdating = False” (para que no se vea el proceso de la macro), este le suelo usar mucho para poner una hoja xx con un dibujo mientras se está ejecutando la macro por detrás ( os paso un ejemplo en el Excel adjunto ). Pd: se puede de…

Buenas! Estoy haciendo una base de datos de una academia y lo tengo de la siguiente manera. Dentro de un Userform1 tengo todos los datos de los alumnos. Con un ComboBox, elijo un alumno en concreto y se me vuelcan los datos del mismo (Nombre, curso, precio etc...) dentro de la ficha. Pues bien, lo quiero hacer es darle al botón de "cobro" y se me abra otro userform, el cual he estructurado a modo de recibo, y que algunos datos del userform1 me aparezcan rellenos para que le de directamente a imprimir. No sé si es la mejor manera de hacerlo o hay otra más sencilla, pero hasta donde yo sé, lo único se puede imprimir es un Userform, y tengo demasiadas cosas e…

tengo un problema con este codigo de formulario ya que no cumple completamente con lo que se le pide en el codigo la idea es comparar dos hojas y en la primer hoja que se escribe en el formulario resaltara aquellas celdas que se encuentra tambien en la segunda hoja seleccionada. pero he notado que tiene un problema cuando selecciono la hoja chance y la comparo con hoja pistas me marca las celdas y las resalta hasta ahi bien pero cuando ejecuto pistas y la comparo con chance no me selecciona todas las celdas que estan entre las dos hojas hice el ejemplo con el 6506 y este ultimo proceso no resalta la celda prueba2.xlsm

Hola, Estoy intentando hacer una rutina que me haga lo siguiente: Tengo un textbox multilínea y quisiera que al pulsar un botón se me insertara en el textbox, justo en el punto donde está el cursor, un separador de listas muy simple, por ejemplo *--------------*, pero no lo consigo. El problema que tengo es que al hallar la posición del cursor NO me tiene en cuenta los saltos de línea que tiene el texto original del textbox hasta esa posición del cursor Os paso un ejemplo muy simple de lo que quiero, es parte de un programa más complejo, pero con este pequeño fragmento de código es suficiente Muy agradecido de antemano separador.xlsm

buenos dias amigos de excel tengo el siguiente problema tengo un formulario que al darle click a un boton me busca las coincidencias numericas de un numero de 4 cifras de acuerdo al codigo y me las marca con color verde en una hoja pero quisiera llevarlo a un nivel mas alla quisiera que el codigo no se ejecute en la hoja donde esta el formulario pero que si en la hoja siguiente Sub coinciden() Dim n As Range Dim lookup 'se solicita ingreso del nro de 4 dígitos lookup = Format(Val(InputBox("ingrese NUMERO de referencia", "BUSQUEDA DE COINCIDENCIAS")), "0000") If Len(lookup) <> 4 Then MsgBox "Número no válido.", , "ERROR" …

Ciao a tutti, mi chiamo Maurizio e il mio problema è questo: su un foglio Excel, ho creato una tabella che prende come riferimento i dati posti sul foglio 1. Ora il mio problema è questo: vorrei assicurarmi che una volta hai creato un grafico, passerà al foglio 2 e quello del Foglio 1 scomparirà dal grafico. Ma da allora dovrò ricreare gli altri sempre sul foglio 1; Vorrei che il numero della grafica riprendesse sempre da 1 E tutto questo possibile. Grazie alla disponibilità. Saluti sinceri di A.Maurizio. Crea Nuovo Grafico Maury.xlsm

Hola buenas tardes. Quisiera y me pudieran orientar como puedo copiar datos de una hoja a otra del mismo libro con una macro tomando como condición códigos iguales que están en ambas hojas en la columna A, es decir que revise ambas hojas y si hay códigos iguales tome el valor de la columna F de la hoja2 y la sume al valor que tiene la columna G de la hoja1. Gracias por su atención . Comparar.xls

Hola a todos. Necesito ayuda sobre este asunto. Tengo una lista de nombres en una tabla. Por ejemplo así. ID_RH Orden Período Fecha Alta O.T. Clave Nombre Completo 76231 1 00 10/05/2018 0308 101224 ANDRES SANZ ORTIZ 76229 2 00 20/12/2006 0308 101222 ANTONIO LOPEZ RODRIGUEZ 76234 1 00 04/04/2017 0308 101227 BERNABE RIUZ TORNE 76235 2 00 13/11/2017 0318 101228 BRYAN RUIZ CHERS 76236 1 00 03/07/2017 0308 101229 CARLOS RUIZ LOPEZ 76237 2 00 05/06/2018 0318 101230 ERNESTO FERNANDEZ SANZ Quisiera con un Inputbox insertar un nombre y apellidos (por ejemplo DIEGO RUIZ CAMPOS) y este buscara en la lista como la del e…

Nuevamente por acá amigos, les platico sigo realizando una aplicación donde se realizara la salida de productos. Con la ayuda de varias personas del foro y lo que eh investigado ya esta un poco avanzado. Les platico como funciona en lo general: De un ComboBox se jala la información de la BD a varios TextBox y posteriormente se captura la información del cliente en los otros TextBox. Con el botón "Ingresar datos" se descarga la información a una hoja llamada "Salidas" y también lo carga en un ListBox. En caso de ingresar un producto no deseado, se puede eliminar seleccionando en el ListBox y después pulsar el botón "Eliminar datos". Hasta ahí t…

Buenos días, tengo una planilla en la cual estoy trabajando con la siguiente MACRO Sub Genera() Dim numConsec As Long Dim strConsec As String Range("M1").Select Selection.NumberFormat = "@" If IsEmpty(ActiveCell) Then Range("M1").Value = "00001" Else numConsec = Val(Range("M1").Value) + 1 strConsec = Right("00000" & Trim(Str(numConsec)), 5) Range("M1").Value = strConsec End If End Sub Mi consulta es como puedo hacer para que esta MACRO funcione en todas las hojas del LIBRO(5 hojas, con posibilidad de incrementar), es decir si en la hoja 1 se uso el numero 00001, en la hoja 2 si se ejecuta la MACRO se use el 00002, si vuelvo a la hoja …