Adriel Ortiz Mangia

[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 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 =...

[Hola Crear Macro para guardar archivo con extensión CSV (asignando ciertas celdas)

[Hola Entonces puedes usar esto https://www.gerencie.com/enviar-varias-hojas-de-un-libro-de-excel-a-imprimir-o-archivo.html

[Hola Te paso la macro Sub prueba() valor = Range("A12").Value Set r = Rows(13) Set busca = r.Find(valor, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Nothing Then MsgBox "Dato encontrado en :" & busca.Address, vbInformation Else MsgBox "No...