Victor Perdomo

Prueba el siguiente código+ Private Sub CommandButton1_Click() Dim WSheet As Worksheet If TextBox1.Value <> TextBox2.Value Then MsgBox "Contraseñas no concuerdan" Exit Sub End If On Error GoTo controlerror For Each WSheet In Worksheets If...

Si quieres enviame una copia de tu archivo a [email protected]

Te puedo ayudar. Pero no es mejor que adjuntes un archivo, en vez de copiar en el body todo ese rango.

Las fijas presionando f4 en la formula, sobre el rango, puedes fijar una fila o una columna dependiendo que tantas veces lo presiones. En resumen la formula quedaría asi =Vlookup($O2;Sheet1!$A$1:$B$25;2;FALSO)

Me envías una copia de tu libro a [email protected]

Para agilizar la respuesta, me puedes enviar un ejemplo de tu hoja a [email protected]

A ver si te entendí, Quieres que la hoja filtre nombre a nombre y lo envíe a la impresora.

¿Pero lo vas a pegar en una hoja del mismo libro? O en otro libro

En primer lugar selecciona tu rango en la Hoja 01 donde deben estar los datos, y dale el nombre Rango El código para el botón seria el siguiente Sub Botón1_Haga_clic_en() Worksheets("Hoja 01").Range("Rango").Value = ActiveSheet.Range("h6").Value End...

SI cambias Sheers("B01") por ActiveSheet