¿Cómo copiar filas de varias hojas de cálculo a una hoja nueva según criterios específicos?

Supongamos que tiene un libro con tres hojas de cálculo con el mismo formato, como se muestra en la siguiente captura de pantalla. Ahora desea copiar todas las filas de estas hojas cuya columna C contenga el texto “Completed” a una hoja de cálculo nueva. ¿Cómo podría resolver este problema de forma rápida y sencilla sin tener que copiarlas y pegarlas manualmente una por una?

Copiar filas de varias hojas de cálculo según criterios a una hoja nueva con código VBA

---

Copiar filas de varias hojas de cálculo según criterios a una hoja nueva con código VBA

El siguiente código VBA le permite copiar filas específicas de todas las hojas del libro que cumplan una determinada condición a una nueva hoja de cálculo. Siga estos pasos:

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del módulo.

Código VBA: Copiar filas de varias hojas según criterios a una hoja nueva

Public Sub CopyRows_ValuesAndNumberFormats()
Dim xWs As Worksheet
Dim xCWs As Worksheet
Dim xRg As Range
Dim xStrName As String
Dim xRStr As String
Dim xRRg As Range
Dim xC As Integer
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Kutools for Excel"
xRStr = "Completed"
Set xCWs = ActiveWorkbook.Worksheets.Item(xStr)
If Not xCWs Is Nothing Then
    xCWs.Delete
End If
Set xCWs = ActiveWorkbook.Worksheets.Add
xCWs.Name = xStr
xC = 1
For Each xWs In ActiveWorkbook.Worksheets
    If xWs.Name <> xStr Then
        Set xRg = xWs.Range("C:C")
        Set xRg = Intersect(xRg, xWs.UsedRange)
        For Each xRRg In xRg
            If xRRg.Value = xRStr Then
               xRRg.EntireRow.Copy
               xCWs.Cells(xC, 1).PasteSpecial xlPasteValuesAndNumberFormats
               xC = xC + 1
            End If
        Next xRRg
    End If
Next xWs
Application.DisplayAlerts = True
End Sub

Nota: En el código anterior:

• El texto “Completed” en este xRStr = «Completed»script indica la condición específica según la cual desea copiar filas;
• C:C en este Set xRg = xWs.Range(«C:C») script indica la columna en la que se encuentra la condición.

3. A continuación, pulse la tecla F5 para ejecutar este código y todas las filas que cumplan la condición específica se copiarán y pegarán automáticamente en una hoja de cálculo nueva denominada «Kutools para Excel» dentro del libro de trabajo actual. Vea la captura de pantalla:

---

---

Más artículos relacionados sobre extracción o copia de datos: