¿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
Note: 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"Terminado”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.
Note: 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 existentes Tipo de selección sección, seleccionar Equivale existentes Tipo específico lista desplegable, ingrese el valor de la celda en el cuadro de texto y luego haga clic en el OK del botón.
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.
Note: 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ías) 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
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!