Kopieren Sie Zeilen basierend auf Zellenwert und fügen Sie sie als neues Blatt

-1

Ich habe die Beiträge in Bezug auf die Verwendung von Makros zum Kopieren von Zeilen und Einfügen in ein neues Blatt in Excel, aber ich kann nicht scheinen, den richtigen Code zu finden entspricht meiner Anforderung. Hier ein Beispieldaten beginnen: Sample Data Sheet Kopieren Sie Zeilen basierend auf Zellenwert und fügen Sie sie als neues Blatt

Ich habe ein Datenblatt mit 7 Spalten:

COLUMN A - Article # 
COLUMN B - Description 
COLUMN C - Lift 
COLUMN E - Comp OH 
COLUMN F - Requested 
COLUMN G - Shipped 
COLUMN H - SOS OH

Ich möchte ein Makro erstellen, die den Inhalt dieses Blattes auf der Basis der Spalte F kopiert - Angefordert und auf ein neues Blatt mit dem Namen REQUESTED gestellt.

Das sollte Endergebnis so etwas wie dieses:

Sample of Results

Quelle

2017-06-17 coteb

verstecken und sichtbar machen können Wenn der Code, den Sie nach einem Blick auf all die anderen Beiträge entwickelt nicht funktioniert, fügen Sie es in Ihrer Frage enthalten und erzähl uns, was nicht so funktioniert, wie du gedacht hast. Wir können Ihnen dann helfen, es zu beheben. – YowE3K

Mögliches Duplikat von [Vba-Makro zum Kopieren der Zeile aus der Tabelle, wenn der Wert in der Tabelle die Bedingung erfüllt] (https://stackoverflow.com/questions/12177125/vba-macro-to-copy-row-from-table-if-value- in-table-meets-condition) – lebelinoz

Verwenden Sie einfach einen Filter und kopieren Sie die sichtbaren Zellen. Zeichnen Sie währenddessen ein Makro auf, wenn Sie VBA verwenden müssen. –

Dies hilft Ihnen

Dies ist die grobe sheet1 Daten Dies ist reuested Formule Dies ist das Reay-Layout th Ihre Ansver ist, nach dem Start Makro

Sie dieses Makro

Sub hide() 
Sheets("Requested").Select 
    Dim r As Range, c As Range 
    Set r = Range("F2:F10") 
Application.ScreenUpdating = False 
For Each c In r 
    If Len(c.Text) = 0 Then 
     c.EntireRow.Hidden = True 
    Else 
     c.EntireRow.Hidden = False 
    End If 
Next c 
Application.ScreenUpdating = True 
End Sub 

Sub Unhide_All_Rows() 
Sheets("Requested").Select 

    On Error Resume Next 
    'in case the sheet is protected 
    ActiveSheet.Cells.EntireRow.Hidden = False 
End Sub

Quelle

2017-06-17 22:51:28

Kopieren Sie Zeilen basierend auf Zellenwert und fügen Sie sie als neues Blatt

Antwort

Verwandte Themen