I denne artikel vil vi bruge ændringshændelse i regneark til at overføre data et ark til et andet, afhængigt af en bestemt tilstand.
Rådata består af kundedetaljer, herunder navn, gadeadresse, by, region, land og telefonnummer.
I denne artikel vil vi overføre data om de kunder, der ikke er berettiget til et bestemt tilbud. Den sidste kolonne indeholder “Ikke” som værdi, hvis en kunde ikke er berettiget til et bestemt tilbud. Vi ønsker at kopiere de 'ikke kvalificerede' kunder til arket "NotEligibleData".
Kode forklaring
Hvis Target.Column = 7 Så
Ovenstående kode bruges til at begrænse ændringshændelsen i regnearket til kun at udføres, når værdien i 7th kolonne ændres.
Ark ("NotEligibleData"). Område ("A2: I600"). ClearContents
Ovenstående kode bruges til at slette værdien fra område A2: I600
Sheets ("Main"). Celler (i, "G"). EntireRow.Copy Destination: = Sheets ("NotEligibleData"). Range ("A" & Rows.Count) .End (xlUp) .Offset (1)
Ovenstående kode bruges til at kopiere ikke-kvalificerede kunder til arket "NotEligibleData".
Følg venligst nedenstående for koden
Private Sub Worksheet_Change (ByVal Target As Range) 'Declaring variables Dim i, Lastrow As Long' Udfør kode, hvis værdien i syvende kolonne ændres Hvis Target.Column = 7 Herefter 'Henter rækkenummeret for sidste celle Lastrow = Sheets ("Main" ) .Range ("A" & Rows.Count) .End (xlUp) .Row 'Sletning af tidligere data fra "NotEligibleData" -ark Sheets ("NotEligibleData"). Range ("A2: I600"). ClearContents' loop fra tiende række til sidste række For i = 10 til Lastrow 'Hvis værdien i rækken G i rækken er "Ikke", skal du kopiere rækken til destinationsarket If Sheets ("Main"). Celler (i, "G"). Value = " Ikke "Herefter 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"). Vælg End Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet