Sådan overføres specifikke data fra et ark til et andet via VBA i Microsoft Excel

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 7^th 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