VBA附加-根据条件将单元格从一张纸复制到另一张纸

Question

and looking to use VBA to APPEND cells from a column, to another one in another sheet. The cells to copy Have to meet a criteria.

Example:

Sheet name "Input":

Order Status    Transaction ID
Release         90033333
Release         90055555
cancel          90077777
Release         900861515
Release         900861516

In this example only the Transaction IDs with an Order Status = "Release" will be copied after the already existent ones.

Sheet name "Output":

Transaction ID
90000000
90011111
90033333
90055555
900861515
900861516

Any help with a sample code that i can start with to build my future work?

Thank you!

Answer 1

Ok I will answer my question by myself, who knows maybe it would be helpful for someone else...

Sub TestA()


Application.ScreenUpdating = False

Dim cell As Range
Dim OrderID As String
Dim LastRow As Long

For Each cell In Sheets("RogersEmailData").Range("A:A")
  If cell.Value = "Release" Then
    OrderID = cell.Offset(0, 1).Value

    With Sheets("approved orders")
    .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Value = OrderID
    End With

 End If
Next cell

Application.ScreenUpdating = True


End Sub