Wie Spezifische Daten von einem Blatt zum anderen durch VBA in Microsoft Excel übertragen
In diesem Artikel verwenden wir das Änderungsereignis des Arbeitsblatts, um Daten abhängig von einer bestimmten Bedingung von einem Blatt auf ein anderes zu übertragen.
Die Rohdaten bestehen aus Kundendaten wie Name, Straße, Stadt, Region, Land und Telefonnummer.
In diesem Artikel möchten wir Daten von Kunden übertragen, die für ein bestimmtes Angebot nicht berechtigt sind. Die letzte Spalte enthält „Nicht“ als Wert, wenn ein Kunde für ein bestimmtes Angebot nicht berechtigt ist. Wir möchten diese „nicht berechtigten“ Kunden in das Blatt „NotEligibleData“ kopieren.
Code Erklärung
Wenn Target.Column = 7, wird der obige Code verwendet, um das Änderungsereignis des Arbeitsblatts so einzuschränken, dass es nur ausgeführt wird, wenn der Wert in der 7. Spalte geändert wird.
Sheets („NotEligibleData“). Range („A2: I600“). ClearContents Mit dem obigen Code wird der Wert aus dem Bereich A2: I600 Sheets („Main“) gelöscht. Cells (i, „G“). EntireRow.Copy Ziel: = Blätter („NotEligibleData“). Bereich („A“ & Rows.Count) .End (xlUp) .Offset (1)
Der obige Code wird verwendet, um nicht berechtigte Kunden in das Blatt „NotEligibleData“ zu kopieren.
Bitte folgen Sie unten für den Code
Private Sub Worksheet_Change(ByVal Target As Range)
'Declaring variables
Dim i, Lastrow As Long
'Execute code if value in seventh column is changed
If Target.Column = 7 Then
'Getting the row number of last cell
Lastrow = Sheets("Main").Range("A" & Rows.Count).End(xlUp).Row
'Deleting any previous data from "NotEligibleData" sheet
Sheets("NotEligibleData").Range("A2:I600").ClearContents
'Looping from tenth row to last row
For i = 10 To Lastrow
'If value in G column of the row is "Not" then copy the row to destination sheet
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").Select
End Sub
Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.
Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]