У овом чланку ћемо користити догађај промене радног листа за пренос података са једног листа на други, у зависности од одређеног услова.
Сирови подаци се састоје од података о кориснику, који укључују име, адресу, град, регију, државу и број телефона.
У овом чланку желимо да пренесемо податке оних купаца који не испуњавају услове за одређену понуду. Последња колона садржи „Не“ као вредност, ако купац не испуњава услове за одређену понуду. Желимо да копирамо те клијенте који не испуњавају услове на листу „НотЕлигиблеДата“.
Објашњење кода
Ако је Таргет.Цолумн = 7 Тада
Горњи код се користи за ограничавање извршавања догађаја промене радног листа само када је вредност у 7тх колона је промењена.
Табеле („НотЕлигиблеДата“). Распон („А2: И600“). ЦлеарЦонтентс
Горњи код се користи за брисање вредности из опсега А2: И600
Табеле ("Главни"). Ћелије (и, "Г"). Одредиште целинеРов.Цопи: = Табеле ("НотЕлигиблеДата"). Опсег ("А" & Редови.Цоунт). Крај (клУп) .Оффсет (1)
Горњи код се користи за копирање корисника који не испуњавају услове на листу „НотЕлигиблеДата“.
Молимо следите доле за код
Привате Суб Ворксхеет_Цханге (БиВал Таргет Ас Ранге) 'Декларисање променљивих Дим и, Ластров Ас Лонг' Изврши код ако се промени вредност у седмој колони Иф Таргет.Цолумн = 7 Затим 'Добијање броја реда последње ћелије Ластров = Схеетс ("Маин" ) .Ранге ("А" & Ровс.Цоунт) .Енд (клУп) .Ров 'Брисање свих претходних података са листова листа "НотЕлигиблеДата" ("НотЕлигиблеДата"). Распон ("А2: И600"). ЦлеарЦонтентс' Понављање од десетог ред до последњег реда За и = 10 За последње 'Ако је вредност у колони Г реда "Не", копирајте ред на одредишни лист Иф Схеетс ("Маин"). Целлс (и, "Г"). Валуе = " Не "Тада листови (" Главни "). Ћелије (и," Г "). Одредиште ЕнтиреРов.Цопи: = Табеле (" НотЕлигиблеДата "). Опсег (" А "& Редови.Цоунт). Крај (клУп) .Оффсет ( 1) Енд Иф Нект и Енд Иф Ранге ("А1"). Одаберите Енд Суб
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште
