Zellen auf einem Blatt finden und die Zeilen auf ein anderes Blatt kopieren
Ich habe ein Blatt namens Backlog, das Zeilen und Spalten mit Daten enthält. Ich benötige Code, der zeilenweise in der vorletzten Spalte nach # N / A sucht. Wenn es # N / A findet, muss es in der letzten Spalte prüfen, ob es ein C enthält oder nicht. Wenn es ein C enthält, sollte die gesamte Zeile an ein Blatt mit dem Namen Abmelden angehängt werden. Wenn die letzte Spalte kein C enthält, sollte die gesamte Zeile an ein Blatt mit dem Namen "Verweigert" angehängt werden. Die Zeile sollte aus dem ursprünglichen Backlog-Blatt gelöscht werden, sobald sie entweder auf Abmelden oder Verweigert verschoben wurde. Der Code, den ich unten habe, funktioniert nicht. Nach der ersten For-Anweisung geht es zu End Sub, aber es gibt keine Kompilierungsfehler.
Private Sub CommandButton2_Click()
Dim IMBacklogSh As Worksheet
Set IMBacklogSh = ThisWorkbook.Worksheets("Backlog")
Dim logoffSh As Worksheet
Set logoffSh = ThisWorkbook.Worksheets("Claims Logged off")
Dim deniedsh As Worksheet
Set deniedsh = ThisWorkbook.Worksheets("Claims Denied")
IMBacklogSh.Select
Dim i As Long
For i = 3 To Cells(Rows.Count, 13).End(xlUp).Row
If Cells(i, 13).Value = "#N/A" Then
If Cells(i, 14).Value = "C" Then
IMBacklogSh.Rows(i).EntireRow.Copy Destination:=logoffSh.Range("A" & logoffsh.Cells(Rows.Count, "A").End(xlUp).Row + 1)
Else
IMBacklogSh.Rows(i).EntireRow.Copy Destination:=deniedsh.Range("A" & deniedsh.Cells(Rows.Count, "A").End(xlUp).Row + 1)
End If
End If
Next i
End Sub