VBA- Verwenden von Eingabefeldern zum Filtern und Kopieren von Daten

Question

Ich arbeite an einem Benutzerformular, wo ich eine Schaltfläche, die, wenn ich klicke auf es habe ich ein Eingabefeld, wo ich versuche, Daten der Spalte (E) filtern dann nach dem Filtern dieser kopieren von Daten von colum A1 bis der Wert in der Spalte E in einem anderen Blatt caaled filtred_data gefiltert ich diesen Code diesen Code verwende, aber es mir einen Fehler zeigen nicht nw wie es

Private Sub CommandButton9_Click() 
Dim xno As Integer, Found As Range 
Do 
    xno = Application.InputBox("Enter the number of Top communities ", Type:=1) 
    If TypeName(xno) = "Boolean" Then Exit Sub 
    Set Found = Columns("E").Find(what:=xno, lookat:=xlWhole, LookIn:=xlValues) 
    If Found Is Nothing Then 
     MsgBox "the number was not found, please try again !!", vbInformation 
    Else 
     Found.Range("A1:F10000").Copy Destination:=Sheets("filtred_data").Range("A1:F10000") 
    End If 
Loop 
End Sub 

wenn jemand beheben kann mir bitte helfen , danke

Answer 1

Das Problem in Ihrem Fall ist, dass Sie die Found Variable zu einer einzelnen Zelle mit der Find Methode festlegen. Später in Ihrem Code versuchen Sie, die A1:F10000 dieser Zelle ONE zu kopieren, wenn Sie Found.Range("A1:F1000") schreiben.

Im Wesentlichen sieht der Code wie folgt (unter der Annahme FoundE25 der Zelle bezeichnet):

Range("E25").Range("A1:F1000").Copy 

Können Sie sehen, warum die einen Fehler verursachen würde?

Ich würde versuchen, mehr Hilfe anzubieten, aber es ist schwer zu bestimmen, was genau Sie wollen. Können Sie möglicherweise mehr Details zu Ihren Tabellenlayouts und ein Beispiel dafür, was Sie tun möchten, geben?