从其他工作表填充Excel工作表,并链接回原始工作表

时间:2018-11-29 07:57:29

标签: excel vba


我有一个包含15列(A-N)和25张工作表的工作表(除了最后三列,所有工作表都具有相同的列,它们用于不同的下拉菜单和一些用户信息)。如果列J ic中的数据处于特定状态,我将尝试填充主表,例如下面的代码“ Krav”。我希望能够选择我想要收集的身份。

因此,如果列J包含特定状态,则整行将被复制到名为“主”的工作表中。这必须在每张纸上的每一行上完成。

到目前为止,这是我的代码(在主表上有一个名为“ VisAlleKrav”的按钮):

Private Sub VisAlleKrav_Click()

Dim i As Integer
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
       If ws.Name <> "Master" Then
            With ws
                .Range("A1", ws.Range("N600").End(xlUp)(2)).AutoFilter 10, "Krav"
            End With
            ws.Range("A2", ws.Range("N" & Rows.Count).End(xlUp)(2)).Copy Ark23.Range("A65536").End(xlUp)(2)
            ws.AutoFilterMode = False
        End If
    Next ws
End Sub

这可以正确地填充我的母版表,但是当该表完成填充数据时出现错误,我认为这与最后的三张表有关,后者与其他表不相等。

但是,这是我的问题。我还希望母版工作表的B列中有一个链接,该链接可以链接回收集行的工作表。那可能吗?

我还想选择要检查的状态,例如“ Krav”,“完成”,“正在处理”,“需求”。我如何轻松地做到这一点?

期待您的帮助:)

0 个答案:

没有答案