V tem članku bomo uporabili dogodek spremembe delovnega lista za prenos podatkov z enega lista na drugega, odvisno od določenega pogoja.
Neobdelani podatki so sestavljeni iz podatkov o stranki, ki vključujejo ime, naslov, mesto, regijo, državo in telefonsko številko.
V tem članku želimo prenesti podatke tistih strank, ki niso upravičene do določene ponudbe. Zadnji stolpec vsebuje vrednost »Ne«, če stranka ni upravičena do določene ponudbe. Te "neustrezne" stranke želimo kopirati na list "NotEligibleData".
Razlaga kode
Če je Target.Column = 7 Potem
Zgornja koda se uporablja za omejitev izvedbe dogodka spremembe delovnega lista le, če je vrednost v 7th stolpec je spremenjen.
Listi ("NotEligibleData"). Obseg ("A2: I600"). ClearContents
Zgornja koda se uporablja za brisanje vrednosti iz območja A2: I600
Listi ("Main"). Celice (i, "G"). EntireRow.Copy Destination: = Sheets ("NotEligibleData"). Range ("A" & Rows.Count) .End (xlUp) .Offset (1)
Zgornja koda se uporablja za kopiranje neupravičenih strank na list "NotEligibleData".
Za kodo sledite spodaj
Private Sub Worksheet_Change (ByVal Target As Range) 'Deklariranje spremenljivk Dim i, Lastrow As Long' Izvedite kodo, če se vrednost v sedmem stolpcu spremeni If Target.Column = 7 Potem 'Pridobivanje številke vrstice zadnje celice Lastrow = Sheets ("Main" ) .Range ("A" & Rows.Count) .End (xlUp) .Row 'Brisanje vseh prejšnjih podatkov iz listov "NotEligibleData" ("NotEligibleData"). Obseg ("A2: I600"). vrstica do zadnje vrstice Za i = 10 Za slednjo 'Če je vrednost v stolpcu G vrstice "Ne", kopirajte vrstico na ciljni list Če listi ("Glavni"). Celice (i, "G"). Vrednost = " Ne "Potem listi (" Glavni "). Celice (i," G "). EntireRow.Copy Destination: = Sheets (" NotEligibleData "). Range (" A "& Rows.Count) .End (xlUp) .Offset ( 1) End If Next i End If Range ("A1"). Izberite End Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte
