Šajā rakstā mēs izmantosim darblapas maiņas notikumu, lai pārsūtītu datus no vienas lapas uz citu atkarībā no konkrēta nosacījuma.
Neapstrādātos datus veido informācija par klientu, tostarp vārds, adrese, pilsēta, reģions, valsts un tālruņa numurs.
Šajā rakstā mēs vēlamies pārsūtīt to klientu datus, kuri nav piemēroti konkrētam piedāvājumam. Pēdējā slejā kā vērtība ir “Nav”, ja klients nav piemērots konkrētam piedāvājumam. Mēs vēlamies nokopēt šos “neatbilstīgos” klientus uz lapu “NotEligibleData”.
Koda skaidrojums
Ja Target.Column = 7 Tad
Iepriekš minētais kods tiek izmantots, lai ierobežotu darblapas maiņas notikuma izpildi tikai tad, ja vērtība 7tūkst kolonna ir mainīta.
Izklājlapas ("NotEligibleData"). Diapazons ("A2: I600"). ClearContents
Iepriekš minēto kodu izmanto, lai dzēstu vērtību no diapazona A2: I600
Izklājlapas ("Main"). Šūnas (i, "G"). EntireRow.Copy Destination: = Sheets ("NotEligibleData"). Diapazons ("A" & Rows.Count) .End (xlUp). Offset (1)
Iepriekš minēto kodu izmanto, lai kopētu neatbilstīgos klientus uz lapu "NotEligibleData".
Lūdzu, sekojiet tālāk norādītajam kodam
Privāta apakšdarblapa_maiņa (ByVal mērķis kā diapazons) 'Deklarējošie mainīgie Dim i, Lastrow As Long' Izpildiet kodu, ja septītās kolonnas vērtība tiek mainīta If Target.Column = 7 Tad 'Pēdējās šūnas rindas numura iegūšana Lastrow = Sheets ("Main" ) .Range ("A" & Rows.Count) .End (xlUp). Row "Iepriekšējo datu dzēšana no" NotEligibleData "lapu lapām (" NotEligibleData "). Diapazons (" A2: I600 "). ClearContents 'Looping from desmitā daļa rinda līdz pēdējai rindai Attiecībā uz i = 10 Lai pārvilktu 'Ja vērtība rindas G slejā ir "Nē", kopējiet rindu uz mērķa lapu Ja lapas ("Galvenā"). Šūnas (i, "G"). Vērtība = " Ne "Pēc tam izklājlapas (" galvenais "). Šūnas (i," G "). EntireRow.Copy Destination: = Sheets (" NotEligibleData "). Diapazons (" A "& Rows.Count) .End (xlUp) .Offset ( 1) Beigt, ja nākamais i Beigu, ja diapazons ("A1"). Atlasiet Beigt apakš
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē