Necesito hacer una macro que a partir de determinados datos me copie datos a otra hoja
Necesito hacer una macro que a partir de datos que se encuentran en la Hoja1 y si los valores de la columna Indicador son mayores que 2,0 (Decimal) me copie los datos de dicha fila en Hoja2. Los datos de la Hoja1 son:
- Fecha (ames)
- Rut
- Nombre
- Gerencia
- Area
- Fecha_ini
- Días Legales
- Días pendientes Final
- Días pendientes al inicio
- Días Ganados
- Días Tomados
- Días Hábiles
- Indicador
1 Respuesta
A ver si esto te ayuda
Tenes que crear un boton en la hoja1
Private Sub CommandButton1_Click()
copiar
End Sub
y despues crear un modulo
y pegar lo siguiente
Sub copiar()
Dim ultfila As Integer
ultfila = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ultfila
Worksheets("hoja1").Activate
Cells(i, 1).Select
If ActiveCell.Offset(0, 11) > 2 Then
Range(Cells(i, 1), Cells(i, 12)).Copy
Worksheets("hoja2").Activate
Range("A2").Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Else
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub
Creo que con eso andaria
Si tenes alguna duda consultame sino porfavor no te olvide de calificarme
¿Te sirvió la respuesta?
