U ovom članku ćemo koristiti događaj promjene radnog lista za prijenos podataka s jednog lista na drugi, ovisno o određenom stanju.
Sirovi podaci sastoje se od podataka o korisniku, koji uključuju ime, adresu, grad, regiju, državu i telefonski broj.
U ovom članku želimo prenijeti podatke onih kupaca koji ne ispunjavaju uvjete za određenu ponudu. Posljednji stupac sadrži vrijednost "Ne" ako kupac ne ispunjava uvjete za određenu ponudu. Želimo kopirati te korisnike koji ne ispunjavaju uvjete na list NotEligibleData.
Objašnjenje koda
Ako je Target.Column = 7 Tada
Gornji kôd koristi se za ograničavanje izvođenja događaja promjene radnog lista samo kada je vrijednost u 7th stupac se mijenja.
Tablice ("NotEligibleData"). Raspon ("A2: I600"). ClearContents
Gornji kôd koristi se za brisanje vrijednosti iz raspona A2: I600
Listovi ("Glavni"). Ćelije (i, "G"). Odredište EntireRow.Copy: = Listovi ("NotEligibleData"). Raspon ("A" & Rows.Count). Kraj (xlUp) .Offset (1)
Gornji kôd koristi se za kopiranje korisnika koji ne ispunjavaju uvjete na list "NotEligibleData".
Molimo slijedite dolje za kôd
Private Sub Worksheet_Change (ByVal Target As Range) 'Deklariranje varijabli Dim i, Lastrow As Long' Izvrši kôd ako se promijeni vrijednost u sedmom stupcu If Target.Column = 7 Zatim 'Dobivanje broja retka posljednje ćelije Lastrow = Sheets ("Main" ) .Range ("A" & Rows.Count) .End (xlUp) .Row 'Brisanje svih prethodnih podataka iz listova "NotEligibleData" ("NotEligibleData"). Raspon ("A2: I600"). ClearContents' Ponavljanje od desetog redak do posljednjeg retka Za i = 10 Za posljednji 'Ako je vrijednost u stupcu G reda "Ne", kopirajte red na odredišni list Ako listovi ("Glavni"). Ćelije (i, "G"). Vrijednost = " Ne "Tada listovi (" Glavni "). Ćelije (i," G "). Odredište EntireRow.Copy: = Tablice (" NotEligibleData "). Raspon (" A "& Rows.Count). Kraj (xlUp) .Offset ( 1) End If Next i End If Range ("A1"). Odaberite End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte
