¿Cómo mover la fila completa a otra hoja según el valor de la celda en Excel?
Para mover una fila completa a otra hoja según el valor de la celda, este artículo lo ayudará.
Mueva toda la fila a otra hoja según el valor de la celda con código VBA
Mueva toda la fila a otra hoja según el valor de la celda con Kutools para Excel
Mueva toda la fila a otra hoja según el valor de la celda con código VBA
Como se muestra en la siguiente captura de pantalla, debe mover toda la fila de Sheet1 a Sheet2 si existe una palabra específica "Listo" en la columna C. Puede probar el siguiente código VBA.
1. Prensa otro+ F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en recuadro > Módulo. Luego copie y pegue el siguiente código VBA en la ventana.
VBA code 1: Move entire row to another sheet based on cell value
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Done" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Nota:: En el código, Sheet1 es la hoja de trabajo que contiene la fila que desea mover. Y Sheet2 es la hoja de trabajo de destino donde ubicará la fila. "C: C"Es la columna que contiene el valor determinado y la palabra"Terminados”Es el valor seguro en el que moverá la fila. Cámbielos según sus necesidades.
3. presione el F5 para ejecutar el código, la fila que cumpla con los criterios en Sheet1 se moverá a Sheet2 inmediatamente.
Nota:: El código VBA anterior eliminará las filas de los datos originales después de pasar a una hoja de trabajo específica. Si solo desea copiar filas según el valor de la celda en lugar de eliminarlas. Aplica el siguiente código VBA 2.
VBA code 2: Copy entire row to another sheet based on cell value
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Mueva toda la fila a otra hoja según el valor de la celda con Kutools para Excel
Si eres novato en el código VBA. Aquí les presento el Seleccionar celdas específicas utilidad de Kutools for Excel. Con esta utilidad, puede seleccionar fácilmente todas las filas según un determinado valor de celda o diferentes valores de celda en una hoja de trabajo, y copiar las filas seleccionadas a la hoja de trabajo de destino según lo necesite. Haz lo siguiente.
Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.
1. Seleccione la lista de columnas que contiene el valor de celda en el que moverá las filas, luego haga clic en Kutools > Seleccione > Seleccionar celdas específicas. Ver captura de pantalla:
2. En la apertura Seleccionar celdas específicas cuadro de diálogo, elija Fila completa en el capítulo respecto a la Tipo de selección sección, seleccionar Equivale en el capítulo respecto a la Tipo específico lista desplegable, ingrese el valor de la celda en el cuadro de texto y luego haga clic en el OK
Otra Seleccionar celdas específicas El cuadro de diálogo aparece para mostrarle el número de filas seleccionadas, y mientras tanto, todas las filas contienen el valor especificado en la columna seleccionada. Ver captura de pantalla:
3. presione el Ctrl + C claves para copiar las filas seleccionadas y luego pegarlas en la hoja de trabajo de destino que necesita.
Nota:: Si desea mover filas a otra hoja de trabajo en función de dos valores de celda diferentes. Por ejemplo, mueva filas según los valores de celda, ya sea "Listo" o "Procesando", puede habilitar el Or condición en el Seleccionar celdas específicas cuadro de diálogo como se muestra a continuación:
Si desea tener una prueba gratuita (30-día) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
Artículos relacionados:
Las mejores herramientas de productividad de oficina
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
- Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
- Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
- Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
- Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
- Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
- Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!































































