Excel - En makro for å fylle ut data basert på kriterier

Utgave

Jeg vil gjerne fylle data fra 1 ark til et annet ark basert på visse kriterier. Med henvisning til utvalgsdataene som er oppgitt i lenken nedenfor:

• Populere data i et nytt ark kalt "Slow Moving" når kolonne H er mer enn 90 og kolonne D ikke lik null.
• Populere data i et nytt ark kalt "Ikke flytting" når kolonne G er null og kolonne D ikke lik null.

Løsning

Prøv denne makroen:

Sett inn de to arkene "Slow Moving" og "Non Movingt". Kjør denne makroen (i makroen skal regnearkets navn være akkurat som arknavnene):

 Sub-test () Dim j Så lenge, k Fjern så lenge regneark ("6200_Data"). Aktiver k = Range ("a6"). End (xlDown) .Row For j = 1 til k Hvis celler (j, "H" )> 90 og celler (j, "D") 0 Så celler (j, "A"). HeleRow.Copy _ Worksheets ("Slow Moving"). Celler (Rows.Count, "A"). End (xlUp) .Offset (1, 0) Hvis Celler (j, "G") = 0 Og Celler (j, "D") 0 Deretter Celler (j, "A") .HeleRow.Copy _ Regneark ("Ikke-flytende"). Celler (Rows.Count, "A"). End (xlUp) .Offset (1, 0) Neste j Regneark ("Slow Moving"). UsedRange.Columns.AutoFit End Sub Sub Undo () Worksheets .Cells.Clear Worksheets ("Non Moving"). Cells.Clear End Sub 

Takk til Venkat1926 for dette tipset.