Excel - Makro, joka täyttää kriteerien mukaiset tiedot

Ongelma

Haluaisin täyttää tiedot 1 arkista toiseen arkkiin tiettyjen kriteerien perusteella. Viittaamalla alla olevassa linkissä oleviin näytetietoihin:

• Lisää tiedot uuteen arkkiin nimeltä "Hidas liikkuminen", kun sarake H on yli 90 ja sarake D ei ole nolla.
• Lisää tiedot uuteen arkkiin, jota ei ole siirretty, kun sarake G on nolla ja sarake D ei ole nolla.

Ratkaisu

Kokeile tätä makroa:

Aseta kaksi arkkia "Slow moving" ja "Non Movingt". Suorita tämä makro (makroissa työarkkien nimi on täsmälleen sama kuin arkin nimet):

 Sub-testi () Dim j As Long, k Kuten Long Undo Worksheets ("6200_Data") Aktivoi k = Range ("a6"). End (xlDown) .Row for j = 1 To k Jos solut (j, "H") )> 90 ja solut (j, "D") 0 Sitten solut (j, "A"). EntireRow.Copy _ Työarkit ("Hidas liikkuminen"). Solut (rivit.Laskenta, "A"). .Offset (1, 0) Jos solut (j, "G") = 0 ja solut (j, "D") 0 Sitten solut (j, "A"). EntireRow.Copy _ Työarkit ("Ei liikkuva"). Solut (rivit.Luku, "A") Loppu (xlUp) .Offset (1, 0) Seuraava j Työarkit ("Hidas liikkuminen") UsedRange.Columns.AutoFit Loppu alivaiheen peruuttaminen () Työarkit ("hidas liikkuminen") .Cells.Clear Worksheets ("Muuttumaton") Cells.Clear End Sub 

Kiitos Venkat1926: lle tästä vinkistä.