В тази статия ще използваме събитие за смяна на работния лист, за да прехвърлим данни от един лист в друг, в зависимост от определено условие.
Суровите данни се състоят от данни за клиента, които включват име, уличен адрес, град, регион, държава и телефонен номер.
В тази статия искаме да прехвърлим данни на тези клиенти, които не отговарят на условията за конкретна оферта. Последната колона съдържа „Не“ като стойност, ако клиент не отговаря на условията за конкретна оферта. Искаме да копираме тези „неподходящи“ клиенти в листа „NotEligibleData“.
Обяснение на кода
Ако Target.Column = 7 Тогава
Горният код се използва за ограничаване на промяната на работния лист да се изпълнява само когато стойност в 7th колоната се променя.
Листове („NotEligibleData“). Обхват („A2: I600“). ClearContents
Горният код се използва за изтриване на стойността от диапазон A2: I600
Листове ("Основни"). Клетки (i, "G"). EntireRow.Copy Дестинация: = Листове ("NotEligibleData"). Диапазон ("A" & Rows.Count). Край (xlUp) .Offset (1)
Горният код се използва за копиране на неподходящи клиенти в листа "NotEligibleData".
Моля, следвайте кода по -долу
Private Sub Worksheet_Change (ByVal Target As Range) 'Деклариране на променливи Dim i, Lastrow As Long' Изпълнение на код, ако стойността в седмата колона е променена If Target.Column = 7 Тогава 'Получаване на номера на реда на последната клетка Lastrow = Sheets ("Main" ) .Range ("A" & Rows.Count) .End (xlUp) .Row 'Изтриване на всички предишни данни от листата "NotEligibleData" ("NotEligibleData"). Диапазон ("A2: I600"). ClearContents' Цикъл от десети ред до последен ред За i = 10 За последно 'Ако стойността в колоната G на реда е "Не", тогава копирайте реда в целевия лист If Sheets ("Main"). Cells (i, "G"). Value = " Не „Тогава листове („ Основни “). 1) End If Next i End If Range ("A1"). Изберете End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта