Pregunta:

Al ingresar un nombre de hoja en la columna D, la fila de la entrada se moverá a la hoja respectiva

Respuesta:

Inserte el siguiente código en el módulo Este libro.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim wks As Worksheet

Dim intRow As Integer

If Target.Column <> 4 Then Exit Sub

If IsEmpty(Target) Then Exit Sub

On Error Resume Next

Set wks = Worksheets(Target.Value)

If Err > 0 Or wks Is Nothing Then

MsgBox "Sheet name Not Found!"

Exit Sub

End If

On Error GoTo 0

With wks

intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1

.Range(.Cells(intRow, 1), .Cells(intRow, 3)).Value = _

Range(Cells(Target.Row, 1), Cells(Target.Row, 3)).Value

End With

Rows(Target.Row).Delete

End Sub