Victor Perdomo

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

Te comento algo, lo que pides en complejo, por una razón, al momento de deseleccionar la fila, debe de volver al formato que tenia anteriormente, y eso es complejo de lograr. La mejor solución a tu problema RowLiner, un excelente complemento...

En el evento Change del combobox puedes usar un select case Private Sub ComboBox1_Change() Select Case ComboBox1.Value ' Evalúa la letra Case "A" TextBox1.Value = "Alcancia" Case "B" TextBox1.Value = "Becindario" End Select End Sub...

Puedes usar la función range. Find() Te envío una hoja con el funcionamiento. Aunque el filtro esta en la hoja, aplica exactamente igual para un userform. Solo seria en el evento change del filtro. Y en vez de target seria filtro.value....

Enviame una copia a [email protected]

Prueba esta macro y me cuentas como te fue Sub Macro1() ' ' By Viktor ' Sheets("FACTURA").Copy ActiveWorkbook.SaveAs Filename:= _ "D:\Mis documentos\PADRE\MIS TRABAJOS\PRESUPUESTOS\factura materiales\" & Range("I3") & ".xlsx", _...

Tienes que colocar en la celda A1, en datos-validación de datos-Permitir-Personalizada: =Y(A1="X";CONTAR.SI($A1:$E1;"X")<3) Solo copias y pegas en tu rango