Wie kann Excel nach Wert in einer Spalte suchen, andere Zelle in derselben Zeile kopieren und in einer separaten Arbeitsmappe einfügen?

Question

Wie kann ich die "Gesamt" -Zelle aller "Fehler" in einer anderen Arbeitsmappe protokollieren?

Book1 
1st num 2nd num total T/F 
5  5  10  TRUE 
6  6  3  FALSE 
7  7  14  TRUE 
8  8  4  FALSE 

Book2 
total 
3 
4 

zum Beispiel in einer anderen Arbeitsmappe mag ich A: 1 hat Wert 3 und A: 2 Wert 4, weil beide falsch waren und alle anderen Werte waren wahr. Wie kann ich das machen? Ich möchte keine Leerzeichen zwischen den einzelnen Zahlen oder muss manuell Leerzeichen filtern oder entfernen.

das Wahr/Falsch ist ein Dropdown-Menü, hat ein Schlüsselblatt. Ich bin mir nicht sicher, ob das die Antwort beeinflusst.

Answer 1

Vielleicht brauchen Sie ein wenig Feinschliff, aber ich hoffe, es hilft.

Sub Copy() 

    Dim wbDest As Workbook 
    Dim wsDest As Worksheet 
    Dim wsSource As Worksheet 
    Dim iTFCol As Integer 
    Dim iLastRow As Integer 
    Dim i As Integer 
    Dim iDestRow As Integer 
    Dim iDestCol As Integer 
    Dim iValueCol As Integer 

    Set wbDest = Workbooks("Destination.xlsx") 
    Set wsSource = ThisWorkbook.Worksheets("Source") 
    Set wsDest = wbDest.Worksheets("Destination") 

    iDestCol = 1 
    iTFCol = 4 
    iValueCol = 3 
    iLastRow = wsSource.Cells(Rows.Count, iTFCol).End(xlUp).Row 


    For i = 1 To iLastRow 
    If wsSource.Cells(i, iTFCol).Value = False Then 
     iDestRow = wsDest.Cells(Rows.Count, iDestCol).End(xlUp).Row + 1 
     wsDest.Cells(iDestRow, iDestCol).Value = wsSource.Cells(i, iValueCol).Value 
    End If 
    Next i 

End Sub