Excel/Verschiebe die komplette Zeile automatisch auf ein anderes Blatt

Question

Ich muss eine Excel-Tabelle bearbeiten, so dass eine Zeile automatisch von einem Blatt ("Open_Followups") auf ein anderes Blatt ("Closed_Followups") verschoben wird, wenn es "Ja" in Spalte "enthält" I "(" Ereignis abgeschlossen/geschlossen ").

Ich habe keine Erfahrung in VBA und fragte mich, ob jemand hier mir helfen könnte, den Code zu erstellen?

Screenshot der ersten Spalten auf dem Blatt.

Nicht sicher, ob es wichtig ist, aber ich bin mit Excel 2016 auf einem Mac-Computer

Answer 1

ich für Sie ein kleines Skript geschrieben (in MS Excel), die für ein „y“ in Reihe sucht B und wenn es eine Übereinstimmung findet, kopiert es den Wert von Reihe A zum Blatt "Tabelle2". Dies ist nur ein Beispiel (ich bin nicht hier, um Ihre Arbeit für Sie zu tun;)) Spielen Sie damit und importieren Sie es in Ihrem Arbeitsbuch und passen Sie es wo erforderlich.

Private Sub CommandButton1_Click() 

Dim LastRow As Long 
Dim LastRow2 As Long 
Dim counter As Integer 

'get the last row in this sheet (column A) 
With ActiveSheet 
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 
End With 

'get the last row in the sheet "Tabelle2" (column A) 
With Sheets("Tabelle2") 
LastRow2 = .Cells(.Rows.Count, 1).End(xlUp).Row 
End With 

'the counter is needed to add dynamically to "Tabelle2" 
counter = LastRow2 + 1 
'run from 1 to the last row in your first sheet 
For i = 1 To LastRow 
    'search for matches 
    If Cells(i, 2).Text = "y" Then 
     'if found, write to "Tabelle2" 
     Sheets("Tabelle2").Cells(counter, 1).Value = Cells(i, 2).Offset(0, -1).Value 
     counter = counter + 1 
    End If 
Next 

End Sub