¿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.
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!
