Ошибка ссылки с одного листа на другой

Question

тестовый лист лист Джейса

У меня есть 2 листа: тест и Джейс .

На листе test у меня есть таблица с итогом, содержащая уравнение суммы. После того, как я нажму кнопку отправки, информация должна скопировать / вставить данные в лист Jayce после сравнения выбранной даты, чтобы значение могло быть помещено в правильную ячейку.

Донне понимаю, почему я продолжаю получать ошибку #ref!.

Private Sub CommandButton21_Click()
'Sheet1(test)
'Sheet5(Jayce)

Application.ScreenUpdating = False

Dim dateRange As Range
Dim dateSelected As Date: dateSelected = Sheets(2).Range("Q5").Value
Dim ws As Worksheet: Set ws = ActiveWorkbook.Sheets("test")
Dim ws2 As Worksheet: Set ws2 = ActiveWorkbook.Sheets("Jayce")
Dim counterCopy As Range: Set counterCopy = Sheets(2).Range("M2")

For Each dateRange In Sheets(6).Range("B5:B370")
    If dateRange >= dateSelected And dateRange <= dateSelected Then
        counterCopy.Copy Destination:=Sheets(6).Range("D" & dateRange.Row)

        Sheet5.Range("D" & dateRange.Row).Style = "Normal"
        'ws.Range("G2:L19").ClearContents 'clear contents of table
    End If
Next
    MsgBox "done"

Application.ScreenUpdating = True
End Sub

Answer 1

Ваша проблема может быть в этом операторе If, он сравнивает тип данных Range с типом данных Date

If dateRange >= dateSelected And dateRange <= dateSelected Then

Также я бы проверил, как вы ссылаетесь на свои листы какВы используете индексы 2 и 6 и имена 'test' и 'Jayce', попробуйте сохранить 1 ссылочный тип.