Adriel Ortiz Mangia

[Hola cambia estas líneas hoja = UserForm1.ListBox1.List(ListBox1.ListIndex, 2) fila = UserForm1.ListBox1.List(ListBox1.ListIndex, 3) por Hoja = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 2) fila = UserForm1. ListBox1. List(UserForm1....

[Hola Cambia ActiveSheet. Paste Range("B3").Select por esto ActiveSheet. Range("B3"). PasteSpecial xlValues

[Hola Te paso la macro Valora para finalizar saludos! Sub copiar() '//TodoExpertos ' Application.ScreenUpdating = False Set h1 = Sheets("Registros") u = h1.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To u hoja = h1.Cells(i, "A") Select Case hoja...

[Hola prueba con esto Sub imprimir() ' hoja = "Hoja1" ' Hoja portada For Each h In Sheets If LCase(h.Name) <> LCase(hoja) Then h.PrintOut End If Next h End Sub

[Hola En la propiedad del formulario cambia Modal = true a False, entonces podrás acceder a la hojas cuando el formulario esté en ejecución.

[Hola Probé la macro y me funciona Tal vez falta ordenar la controles revisa esto Ordenar Controles en un UserForm en Excel

[Hola ¿En cuál columna se va buscar?

[Hola pon en el evento change Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("AW1:AY1")) Is Nothing Then Call msg End If End Sub valora la respuesta para finalizar

[Hola Para escribir en mayúscula en cada textbox debe poner esto Private Sub TextBox1_Change() TextBox1 = UCase(TextBox1) End Sub para permitir solo números Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii < 48 Or...

[Hola Este caso ya está resuelto Macro para Buscar un Registro y Eliminarlos continuación