表列數據複製到另一表的列作爲事件

Question

我有以下代碼，作爲一個模塊，它工作得很好，但我寧願有它的工作作爲一個worksheet_change（Table_owssvr被連接到外部源）：

If Application.WorksheetFunction.CountA(Range("Table_SiteManager[Title]")) <> 0 _ 
Then Range("Table_SiteManager[Title]").Rows(2).Delete 

Range("Table_owssvr[Title]").Copy _ 
Destination:=Range("Table_SiteManager[Title]") 

任何想法？

謝謝。

Answer 1

我的情況下，想出了一個辦法我自己任何人都應該有興趣：

Lastrow = ListObjects("Table_owssvr").Range.Rows.Count 

If Target.Column = 1 Then 

    Sheets("SiteManagers").Range("Table_SiteManager[Title]").Rows(2).Delete 

    Sheets("Permission").Range("Table_owssvr[Title]").Copy _ 
    Destination:=Sheets("SiteManagers").Range("Table_SiteManager[Title]") 

    Sheets("Permission").Range("lastrow").Select 

End If