VBA: Runtime Error 9, Subscript Out of Range - Попытка скопировать информацию на другой лист - PullRequest
Новая
       23

VBA: Runtime Error 9, Subscript Out of Range - Попытка скопировать информацию на другой лист

0 голосов
/ 21 мая 2019

Я нахожусь в процессе уборки старого куска кода. Мне удалось выкрутить несколько ошибок, но из-за этой ошибки я запутался.

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

Если я удаляю Sheets(8).Range("A1").Value и заменяю его на A1, эта строка запускается, поэтому я предполагаю, что это проблема в этом?

Я думаю, что ниже этой точки также может быть пара ошибок, в которых я спрошу (как еще раз ошибка 9 появилась).

Вот код ниже, ошибочная строка: 

.Range("B" & RowToPasteTo).Value = Sheets("Config").Range("A1").Value

Sub PostToPipeline()
    With ThisWorkbook.Sheets(3)
        Dim RowToPasteTo As Long
        RowToPasteTo = .Cells(.Rows.Count, "B").End(xlUp).Row + 1

        'This defines the variable RowToPasteTo as the next empty line on the Pipeline

        .Range("D" & RowToPasteTo).Value = Sheets(2).Range("C4").Value 'This prints the clients name to pipeline.With the left of the '=' being the destination, and the right being the source of information.
        .Range("E" & RowToPasteTo).Value = Sheets(2).Range("C5").Value 'This prints TAS Principal
        .Range("F" & RowToPasteTo).Value = Sheets(2).Range("C6").Value 'This prints Pillar

        .Range("C" & RowToPasteTo).Value = Date 
        .Range("J" & RowToPasteTo).Value = Date 

        ThisWorkbook.Sheets(8).Range("A1").Value = ThisWorkbook.Sheets(8).Range("A1").Value + 1 'Sheet makes a permanent variable for reference and adds one with each use.

        .Range("B" & RowToPasteTo).Value = Sheets(8).Range("A1").Value

        Sheets(1).Range("C4:C11").Select.ClearContents 'Clears the information held in input table.
        Range("A1").Select

        Sheets(3).Range("A1").Select 'Deselects range
    End With
End Sub

Я хочу, чтобы значение ячейки A1 на листе 8 («Конфиг») было размещено в следующей пустой ячейке в столбце B.

1 Ответ

1 голос
/ 21 мая 2019

Вы можете внести изменения и попробовать код.если у вас есть какие-либо вопросы, пожалуйста, дайте мне знать 

Option Explicit

Sub PostToPipeline()

    Dim RowToPasteTo As Long
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, ws8 As Worksheet

    With ThisWorkbook
        Set ws1 = .Sheets(1) 'Change the number in the bracket with the name of the worksheet ( e.g. .Sheets("Sheet1"))
        Set ws2 = .Sheets(2) 'Change the number in the bracket with the name of the worksheet ( e.g. .Sheets("Sheet1"))
        Set ws3 = .Sheets(3) 'Change the number in the bracket with the name of the worksheet ( e.g. .Sheets("Sheet1"))
        Set ws8 = .Sheets(8) 'Change the number in the bracket with the name of the worksheet ( e.g. .Sheets("Sheet1"))
    End With

    With ws3

        RowToPasteTo = .Cells(.Rows.Count, "B").End(xlUp).Row + 1

        'This defines the variable RowToPasteTo as the next empty line on the Pipeline

        .Range("D" & RowToPasteTo).Value = ws2.Range("C4").Value 'This prints the clients name to pipeline.With the left of the '=' being the destination, and the right being the source of information.
        .Range("E" & RowToPasteTo).Value = ws2.Range("C5").Value 'This prints TAS Principal
        .Range("F" & RowToPasteTo).Value = ws2.Range("C6").Value 'This prints Pillar

        .Range("C" & RowToPasteTo).Value = Date
        .Range("J" & RowToPasteTo).Value = Date

        .Range("B" & RowToPasteTo).Value = ws8.Range("A1").Value

        .Range("A1").Select 'Deselects range

    End With

    ws8.Range("A1").Value = ws8.Range("A1").Value + 1 'Sheet makes a permanent variable for reference and adds one with each use.
    ws1.Range("C4:C11").ClearContents 'Clears the information held in input table.

End Sub
...