С некоторыми из моих книг я получаю ошибку #REF! после обновления моей книги.Мне нужно отфильтровать данные на листе Januari, чтобы отфильтровать Januari, и получить общую сумму в Sheet Total.
Код, который у меня работает, работает отлично, но когда я хочу скопировать сумму из столбца «C» вдругой лист я получаю ошибку #REF!.Вот строка, которую я получаю в моем исходном листе: =SOM('WABO Oktober'!#VERW!), где должно быть: =SOM('WABO Oktober'!E:E) Это происходит не во всех книгах, только в той, которая мне нужна больше всего.
Вот примермоего кода.
Sub Test()
Dim My_Range As Range
Dim Maand As String
Maand = ActiveSheet.Name
' This is the name of the First part of the filtersheet
Naam = ("filter")
' Make sure sheet is visible
Sheets((Naam) & " " & Maand).Visible = True
Sheets(Maand).Select
' Range on active sheet
Set My_Range = Range("A2:Y999")
My_Range.Parent.Select
'Remove AutoFilter
My_Range.Parent.AutoFilterMode = False
' Select the columns you want to filter
My_Range.AutoFilter Field:=2, Criteria1:="y"
'Copy/paste the visible data to the new worksheet
Sheets((Naam) & " " & Maand).Select
My_Range.Parent.AutoFilter.Range.Copy
With ActiveSheet.Range("A1")
.PasteSpecial Paste:=8
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
.Select
End With
'AutoFit All Columns on Worksheet
ActiveSheet.Cells.EntireColumn.AutoFit
'Close AutoFilter
My_Range.Parent.AutoFilterMode = False
' Remove colums to create data filter Januari
Range("A:A").Select
Range("C1").Activate
Selection.Delete Shift:=xlToLeft
' Got to cell A1
ActiveSheet.Range("A1").Select
'Go back to the "Maand" Sheet
Worksheets(Maand).Activate
ActiveSheet.Range("A1").Select
'Hide the filter Januari sheet
Sheets((Naam) & " " & Maand).Visible = False
'Refresh workbook
ActiveWorkbook.RefreshAll
End Sub