Anónimo respondió:
Private Sub CommandButton1_Click() Sheets("hoja1").select ' Se agrego esta linea cad = Range("A:A").Find(Me.TextBox1.Text).Offset(0, 1) Me.TextBox2.Text = cad End Sub La linea que se agrego selecciona la hoja1 y dentro de esa hoja realiza el...