Возникли проблемы с кодом VBA. Появляется окно с предупреждением, хотя все строки в форме ввода заполнены.

Question

Извините, если то, что я спрашиваю, звучит так глупо, но я действительно не знаю, что не так с моим кодом VBA, и, поскольку я новичок в Excel, я не мог понять, что я делаю неправильно.

Это мой исходный код, предназначенный для хранения информации в другом рабочем листе, до этого он работает нормально, но по мере роста моего списка он больше не работает.

edit: У меня есть две таблицы. Вход - это где пользовательская форма IncidentDatabase - это место, где я хочу хранить информацию.

Sub UpdateLogWorksheet()

    Dim historyWks As Worksheet
    Dim inputWks As Worksheet

    Dim nextRow As Long
    Dim oCol As Long

    Dim myRng As Range
    Dim myCopy As String
    Dim myCopy2 As String
    Dim myCell As Range
    
    'cells to copy from Input sheet - some contain formulas
    myCopy = "D10, D12, D14, D16, D18, D20, D22, D24, D26, D28, D30, D32, D34, D36, D38, D40, D42, D46, D48, D50, D52, D54, D56, D58, D60, D62, D64, D66, D68, D70,D72, D76, D78, D80, D84, D86, D88, D90, D92, D94, D96, D98, D100, D102, D104, D106, D108"
    myCopy2 = "D111, D113, D117, D119, D121, D123, D125, D127, D129, D131, D135, D137, D139, D141, D143, D145, D147, D149, D151, D153, D157, D161, D166, D168, D172, D176, D180, D182, D184, D189, D191, D193, D197, D199, D201, D205, D207, D209, D213, D215, D217, D219,D222"
    
    
    Set inputWks = Worksheets("Input")
    Set historyWks = Worksheets("IncidentDatabase")

    With historyWks
        nextRow = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
    End With

    With inputWks
        Set myRng = Application.Union(.Range(myCopy), .Range(myCopy2))
    End With
    

    Set inputWks = Worksheets("Input")
    Set historyWks = Worksheets("IncidentDatabase")

    With historyWks
        nextRow = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
    End With

    With inputWks
        Set myRng = .Range(myCopy).Range(myCopy2)

        If Application.CountA(myRng) <> myRng.Cells.Count Then
            MsgBox "Please fill in all the cells!"
            Exit Sub
        End If
    End With

    With historyWks
        With .Cells(nextRow, "A")
            .Value = Now
            .NumberFormat = "mm/dd/yyyy hh:mm:ss"
        End With
        .Cells(nextRow, "B").Value = Application.UserName
        oCol = 3
        For Each myCell In myRng.Cells
            historyWks.Cells(nextRow, oCol).Value = myCell.Value
            oCol = oCol + 1
        Next myCell
    End With
    
    'clear input cells that contain constants
    With inputWks
      On Error Resume Next
         With .Range(myCopy).Cells.SpecialCells(xlCellTypeConstants)
              .ClearContents
              Application.GoTo .Cells(1) ', Scroll:=True
         End With
      On Error GoTo 0
    End With
End Sub

И вот что произошло после того, как я попытался предоставить информацию.

Посоветуйте, пожалуйста, как я могу решить эту проблему.

Answer 1

Линия

 Set myRng = .Range(myCopy).Range(myCopy2)

это проблема. Как написано, это говорит Excel, чтобы найти myCopy2 внутри myCopy - и это не внутри. Вы хотите объединить два, используя UNION

Set myRange = Union(.range(mycopy),.range(mycopy2))