Excel - Una macro para rellenar datos basados ​​en criterios

Problema

Me gustaría llenar los datos de 1 hoja a otra hoja en función de ciertos criterios. Con referencia a los datos de muestra proporcionados en el siguiente enlace:

• Rellene los datos en una nueva hoja llamada "Movimiento lento" cuando la Columna H tenga más de 90 y la columna D no sea igual a cero.
• Llene los datos en una nueva hoja llamada "Sin movimiento" cuando la columna G es cero y la columna D no es igual a cero.

Solución

Prueba esta macro:

Inserte las dos hojas "Despacio" y "Sin movimiento". Ejecute esta macro (en la macro el nombre de las hojas de trabajo debe ser exactamente como los nombres de las hojas):

 Prueba secundaria () Dim j tanto tiempo, k como tiempo deshacer Hojas de trabajo ("6200_Data"). Activar k = Rango ("a6"). Fin (xlDown). Fila para j = 1 To k If Cells (j, "H" )> 90 And Cells (j, "D") 0 Then Cells (j, "A"). EntireRow.Copy _ Worksheets ("Slow Moving"). Cells (Rows.Count, "A"). End (xlUp) .Offset (1, 0) If Cells (j, "G") = 0 And Cells (j, "D") 0 Then Cells (j, "A"). EntireRow.Copy _ Worksheets ("Non Moving"). Celdas (Rows.Count, "A"). End (xlUp) .Offset (1, 0) Next j Worksheets ("Slow Moving"). UsedRange.Columns.AutoFit End Sub Undo () Worksheets ("slow Moving") .Cells.Clear Worksheets ("Non Moving"). Cells.Clear End Sub 

Gracias a Venkat1926 por este consejo.