@Gerson PinedaMuchas gracias.
Os lo agradezco a los dos, me va a ir bien cualquiera de las fórmulas. Y sino en este fichero en otro con la misma situación.
Moisés.
Private Sub CommandButton11_Click()
Dim Descarga As Range
Set Descarga = Sheets("Hoja2").Columns("C").Find(TextBox2, lookat:=xlWhole)
If Not Descarga Is Nothing Then
Descarga.EntireRow.Delete
CommandButton6_Click
End If
End Sub
'---------
Private Sub CommandButton6_Click()
TextBox2.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox23.Text = "" '<-------------------- estaba mal
TextBox2.SetFocus ' EL SetFocus devuelve el cursor al inicio
End Sub
Estimado Antoni:
Gracias por responder. Lamentablemente no puedo realizar la sugerencia realizada. Porque el requerimiento expuesto es solo una parte de una macro que estoy realizando.
La macro después de mover las hojas mencionada, seguirá realizando otro proceso que requiere de ese paso de manera previa.