当值为yes时将vba从单元格复制到另一个工作表

Question

所以我有两张纸，一张包含信息，另一张也应该复制信息。

如果DONE标记为yes，则该行中的所有信息都将复制到名为“ FullpInfo2（带有按钮）的工作表中。在图片的模板中。但是我不知道现在该怎么办。可以有人只是给我一个想法，如何继续下去？

如果我添加新行并将其值设置为“是”，它应该重写前一行（名称，饮料，食物，车辆）

Sub CopyYes()
    Dim c As Range
    Dim j As Integer
    Dim Source As Worksheet
    Dim Target As Worksheet

    Set Source = ActiveWorkbook.Worksheets("PersonalInfo")
    Set Target = ActiveWorkbook.Worksheets("FullpInfo")


    For Each c In Source.Range("E2:E100")   ' Do 100 rows

        If c = "yes" Then


        Source.Rows(c.Row).Copy Target.Rows(j)

            Target.Cells("B15").Value = Source.Cells("A").Value ' I dont know what to do here..

        End If
    Next c
End Sub

Answer 1

您可以尝试：

<Trigger>
  <Value1>20181231</value1> 
  <value2>20180531</>
  <value3>20180531</value3>
  <value4>FINANCE</value4>
  <value5 />
  <value6 />
</Trigger>