Dante Amor

En las propiedades del userform cambia la propiedad ShowModal a False

Lo siguiente crea una hoja nueva al inicio de todas tus hojas. En la columna A pone los datos de I6 y en la columna B pone los datos de F8 Sub extraer_datos() Dim sh As Worksheet, sh1 As Worksheet, a As Variant, i As Long ' ReDim a(1 To Sheets.Count,...

Prueba así: If Me.cbo_not.Text = Empty Or _ Me.txt_fecha.Text = Empty Or _ Me.eje1.Text = Empty Or _ Me.eje2.Text = Empty Or _ Me.ListBox1.ListCount = 0 Or _ Me.ListBox2.ListCount = 0 Then MsgBox "Hay cambios vacios en el PARTE""" Exit Sub End If

Prueba lo siguiente> lr = ActiveSheet.Columns(1).Find("*", , xlValues, , xlByRows, xlPrevious).Row Resp = ComboBuscar.Value For Ren = 3 To lr If UCase(Resp) = UCase(Cells(Ren, "A")) Then Cells(Ren, Cols).Interior.ColorIndex = 8 End If Next Ren

Supongo que tienes algo como esto en los archivos texto: HTA9999 HTA1234 HTA4444 Es decir, después del código HTA existe un número sin espacios. Prueba la siguiente macro. Ajusta en el código la carpeta, la hoja y la fila para poner los resultados....

¿Quieres añadir otros datos en el mismo item? Es decir, si en el listbox tienes 3 columnas, quieres agregar las columnas 4, ¿5 y 6? ¿Y quieres agregar 3 datos a los registros filtrados?

Aquí te dejo otra macro con otro enfoque para tu consideración. Sub CambiarColor() Dim codigo As Variant, a As Variant, hs As Variant Dim i As Long, h As Long, r As Range, existe As Boolean codigo = Application.InputBox("ingresar un número de...

Aquí otra macro para tu consideración: Sub CopiarDatos() Dim c As Range, dic As Object Set dic = CreateObject("Scripting.Dictionary") For Each c In Range("P2", Range("P" & Rows.Count).End(3)) dic(c.Value) = Empty Next For Each c In Range("M2",...

Aquí otra macro para ti a considerar: Sub CopiarDatos() Dim i As Long For i = 2 To Range("A" & Rows.Count).End(3).Row Range("E" & Rows.Count).End(3)(2).Resize(Cells(i, "C"), 3).Value = Range("A" & i).Resize(1, 3).Value Next End Sub Tus datos en las...

Necesitamos agregar un identificador al momento de cargar los datos en el list_equipaments. Generalmente en la carga inicial pongo el número de fila, de esa manera sabremos cuál registro corresponde cuando lo seleccionas. Podrías poner todo tu código...