W tym artykule użyjemy zdarzenia zmiany arkusza, aby przenieść dane z jednego arkusza do drugiego, w zależności od określonego warunku.
Surowe dane składają się z danych klienta, które obejmują imię i nazwisko, adres, miasto, region, kraj i numer telefonu.
W tym artykule chcemy przekazać dane tych klientów, którzy nie kwalifikują się do danej oferty. Ostatnia kolumna zawiera wartość „Nie”, jeśli klient nie kwalifikuje się do określonej oferty. Chcemy skopiować tych „niekwalifikujących się” klientów do arkusza „NotEligibleData”.
Wyjaśnienie kodu
Jeśli kolumna docelowa = 7 Wtedy
Powyższy kod służy do ograniczenia zdarzenia zmiany arkusza do wykonania tylko wtedy, gdy wartość wynosi 7NS kolumna została zmieniona.
Arkusze("NotEligibleData").Range("A2:I600").ClearContents
Powyższy kod służy do usunięcia wartości z zakresu A2:I600
Sheets("Main").Cells(i, "G").EntireRow.Copy Destination:=Sheets("NotEligibleData").Range("A" & Rows.Count).End(xlUp).Offset(1)
Powyższy kod służy do kopiowania niekwalifikujących się klientów do arkusza „NotEligibleData”.
Proszę postępować zgodnie z poniższym kodem!
Private Sub Worksheet_Change(ByVal Target As Range) 'Deklarowanie zmiennych Dim i, Lastrow As Long 'Wykonaj kod w przypadku zmiany wartości w siódmej kolumnie If Target.Column = 7 Then 'Pobieranie numeru wiersza ostatniej komórki Lastrow = Sheets("Main" ).Range("A" & Rows.Count).End(xlUp).Row 'Usuwanie wszelkich poprzednich danych z arkusza "NotEligibleData" Sheets("NotEligibleData").Range("A2:I600").ClearContents 'Zapętlanie od dziesiątego od wiersza do ostatniego wiersza For i = 10 To Lastrow 'Jeśli wartość w kolumnie G wiersza to „Nie”, skopiuj wiersz do arkusza docelowego If Sheets(„Main”).Cells(i, „G”).Value = „ Not" Then Sheets("Main").Cells(i, "G").EntireRow.Copy Destination:=Sheets("NotEligibleData").Range("A" & Rows.Count).End(xlUp).Offset( 1) End If Next i End If Range ("A1"). Wybierz End Sub
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail