Adriel Ortiz Mangia

[Hola Te paso la macro Valora la respuesta para finalizar Private Sub CommandButton1_Click() Set r = Range("A1:A200") Set b = r.Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then f = b.Row TextBox2.Text = Cells(f, "B") Else MsgBox "Dato no...

[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

Usa esto =SI.ERROR(PROMEDIO(A1:E1),"") para controlar el error usa la función SI.ERRO()