Екцел - Макро за попуњавање података на основу критеријума

Питање

Желео бих да попуним податке са једног листа на други лист на основу одређених критеријума. У вези са примерима података датих у доњој вези:

• Попуните податке у нови лист под називом "Спори покрет" када је Колона Х већа од 90 и колона Д није једнака нули.
• Попуните податке у нови лист под називом "Нон Мовинг" када је Ступац Г нула и ступац Д није једнак нули.

Решење

Испробајте овај макро:

Уметните два листа "Слов мовинг" и "Нон Мовингт". Покрените овај макро (у макроу име радног листа треба да буде тачно као имена листа):

 Суб тест () Дим ј Ас Лонг, к Ас Лонг ундо Ворксхеетс ("6200_Дата") Активирајте к = Ранге ("а6"). Енд (клДовн) .Ров За ј = 1 То к Ако Целлс (ј, "Х") )> 90 И Ћелије (ј, "Д") 0 Затим ћелије (ј, "А"). ЕнтиреРов.Цопи _ Ворксхеетс ("Слов Мовинг") .Целлс (Ровс.Цоунт, "А"). Енд (клУп) Оффсет (1, 0) Ако су ћелије (ј, "Г") = 0 и ћелије (ј, "Д") 0 Затим ћелије (ј, "А"). ЕнтиреРов.Цопи _ Ворксхеетс ("Нон Мовинг"). Целлс (Ровс.Цоунт, "А") Енд (клУп) .Оффсет (1, 0) Нект ј Ворксхеетс ("Слов Мовинг") УсеРанге.Цолумнс.АутоФит Енд Суб Суб ундо () Ворксхеетс ("слов Мовинг") .Целлс.Цлеар Ворксхеетс ("Нон Мовинг"). Целлс.Цлеар Енд Суб 

Хвала Венкат1926 за овај тип.