I denne artikkelen vil vi bruke endringshendelse for regneark til å overføre data ett ark til et annet, avhengig av en bestemt tilstand.
Rådata består av kundedetaljer, som inkluderer navn, gateadresse, by, region, land og telefonnummer.
I denne artikkelen ønsker vi å overføre data om de kundene som ikke er kvalifisert for et bestemt tilbud. Den siste kolonnen inneholder “Ikke” som verdi, hvis en kunde ikke er kvalifisert for et bestemt tilbud. Vi ønsker å kopiere de "ikke kvalifiserte" kundene til "NotEligibleData" -arket.
Kode forklaring
Hvis Target.Column = 7 Da
Koden ovenfor brukes til å begrense endringshendelsen i regnearket til å kjøres bare når verdien i 7th kolonne er endret.
Ark ("NotEligibleData"). Område ("A2: I600"). ClearContents
Koden ovenfor brukes til å slette verdien fra område A2: I600
Ark ("Main"). Celler (i, "G"). EntireRow.Copy Destination: = Sheets ("NotEligibleData"). Range ("A" & Rows.Count) .End (xlUp) .Offset (1)
Koden ovenfor brukes til å kopiere ikke-kvalifiserte kunder til "NotEligibleData" -arket.
Følg koden nedenfor
Private Sub Worksheet_Change (ByVal Target As Range) 'Declaring variables Dim i, Lastrow As Long' Utfør kode hvis verdien i syvende kolonne endres Hvis Target.Column = 7 Deretter 'Henter radnummeret for siste celle Lastrow = Sheets ("Main" ) .Range ("A" & Rows.Count) .End (xlUp) .Row 'Sletter tidligere data fra "NotEligibleData" -ark ("NotEligibleData"). Område ("A2: I600"). ClearContents' looping fra tiende rad til siste rad For i = 10 til Lastrow 'Hvis verdien i G -kolonnen i raden er "Ikke", kopier du raden til destinasjonsarket If Sheets ("Main"). Celler (i, "G"). Value = " Ikke "Then Sheets (" Main "). Celler (i," G "). EntireRow.Copy Destination: = Sheets (" NotEligibleData "). Range (" A "& Rows.Count) .End (xlUp) .Offset ( 1) End If Next i End If Range ("A1"). Velg End Sub
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post
