☰

Excel 매크로: 시트의 값을 테이블 오류에 붙여넣기

tag-icon • tag-icon microsoft-excel macros
Excel 매크로: 시트의 값을 테이블 오류에 붙여넣기

워크시트 "프로젝트 요약 데이터"에서 데이터를 복사하여 "프로젝트 비용 보고서 요약" 워크시트의 테이블에 붙여넣으려고 합니다. 제가 매크로를 처음 접해서 여기서 뭘 잘못하고 있는지 잘 모르겠지만, 이 부분에서 오류가 나는 것 같습니다 tbl.Range("D7").Paste.

기술적으로 테이블의 첫 번째 데이터 행(헤더 없음)이자 테이블의 4번째 열이 되는 "프로젝트 비용 보고서 요약"의 셀 "D7"에 데이터를 붙여넣어야 합니다.

내가 받은 오류는 런타임 오류 '1004'입니다. 범위 클래스의 선택 속성을 가져올 수 없습니다.

Sub filter_copy_paste()

Dim region As String
Dim Report As Worksheet
Dim Data As Worksheet
Dim count_col As Integer
Dim count_row As Integer
Dim tbl As ListObject


Set Report = ThisWorkbook.Sheets("Project Cost Report Summary")
Set Data = ThisWorkbook.Sheets("Project Summary Data")
region = Data.Range("I1").Text
Set tbl = Report.ListObjects("Table2")

'determine the size of the range
Data.Activate
count_col = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlToRight)))
count_row = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))

'filter data on Raw Data tab
Data.Range("A1").AutoFilter field:=1, Criteria1:=region

'Copy and Paste to Cost Report

Data.Range(Cells(2, 2), Cells(count_row, count_col)).SpecialCells(xlCellTypeVisible).Copy
tbl.Range("D7").Paste
Application.CutCopyMode = False

'Show Data and Remove the Filter
With Data
.ShowAllData
.AutoFilterMode = False

End With

End Sub

관련 정보