hugolaza

Este pequeño código copiará todo lo que escribas en la Hoja "Pets Base" a la Hoja "Pets Vivo" Dim Celda Private Sub Worksheet_Activate() Celda = ActiveCell.Address End Sub Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Pets...

Si en tu código cambias la linea 3 así : Selection.AutoFilter Field:=2, Criteria1:="=" & Range("k5") A mi me funcionó. ¿Es ese el problema o es algo más?

Necesitaría mayores datos acerca de tu macro, como número de TextBoxs en tu UserForm o la forma como ingresas lo datos cuyo resultado aparece en la Hoja1. Posiblemente estas utilizando ControlSource para enlazar el contenido de una celda de la Hoja1...