Adriel Ortiz Mangia

[Hola Te paso la macro Sub copiar() ' ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") col = "A" 'columna a copiar col2 = "B" 'columna a evaluar j = 2 For i = 2 To h1.Range(col & Rows.Count).End(xlUp).Row If h1.Cells(i, col2) <> "" Then...

[Hola Esto te ayudará de caso contrario detalla el resultado que necesitas Macro para comparar datos en libros

[Hola Te paso la macro si desea en forma automática, pon la macro en Worksheet_Change de la hoja Private Sub Worksheet_Change(ByVal Target As Range) 'VALORA LA RESPUESTA PARA FINALIZAR ' ' If Not Intersect(Target, Range("M19")) Is Nothing Then...

[Hola Te paso la macro Sub SEPARA_CADENA() ' 'VALORA LA RESPUESTA PARA FINALIZAR Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' k = 1 h2.Cells.ClearContents For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If InStr(1, h1.Cells(i, "A"), "")...

[Hola En la propiedad del formulario busca SHOWMODAL y cambia a FALSE Valora la respuesta con manito arriba si te fue útil

[Hola Te propongo que cada que haces clic en la celda te muestre el formulario Pon la macro en la hoja que vas a usar Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then UserForm1.Show...

[Hola Explica con otro ejemplo describiendo el resultado que necesitas

[Hola Crea una hoja BASE para copiar los datos de las hojas que necesitas Sub copiar() Application.ScreenUpdating = False For Each h In Sheets Set h1 = Sheets("BASE") If h.Name <> h1.Name Then u = 36 u1 = h1.Range("B" & Rows.Count).End(xlUp).Row + 1...

[Hola Prueba con esto para limpiar LstPresupuestosFiltrados. Clear

[Hola pon la macro en el evento selectionchange de la hoja donde están tus datos Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Valora la respuesta para finalizar ' UserForm1.TextBox1 = Cells(ActiveCell.Row, "A") UserForm1.TextBox2 =...