¿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
Note: 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
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!