¿Cómo mover una fila completa a otra hoja según el valor de una celda en Excel?
Para mover una fila completa a otra hoja en función del valor de una celda, este artículo le ayudará.
Mover Fila completa a otra hoja en función del valor de una celda con código VBA
Mover Fila completa a otra hoja en función del valor de una celda con Kutools para Excel
Mover Fila completa a otra hoja en función del valor de una celda con código VBA
Como se muestra en la siguiente captura de pantalla, debe mover toda la fila de Hoja1 a Hoja2 si la columna C contiene la palabra específica «Done». Puede probar el siguiente código VBA.
1. Pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, 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 SubNota: En el código, Hoja1 es la hoja de cálculo que contiene la fila que desea mover, y Hoja2 es la hoja de destino donde se ubicará dicha fila. «C:C» es la columna que contiene el valor determinado, y la palabra «Done» es el valor específico en función del cual se moverá la fila. Adáptelos según sus necesidades.
3. Pulse la tecla F5 para ejecutar el código; a continuación, la fila que cumpla los criterios en Hoja1 se moverá inmediatamente a Hoja2.
Nota: El código VBA anterior elimina las filas de los datos originales tras moverlas a una hoja de cálculo especificada. Si únicamente desea copiar filas en función del valor de una celda, sin eliminarlas, utilice 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 SubMover Fila completa a otra hoja en función del valor de una celda con Kutools para Excel
Si es nuevo en el código VBA, le presentamos la utilidad Seleccionar celdas específicas de Kutools para Excel. Con esta herramienta, podrá seleccionar fácilmente todas las filas según un valor determinado o varios valores de celda en una hoja de cálculo y, a continuación, copiar las filas seleccionadas a la hoja de destino que necesite. Siga estos pasos.
1. Seleccione la columna que contiene el valor de celda en función del cual moverá las filas y, a continuación, haga clic en Kutools > Seleccionar > Seleccionar celdas específicas. Vea la captura de pantalla:
2. En el cuadro de diálogo Seleccionar celdas específicas que se abre, elija Fila completa en la sección Seleccionar tipo, seleccione Igual a en el menú desplegable Especificar tipo, introduzca el valor de la celda en el cuadro de texto y, a continuación, haga clic en el botón Aceptar.
A continuación, aparece otro cuadro de diálogo Seleccionar celdas específicas que le indica el número de filas seleccionadas; al mismo tiempo, se han seleccionado todas las filas que contienen el valor especificado en la columna elegida. Vea la captura de pantalla:
3. Pulse las teclas Ctrl+C para copiar las filas seleccionadas y, a continuación, péguelas en la hoja de destino que necesite.
Nota: Si desea mover filas a otra hoja de cálculo en función de dos valores distintos de celda, por ejemplo, mover filas cuyos valores sean «Done» o «Processing», puede activar la condición Oen el cuadro de diálogo Seleccionar celdas específicastal como se muestra en la siguiente captura de pantalla:
Si desea probar gratuitamente (30 días) esta utilidad, haga clic aquí para descargarla y, a continuación, siga los pasos anteriores para aplicar la operación.
Artículos relacionados:
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos