auf ein neues Blatt In diesem Artikel erstellen wir ein Makro, um unvollständige Daten auf ein neues Blatt zu kopieren.

Die Rohdaten für diesen Artikel bestehen aus Gehaltsdaten, die einige unvollständige Aufzeichnungen enthalten.

ArrowMain

Wir möchten die Aufzeichnungen der Mitarbeiter kopieren, deren Gehaltsangaben fehlen. Durch Klicken auf die Schaltfläche werden unvollständige Datensätze in das Blatt „BlankRecords“ verschoben.

ArrowOutput

Logische Erklärung

In diesem Artikel haben wir das Makro „CopyEmptys“ erstellt, um fehlende Datensätze in das Blatt „BlankRecords“ zu kopieren. Es überprüft die Spalte Gehalt auf leere Datensätze. Wenn ein leerer Datensatz gefunden wird, kopiert er diesen Datensatz in das Blatt „BlankRecords“.

Code Erklärung

intRowL = Cells (Rows.Count, 1) .End (xlUp) .Row Above Code wird verwendet, um die Zeilennummer der letzten Zelle abzurufen.

IsEmpty (Cells (intRow, 4))

Der obige Code wird verwendet, um zu überprüfen, ob das genannte Gehalt leer ist.

Bitte folgen Sie unten für den Code

Range (.Cells (intRowT, 1), .Cells (intRowT, 3)). Value = Range (Cells (intRow, 1), Cells (intRow, 3)) Aufnahme vom Hauptblatt zum Blatt „BlankRecord“.
Option Explicit

Sub CopyEmptys()

'Declaring variables

Dim intRow As Integer, intRowL As Integer, intRowT As Integer

'Getting row number of last cell

intRowL = Cells(Rows.Count, 1).End(xlUp).Row

'Looping from 10th row to last cell

For intRow = 10 To intRowL



'Checking the fourth column whether it is empty

If IsEmpty(Cells(intRow, 4)) Then

With Worksheets(2)

'Getting row number of row next to last row

intRowT = .Cells(.Rows.Count, 1).End(xlUp).Row + 1



'Inserting data to "BlankRecords" sheet

.Range(.Cells(intRowT, 1), .Cells(intRowT, 3)).Value = _

Range(Cells(intRow, 1), Cells(intRow, 3)).Value

End With

End If

Next intRow

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]