Saludos a todos En el archivo que adjunto, tengo la hoja datos donde tengo un registro de movimientos, en la hoja anual en columna AyB pongo los datos manual, lo que deseo es que me busque de A2:A? el id en la hoja base columna E, que verifique que el estatus sea operado, si es así, regresar a la hoja anual y buscar la fecha y traer de la hoja base los datos de las columnas C, D y M, en algunas fechas puede tener varios movimientos por ejemplo id 6580, 6582, en caso de que el estatus sea rechazado no se debe registrar en la hoja anual. Agradezco de antemano su ayuda y/o sugerencias Saludos Ejm080420.xlsm

Hola a todos, mi nombre es de Y mi nuevo problema es este: Tendría la diversidad de obtener dos listas de artículos en la hoja 1, una en la columna (A) y la otra en la columna (B) Por lo tanto, en la columna (A) puedo escribir "Tabla roja"; "Mesa azul"; "Flor roja"; "Flor azul", etc ...! Ahora lo que me gustaría lograr sería tener la última entrada de color real en color (B) ejemplo si en la columna (A) escribo tabla roja En la columna (B) debe aparecer la palabra (tabla de Roso) pero solo la palabra roja Realmente debería ponerse rojo. eso es todo! Gracias de A.Maurizio Treslation : ############### Hi everyone, my name is de And my new …

Hola amigos foreros, que tal estan De nuevo por aquí, haber si me pueden ayudar con este código, la idea es darle formato de numero a la colunma en el listado, he probado varias cosas y no doy con la tela, les agradezco su ayuda El código es el siguiente ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(Lin, 9) Y tengo este también, me devuelve el resultado en la hoja del reves, me explico, tengo en el listbox, la fecha 08/04/2020 y me la devuelve 04/08/2020 cuando la envio a la hoja .Cells(Lin, 4) = ListBox1.Column(3, i) Muchas gracias por su ayuda

Hola a todos, mi nombre es Maurizio y mi nuevo problema es este Es posible, en su opinión, poder obtener un menú desplegable de selección múltiple ¿Aprovechando una "validación de datos"? ¡Si si! ¿Cómo se puede lograr esto usando siempre vba? gracias Traslation : --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Hi everyone, my name is Maurizio and my new problem is this. It is possible, in your opinion, to be able to obtain a multi-selection drop-down menu Taking advantage of a "…

Hola, de nuevo por aquí para hacerles una consulta, tengo un modulo de 32 bits con un código, este me funciona bien en compu de 32 bits, pero no asi en compu de 64 bits, la consulta es la siguiente, puedo poner un modulo con el código de 32 bits. y otro con el de 64 bits, para que me funcionen indistintamente, es posible, se podrían combinar sin problemas, aquí les dejo el codigo Gracias por anticipado, un cordial saludo a todos los foreros Módulo32Bits.bas Módulo64bits.bas

Buenas a todos. Soy completamente nuevo en la programación para Excel y no sé muy bien como explicar el problema, pero lo intentaré lo mejor que pueda. Estoy realizando un ejercicio de programación en el que hay que realizar el siguiente proceso: - Se pulsa un botón para ejecutar un procedimiento en una segunda hoja. - Ese procedimiento toma un dato de esa segunda hoja y lo muestra en la primera hoja Para más detalles: 1. Se pulsa el botón "MOSTRAR PALABRA" en la Hoja "Juego" (hoja2) 2. Se ejecuta el procedimiento "elegir_palabra" en la Hoja "Palabras" (hoja1) que consiste en: - Recorrer las celd…

Buenas tardes a todos. Estoy buscando una macro que me calcule el porcentaje de similitud entre dos celdas. Buscando por internet he encontrado estas macros que calculan justo lo que estaba buscando ( http://miguelmaresmahurtado.com/index.php/2016/03/14/porcentaje-de-similitud-entre-dos-textos/) pero ambas me dan error y no sé arreglarlo. Si alguien pudiera ayudarme o sugerirme otra macro sería de gran utilidad. Adjunto mi ejemplo. Muchas gracias y espero que todos se encuentren sanos y en casa Ejemplo.xlsx

Hola soy nuevo en la programación en vba, tengo un libro compartido en el que al abrirlo se auto ejecuta un macro que hace que el libro se guarde a los 10 mins. de haberlo abierto, este se ejecuta como bucle. Pero tengo un problema, y es que a pesar de que yo cierre el libro de excel, este se vuelve a abrir y ejecutar el macro. Quise usar la opción "Exit Sub" pero no supe cómo programarlo, agradeceré mucho su apoyo. Mis macros para efectuar la tarea son los siguientes: Sub Auto_Open() Hora = Now + TimeValue("00:10:00") Application.OnTime Hora, "Guardar" End Sub Sub guardar() ThisWorkbook.Save Auto_Open End Sub

Hola buenas tardes, soy nuevo en el grupo y en crear macros en excel , he estado aprendiendo a programar vba en las redes. Actualmente le estoy desarrollando un control de clientes y trabajos al negocio de mi hija y poco a poco le he estado creando formularios, aca les dejo el formulario que estoy desarrollando para visualizar los clientes y el trabajo que amerita cada uno así como sus costos. En la visualización en el listbox no he podido encontrar que me traiga el mismo formato que tiene cada columna en la hoja de calculo. Les agradezco la ayuda que me puedan aportar. Gracias Private Sub Combobox1_Change() Dim vtotal As Currency Dim i As…

Buenos dias Tengo un problema con mi código que no acabo de conseguir realizar que me filtre por los dos datos requeridos. A continuación explico las partes del código txt_equipo: se cargan los datos al realizar la búsqueda en el cbo_not, estos datos son iguales que la columna 1 del tabla equipos cbo_tarea_prin: los datos los recoge de la hoja7 . este combo lo tengo como evento clik , estos datos están en la columna 2 de la tabla equipos Lo que necesito es que en el cbo_tarea_prin me aparezcan los datos de la columna 2 que concuerden con los de la columna 1 y que después me los muestre en el listbox1. Espero puedan ayudarme. Gracias …

SOY NUEVO EN ESTE GRUPO, POR FAVOR ALGUIEN ME PODRIA AYUDAR CON LOS CODIGOS; NO PUEDO GUARDAR EN UN FORMULARIO DATOS DE UN TEXTBOX Y LA VEZ DATOS DEL LISTBOX A LA BASE DE DATOS ACCESS DESDE UN FORMULARIO MACRO EXCEL ESTE CODIGO ESTOY UTILIZANDO: ME GRABA ESTOS DATOS, LO QUE NO SE QUE CODIGOS INGRESAR PARA GUARDAR LOS DATOS DE UN LISTBOX TAMBIEN. ALGUIEN ME PUEDA AYUDAR POR FAVOR Sub GrabarReg1() Dim conn As ADODB.Connection Dim MiConexion Dim Rs As ADODB.Recordset Dim MiBase As String If frmFORMULARIO.ComboBox5 = "" Then MsgBox "Campo Vacio, Ingrese una ORDEN", vbExclamation, "Mensaje" 'frmFORMULARIO.ComboBox5.BackColor = &HFF& …

Buenas, estoy teniendo problemas con la funcion split, cuando intento pasar datos de listbox1 a un listbox2 Intento con estas lineas Lineas = Split(ListBox1.List(x, 1), ", ") Lineas1 = Split(ListBox1.List(x, 2), ", ") For i = 0 To UBound(Lineas) For x = 0 To UBound(Lineas1) ListBox2.AddItem ListBox1.List(x) ListBox2.List(ListBox2.List(x,1) = Lineas(i) ListBox2.List(ListBox2.List(x,2) = Lineas1(x) Next i Next x

Hola amigos, saben como crear una macro o con vínculos de datos para eliminar los datos almacenados en un libro, un ejemplo tengo el libro 1, el libro 2 y el libro 3, desde el libro 3 quiero eliminar los datos que están almacenados en el libro 1 y 2 mediante un botón, no se si sea posible, gracias!!

Buenas tardes; Estoy intentando sacar por vba la fecha de captura o la fecha que aparece en un explorador ( Windows ) de unas fotos pero no lo consigo. Los datos que saco son: La fecha de creación. ( .DateCreated ) La fecha de modificación. ( .DateLastModified. ) La fecha del ultimo acceso. ( DateLastAccessed ) y ninguna de esas fechas es ( adjunto pantallazo en el Excel adjunto de las fechas que salen en el explorador ). alguien sabe como lo puedo sacar??. muchísimas gracias. Libro2.xlsx

Buenas tardes. Tengo un ListBox creado con un rango actual seleccionado de RowSource = 'Hoja'!'A1:C20 Dicho rango es una base de datos que irá aumentando en filas, como puedo hacer que dicho rango se adapte a la ultima fila con valores?? Por ejemplo si la ultima es la fila es la 25 que el rango sea 'Hoja'!'A1:C25 y así sucesivamente. Si pongo un rango muy grande me aparecen muchas filas vacias en el ListBox y queria evitarlo. Gracias Esta lista

Buenas a todos. Estoy intentando aplicar formato condicional a un rango de celdas que cumplan con una fórmula. El formato que quiero aplicar quiero copiarlo de otra celda, pero el objeto no me deja pegar de esa forma. Alguna idea? With Range(A2:A6).FormatConditions.Add(xlExpression, , "Formula1") Range("C3").Copy .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End With Modificar cada parámetro a mano si que me deja, pero querría que pillara el formato completo de la celda, para no tener que meter todas las opciones. (Pongo sólo 3 en el ejemplo) With Range("A1:A5").FormatC…

Buenos dias, Les rogaria me pudieran ayudar en esta duda. Tengo algunos excel en xls que los tenia en otro ordenador (que si los abre), al pasarlos a otro con office 2010 no se abren ni cambiando el archivo a xlsm. me dice que el formato de extension no es valido.Les adjunto uno de ellos. agradeciendo de antemano su ayuda- Luis Buscador2.xls

buenas noches consejeros de macros vuelvo a necesitar ayuda, es posible cargar un formulario con listbox con datos de una hoja oculta he estado buscando pero no encuentro el código de antemano muchas gracias por la ayuda PRUEBA4.1.xlsm

Saludos a todos, esperando se encuentren bien. Tengo un plano autocad abierto donde tengo activas o abiertas algunas capas donde quiero que haga la consulta, La cuestion es que necesito extraer la información de la longitud de cada linea o polilinea que se encuentre en ese Plano. Información a extraer: Nombre de la Capa, Tipo (Linea o Polilinea X1, Y1, X2,Y2 Referente a la Polilinea, en la columna de Tipo solo la pondra en principio de la polilinea. Espero su colaboración. gracias. (México)

Hola a todos me gustaría automatizar una función con un formulario, de tal manera que cuando le meta un variable, me la introduzca en una fórmula y la pegue en una celda en particular. La variable será una fecha, para que haga la siguiente fórmula: =SUMAR.SI.CONJUNTO(DIARIO[HORAS VUELO];DIARIO[FECHA];"<="&FECHA(AÑO($A$2);MES($A$2);DIA($A$2));DIARIO[AVION];73) en negritas y subrayado he puesto lo que la variable modificará. Esta variable la meteré en un textbox de un formulario. La fecha que meta en este textbox será la que busque la fórmula que acabo de poner... Para cada avión le pondré una fórmula similar, pero c…

Buenas tardes! Quiero comparar el valor contenido en la variable "vehiculo" con los valores de una lista de 24 elementos, que he almacenado usando FOR EACH, en la matriz "listacalidad" (variable y matriz de tipo String). ¿Alguien sabe cómo puedo resumir el siguiente código? (He buscado por internet y en este foro, y en la documentación de Microsoft y no he localizado ninguna reseña a cómo puedo indicar el total de índices..) If vehiculo = listacalidad(0) Or vehiculo = listacalidad(1) Or vehiculo = listacalidad(2) Or vehiculo = listacalidad(3) Or vehiculo = listacalidad(4) Or vehiculo = listacalidad(5) Or vehiculo = listacalidad(6) Or vehiculo = listacalidad…

buenas noches amigos de la programacion me podrian ayudar con el siguiente codigo en el evento change, este codigo que esta mas abajo me deja en las columnas "J" e "I" fecha y hora respectiva mente pero cuando envio los datos a la hoja consolidad me deja en las 2 primeras celdas debajo de los titulos hora y fecha escritas. he intentado de varias formas sacarlo pero no me resulta nada podrian ayudarme porfavor este es el codigo If Not Application.Intersect(Target, Range("A:E")) Is Nothing Then Range("J" & Target.Row) = Date Range("I" & Target.Row) = Format(Now, "hh:mm") End If y aqui dejo el archivo si lo nesecitan de ante ma…

Buenas!! ? A ver quién puede ayudarme, tengo un libro con más de 100 hojas y quiero que se borre el contenido de todas, menos de dos hojas concretas ("GS" y "Macros") a partir de la celda A3. Me parece que debería ser muy sencillo, pero el código me da error 13 no coinciden los tipos (línea 5? Sub Botón4_Haga_clic_en() Dim hoja As Worksheet For Each hoja In Application.Worksheets If hoja.Name <> "GS" Or "Macros" Then hoja.Range("A3:G6000").Clear End If Next hoja End Sub He probado declarando las hojas que quiero proteger como worksheet y comparando con If hoja.Name <&g…

Buenas noches compañeros, adjunto fichero excel que he modificado en función de mis necesidades. En su momento fue colgado en este foro por Antoni (un grandísimo trabajo) y yo he intentado amoldarlo para que se adapte a lo que necesito dentro de la gestión de proyectos. Mi pregunta es si es posible que las barras que se generan puedan incluir además el estado de progreso que se representa en la columna I Muchas gracias TOR_PRUEBA_2.xlsm

Buenas, tengo el siguiente código: Private Sub CommandButton106_Click() Hoja2.Select Hoja2.Range("B1").Select While ActiveCell.Offset(0, 6) <> Empty ActiveCell.Offset(1, 0).Select boton = ActiveCell.Offset(0, 6) <======= En ésta linea de código obtengo el nombre de un botón que se encuentra digitado en una celda. (Ejemplo: "CommandButton6") y es almacenado en la variable boton, tal como se muestra. If Hoja1.txtcodigo.Text = ActiveCell Then boton.BackColor = &HFF& <======= Aquí está el problema, cuando quiero hacer referencia a ese nombre como un botón, no lo reconoce (Ejemplo: CommandButton6.Backcolor=&HFF…