Note: The other languages of the website are Google-translated. Back to English

¿Cómo copiar filas y pegarlas en otra hoja según la fecha en Excel? 

Supongamos que tengo un rango de datos, ahora quiero copiar las filas completas en función de una fecha específica y luego pegarlas en otra hoja. ¿Tiene alguna buena idea para hacer frente a este trabajo en Excel?

Copie filas y péguelas en otra hoja según la fecha de hoy

Copie filas y péguelas en otra hoja si la fecha es mayor que hoy


Copie filas y péguelas en otra hoja según la fecha de hoy

Si necesita copiar las filas si la fecha es hoy, aplique el siguiente código VBA:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código de VBA: copie y pegue filas según la fecha de hoy:

Sub CopyRow()
'Updateby Extendoffice
    Dim xRgS As Range, xRgD As Range, xCell As Range
    Dim I As Long, xCol As Long, J As Long
    Dim xVal As Variant
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xCol = xRgS.Rows.Count
    Set xRgS = xRgS(1)
    Application.CutCopyMode = False
    J = 0
    For I = 1 To xCol
        Set xCell = xRgS.Offset(I - 1, 0)
        xVal = xCell.Value
        If TypeName(xVal) = "Date" And (xVal <> "") And (xVal = Date) Then
            xCell.EntireRow.Copy xRgD.Offset(J, 0)
            J = J + 1
        End If
    Next
    Application.CutCopyMode = True
End Sub

3. Después de pegar el código anterior, presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que seleccione la columna de fecha en la que desea copiar las filas, vea la captura de pantalla:

4. Luego haga clic OK , en otro cuadro de solicitud, seleccione una celda en otra hoja donde desea generar el resultado, vea la captura de pantalla:

5. Y luego haz clic OK botón, ahora, las filas cuya fecha es hoy se pegan en la nueva hoja a la vez, ver captura de pantalla:


Copie filas y péguelas en otra hoja si la fecha es mayor que hoy

Para copiar y pegar las filas cuya fecha es mayor o igual a hoy, por ejemplo, si la fecha es igual o mayor a 5 días desde hoy, entonces copie y pegue las filas en otra hoja.

El siguiente código VBA puede hacerte un favor:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código de VBA: copie y pegue filas si la fecha es mayor que hoy:

Sub CopyRow()
'Updateby Extentoffice
    Dim xRgS As Range, xRgD As Range, xCell As Range
    Dim I As Long, xCol As Long, J As Long
    Dim xVal As Variant
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xCol = xRgS.Rows.Count
    Set xRgS = xRgS(1)
    Application.CutCopyMode = False
    J = 0
    For I = 1 To xCol
        Set xCell = xRgS.Offset(I - 1, 0)
        xVal = xCell.Value
        If TypeName(xVal) = "Date" And (xVal <> "") And (xVal >= Date And (xVal < Date + 5)) Then
            xCell.EntireRow.Copy xRgD.Offset(J, 0)
            J = J + 1
        End If
    Next
    Application.CutCopyMode = True
End Sub

Nota:: En el código anterior, puede cambiar los criterios, como menos que hoy o el número de días que necesita en el Si TypeName (xVal) = "Fecha" Y (xVal <> "") Y (xVal> = Fecha Y (xVal <Fecha + 5)) Entonces código de secuencia de comandos.

3. Entonces presione F5 clave para ejecutar este código, en el cuadro de aviso, seleccione la columna de datos que desea usar, vea la captura de pantalla:

4. Luego haga clic OK , en otro cuadro de solicitud, seleccione una celda en otra hoja donde desea generar el resultado, vea la captura de pantalla:

5. Haga clic en OK , ahora, las filas cuya fecha es igual o superior a 5 días desde hoy se han copiado y pegado en la nueva hoja como se muestra en la siguiente captura de pantalla:


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.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (3)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
¿Es posible hacer esto para un libro de trabajo completo si la fecha siempre está en la misma columna en cada uno? Si es así, ¿cuál sería el código VBA o qué bit cambiaría?
Este comentario fue minimizado por el moderador en el sitio
¿Obtuviste una respuesta sobre esto?
Este comentario fue minimizado por el moderador en el sitio
Igual aquí. Realmente me gustaría una respuesta!
MUCHAS GRACIAS YA EXTENDOFFICe :D
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL