In dit artikel zullen we de wijzigingsgebeurtenis van het werkblad gebruiken om gegevens van het ene blad naar het andere over te dragen, afhankelijk van een bepaalde voorwaarde.
Ruwe gegevens bestaan uit klantgegevens, waaronder naam, adres, stad, regio, land en telefoonnummer.
In dit artikel willen we gegevens overdragen van die klanten die niet in aanmerking komen voor een bepaalde aanbieding. De laatste kolom bevat "Niet" als waarde, als een klant niet in aanmerking komt voor een bepaalde aanbieding. We willen die 'niet in aanmerking komende' klanten kopiëren naar het blad 'NotEligibleData'.
Code uitleg
Als Doelkolom = 7 Dan
De bovenstaande code wordt gebruikt om de wijzigingsgebeurtenis van het werkblad te beperken om alleen uit te voeren als de waarde in 7e kolom wordt gewijzigd.
Spreadsheets ("NotEligibleData").Bereik ("A2:I600").ClearContents
De bovenstaande code wordt gebruikt om de waarde uit het bereik A2: I600 te verwijderen
Sheets("Main").Cells(i, "G").EntireRow.Copy Destination:=Sheets("NotEligibleData").Range("A" & Rows.Count).End(xlUp).Offset(1)
De bovenstaande code wordt gebruikt om niet in aanmerking komende klanten naar het blad "NotEligibleData" te kopiëren.
Volg hieronder voor de code:
Private Sub Worksheet_Change (ByVal Target As Range) 'Declareren van variabelen Dim i, Lastrow As Long' Voer code uit als de waarde in de zevende kolom is gewijzigd If Target.Column = 7 Then 'Het rijnummer van de laatste cel ophalen Lastrow = Sheets ("Hoofd" ).Range("A" & Rows.Count).End(xlUp).Row 'Verwijderen van eerdere gegevens uit "NotEligibleData" sheet Sheets("NotEligibleData").Range("A2:I600").ClearContents 'Looping from tiende rij naar laatste rij Voor i = 10 Naar laatste rij 'Als de waarde in de G-kolom van de rij "Niet" is, kopieer dan de rij naar het bestemmingsblad If Sheets("Main").Cells(i, "G").Value = " Not" Then Sheets("Main").Cells(i, "G").EntireRow.Copy Destination:=Sheets("NotEligibleData").Range("A" & Rows.Count).End(xlUp).Offset( 1) End If Next i End If Range ("A1"). Selecteer End Sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite